1 ; Ian's X, Emacs-19 initialisations
3 ;(setq frame-title-format
4 ; '(multiple-frames "%b" ("" invocation-name " : "
5 ; user-real-login-name "@" system-name)))
7 ;(setq default-frame-alist
8 ; (append '((internal-border-width . 1)) default-frame-alist))
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))
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))))
21 (global-set-key [mode-line mouse-1]
22 '(lambda (event) (interactive "e\n")
23 (let ((old-window (selected-window)))
25 (progn (select-window (posn-window (event-end event)))
27 (select-window old-window)))))
29 (global-set-key [mode-line C-mouse-3] 'mouse-delete-window)
31 (global-set-key [mode-line mouse-3]
32 '(lambda (event) (interactive "e\n")
33 (let ((old-window (selected-window)))
35 (progn (select-window (posn-window (event-end event)))
37 (select-window old-window)))))
39 (global-set-key [mode-line down-mouse-2] 'mouse-buffer-menu)
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)
46 (fset 'run-programs-menu '(keymap
48 ([compile] . ("Quicker Compile" . quicker-compile))
49 ([vm] . ("VM" . vm))))
51 (global-unset-key [down-C-mouse-3])
52 (global-set-key [down-C-mouse-3] 'run-programs-menu)
54 (global-set-key [mouse-2] 'mouse-yank-at-click)
55 (global-set-key [mouse-3] 'mouse-save-then-kill)
57 (setq interprogram-paste-function
58 '(lambda () (x-get-cut-buffer 0)))
60 ; (append '((vertical-scroll-bars . nil) (horizontal-scroll-bars . nil)
61 ; (menu-bar-lines . 0))
62 ; default-frame-alist))
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))
70 ;(if (equal (ians-configure "colours") "mono")
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")))
80 ;(if (equal (ians-configure "colours") "mono")
81 ; (setq inverse-video t))
83 ; (append '((foreground-color . "black") (background-color . "white")
84 ; (mouse-color . "white") (cursor-color . "black"))
85 ; default-frame-alist)))