from-cvs/files/emacs_ian-x19.el

   1 ; Ian's X, Emacs-19 (and higher) initialisations
   2
   3 ;(setq frame-title-format
   4 ;      '(multiple-frames "%b" ("" invocation-name " : "
   5 ;                              user-real-login-name "@" system-name)))
   6
   7 ;(setq default-frame-alist
   8 ;      (append '((internal-border-width . 1)) default-frame-alist))
   9 ;(scroll-bar-mode nil)
  10 ;(modify-frame-parameters (selected-frame) '((internal-border-width . 1)))
  11 ;(let ((bd (cdr (assoc 'border-width (frame-parameters)))))
  12 ;  (set-frame-position (selected-frame)
  13 ;                      (- 1024 ; was (string-to-number (ians-configure "pixels_x"))
  14 ;                         (+ (frame-pixel-width) bd))
  15 ;                      bd))
  16
  17 (setq mouse-yank-at-point t)
  18 (setq x-pointer-shape x-pointer-left-ptr)
  19 (set-mouse-color (cdr (assoc 'mouse-color (frame-parameters))))
  20
  21 (global-set-key [mode-line mouse-1]
  22                 '(lambda (event) (interactive "e\n")
  23                    (let ((old-window (selected-window)))
  24                      (unwind-protect
  25                          (progn (select-window (posn-window (event-end event)))
  26                                 (scroll-up))
  27                        (select-window old-window)))))
  28
  29 (global-set-key [mode-line C-mouse-3] 'mouse-delete-window)
  30
  31 (global-set-key [mode-line mouse-3]
  32                 '(lambda (event) (interactive "e\n")
  33                    (let ((old-window (selected-window)))
  34                      (unwind-protect
  35                          (progn (select-window (posn-window (event-end event)))
  36                                 (scroll-down))
  37                        (select-window old-window)))))
  38
  39 (global-set-key [mode-line down-mouse-2] 'mouse-buffer-menu)
  40
  41 (global-unset-key [C-down-mouse-1])
  42 (global-set-key [C-mouse-1] 'save-buffer)
  43 (global-unset-key [C-down-mouse-2])
  44 (global-set-key [C-mouse-2] 'mouse-kill)
  45
  46 (fset 'run-programs-menu '(keymap
  47                            "Programs"
  48                            ([compile] . ("Quicker Compile" . quicker-compile))
  49                            ([vm] . ("VM" . vm))))
  50
  51 (global-unset-key [down-C-mouse-3])
  52 (global-set-key [down-C-mouse-3] 'run-programs-menu)
  53
  54 (global-set-key [mouse-2] 'mouse-yank-at-click)
  55 (global-set-key [mouse-3] 'mouse-save-then-kill)
  56
  57 (setq interprogram-paste-function
  58       '(lambda () (x-get-cut-buffer 0)))
  59
  60 ;      (append '((vertical-scroll-bars . nil) (horizontal-scroll-bars . nil)
  61 ;               (menu-bar-lines . 0))
  62 ;             default-frame-alist))
  63
  64 ;(if (assoc 'user-position default-frame-alist) t
  65 ;  (setq default-frame-alist
  66 ;        (append '((top . 0) (left . -1))
  67 ;               default-frame-alist))
  68 ;  (set-frame-position (selected-frame) -1 0))
  69
  70 ;(if (equal (ians-configure "colours") "mono")
  71 ;    (progn
  72 ;      (setq default-frame-alist
  73 ;            (append '((foreground-color . "black") (background-color . "white")
  74 ;                      (mouse-color . "white") (cursor-color . "black"))
  75 ;                    default-frame-alist))
  76 ;      (set-face-foreground 'modeline "white")
  77 ;      (set-face-background 'modeline "black")
  78 ;      (modify-frame-parameters (selected-frame) '((cursor-color . "black")))
  79 ;      ))
  80 ;(if (equal (ians-configure "colours") "mono")
  81 ;    (setq inverse-video t))
  82 ;
  83 ; (append '((foreground-color . "black") (background-color . "white")
  84 ;                   (mouse-color . "white") (cursor-color . "black"))
  85 ;                    default-frame-alist)))
  86
  87 (provide 'ian-x19)