|
6
|
1 ;;; GNU Emacs init file for Henry Thompson
|
|
|
2 ;;; This part shared between all hosts
|
|
|
3 ;;; This part is my personal stuff, not for other incarnations
|
|
|
4 ;;; initialisation file for Emacs, that is, (l)emacs and epoch common
|
|
|
5 ;;; Last edited: Fri Sep 25 09:22:22 1992
|
|
|
6 ;;; Edit history since port: made load-path not site-dependant
|
|
|
7 ;;; split into common-init for all my incarnations and pers-init for private
|
|
|
8 ;;; added lemacs compatibility
|
|
|
9
|
|
|
10 ;;; mail stuff
|
|
|
11 (setq mail-archive-file-name "~/mail/cpy/general")
|
|
|
12 (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" )
|
|
|
13 (set-default 'ht-last-file (expand-file-name "~/mail/"))
|
|
|
14 (setq ht-diary-file-name "~/mail/diary.babyl")
|
|
|
15 (setq mail-append-host "inf.ed.ac.uk")
|
|
|
16 (setq user-full-name "Henry S. Thompson")
|
|
|
17 (setq user-mail-address "ht@inf.ed.ac.uk")
|
|
|
18 (setq mail-host-address "inf.ed.ac.uk")
|
|
|
19
|
|
|
20 ;; new mail hackery
|
|
|
21 (site-caseq ((edin ircs ldc)
|
|
|
22 (setq rmail-spool-directory (file-name-as-directory
|
|
|
23 (concat rmail-spool-directory
|
|
|
24 "ht-mail")))))
|
|
|
25
|
|
|
26 ;; sending mail on the road
|
|
|
27 (setq send-mail-function 'smtpmail-send-it)
|
|
|
28 (setq message-send-mail-function 'smtpmail-send-it)
|
|
|
29 (setq smtpmail-default-smtp-server "localhost")
|
|
|
30 (setq smtpmail-smtp-service "smtp")
|
|
|
31 (setq smtpmail-local-domain "markuptechnology.com")
|
|
|
32 (setq smtpmail-debug-info t)
|
|
|
33 (load "smtpmail" nil t)
|
|
|
34 (setq smtpmail-code-conv-from nil)
|
|
|
35
|
|
|
36 ;; don't know why this is necessary
|
|
|
37 (site-caseq ((edin)
|
|
|
38 (setq rmail-primary-inbox-list
|
|
|
39 (list (concat rmail-spool-directory "ht")))))
|
|
|
40
|
|
|
41 ;; Perforce
|
|
|
42
|
|
|
43 ;;(setq p4-global-server-port "zorg.milowski.com:1666")
|
|
|
44 ;;(setenv "P4PORT" "zorg.milowski.com:1666")
|
|
|
45 ;;(setenv "P4CLIENT" "MarkupMan")
|
|
|
46 ;;(setenv "P4CONFIG" ".p4env")
|
|
|
47 ;;(load-library "p4")
|
|
|
48 ;;(setq p4-use-p4config-exclusively t)
|
|
|
49 ;;(p4-set-p4-executable "/c/Program Files/Perforce/p4.exe")
|
|
|
50 (setq vc-command-messages t)
|
|
|
51
|
|
|
52 (setq minibuffer-max-depth nil)
|
|
|
53 (defun run-kcl ()
|
|
|
54 "Run an inferior kcl process"
|
|
|
55 (interactive)
|
|
|
56 (switch-to-buffer (make-shell "kcl" "kcl"))
|
|
|
57 (inferior-lisp-mode))
|
|
|
58
|
|
|
59 (require 'mdn-extras)
|
|
|
60 (setq auto-mode-alist
|
|
|
61 (append '(("/perl/" . perl-mode)
|
|
25
|
62 ("\\.scm$" . scheme-mode))
|
|
6
|
63 auto-mode-alist))
|
|
25
|
64 (setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite")
|
|
6
|
65 ;;; for scheme
|
|
|
66 (put 'letrec 'lisp-indent-function 1)
|
|
|
67 (put 'case 'lisp-indent-function 1)
|
|
|
68
|
|
|
69 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
|
|
|
70 (setq rmail-primary-inbox-list
|
|
|
71 '("~/mbox" "/net/piglet/usr/spool/mail/$USER")))
|
|
|
72 (edin (setq load-path (cons
|
|
|
73 "/home/ht/emacs/shared/gnus-5.0.15/lisp"
|
|
|
74 load-path))))
|
|
|
75
|
|
|
76 (defun run-sicstus ()
|
|
|
77 "Run an inferior Prolog process, input and output via buffer *prolog*."
|
|
|
78 (interactive)
|
|
|
79 (if (not (boundp 'prolog-mode-map))
|
|
|
80 (let ((load-path (cons
|
|
|
81 (site-caseq (parc "/import/prolog-1.8/emacs")
|
|
|
82 (edin "??"))
|
|
|
83 load-path)))
|
|
|
84 (load "prolog" nil t)))
|
|
|
85 (require 'shell)
|
|
|
86 (switch-to-buffer (make-shell "prolog" (site-caseq (edin "sicstus")
|
|
|
87 (parc "prolog"))))
|
|
|
88 (inferior-prolog-mode))
|
|
|
89
|
|
|
90 (site-caseq (laptop)
|
|
|
91 (t(require 'hist)
|
|
|
92 (rplacd (assoc "*shell*" hk-pat-table)
|
|
|
93 "[a-z]+<[0-9]+>: ")))
|
|
|
94
|
|
|
95 ;; turn off suspend-emacs -- use pause-emacs (^X.) instead
|
|
|
96 (global-unset-key "\C-Z")
|
|
|
97 (global-unset-key "\C-x\C-z")
|
|
|
98
|
|
|
99 (global-set-key "\C-xl" (function goto-line))
|
|
|
100
|
|
|
101 ;(require 'repl-comment)
|
|
|
102
|
|
|
103 ;(require 'compress)
|
|
|
104
|
|
|
105 (if (string-match "Lucid" emacs-version)
|
|
|
106 (site-caseq (laptop)
|
|
|
107 (t(require 'lemacs-compat))))
|
|
|
108
|
|
|
109 (if (boundp 'epoch::version)
|
|
|
110 ;; epoch only goes here
|
|
|
111 (progn
|
|
|
112 (if (string-match "4\\."emacs-version)
|
|
|
113 (load "motion4" nil t)
|
|
|
114 (load "motion" nil t))
|
|
|
115 (redisplay-frame)
|
|
|
116
|
|
|
117 (require 'alarm)
|
|
|
118 (idle-save 15)
|
|
|
119
|
|
|
120 (defun ht-rooms-setup (&optional arg)
|
|
|
121 (interactive)
|
|
|
122 (redisplay-frame)
|
|
|
123 (require 'mail-extras)
|
|
|
124 (require 'diary)
|
|
|
125 (require 'my-news)
|
|
|
126 (let ((scr (current-frame)))
|
|
|
127 (load "ht-rooms-epoch.config" nil t)
|
|
|
128 (unwind-protect (make-frame-for-room "diary" "-0" "+130"))
|
|
|
129 (unwind-protect (make-frame-for-room "elisp" "-25" "+148"))
|
|
|
130 (unwind-protect (make-frame-for-room "news" "-50" "+166"))
|
|
|
131 (unwind-protect (make-frame-for-room "mail" "-75" "+184"))
|
|
|
132 (epoch::delete-frame scr))
|
|
|
133 ;; presumably this is now frame local, so not quite the right thing.
|
|
|
134 (setq ht-default-config (current-window-configuration)))
|
|
|
135 ))
|
|
|
136 (if (string-match "^\\(19\\|2\\)" emacs-version)
|
|
|
137 (progn
|
|
|
138 ;; common v19
|
|
|
139 (if window-system
|
|
|
140 (progn
|
|
|
141 (add-hook 'sh-mode-hook '(lambda ()
|
|
|
142 (font-lock-mode 1)))
|
|
25
|
143 (add-hook 'lsl-mode-hook '(lambda ()
|
|
6
|
144 (font-lock-mode 1)))
|
|
25
|
145 (add-hook 'perl-mode-hook '(lambda ()
|
|
6
|
146 (font-lock-mode 1)))
|
|
25
|
147 (add-hook 'emacs-lisp-mode-hook '(lambda ()
|
|
6
|
148 (font-lock-mode 1)))
|
|
25
|
149 (add-hook 'lisp-mode-hook '(lambda ()
|
|
6
|
150 (font-lock-mode 1)))
|
|
25
|
151 (add-hook 'sgml-mode-hook '(lambda ()
|
|
6
|
152 (if (not
|
|
|
153 (boundp 'sgml-font-lock-keywords))
|
|
|
154 (load "sgml-font-lock-keywords" t t))
|
|
|
155 (setq adaptive-fill-mode nil)
|
|
|
156 (font-lock-mode 1)
|
|
|
157 ))
|
|
25
|
158 (add-hook 'c-mode-hook '(lambda ()
|
|
6
|
159 (font-lock-mode 1)))
|
|
25
|
160 (add-hook 'c++-mode-hook '(lambda ()
|
|
6
|
161 (font-lock-mode 1)))
|
|
25
|
162 (add-hook 'scheme-mode-hook
|
|
6
|
163 '(lambda ()
|
|
|
164 (setq
|
|
|
165 scheme-font-lock-keywords
|
|
|
166 (if (or
|
|
|
167 (boundp 'lisp-font-lock-keywords)
|
|
|
168 (load "lisp-font-lock-keywords" t t))
|
|
|
169 lisp-font-lock-keywords))
|
|
|
170 (font-lock-mode 1)))
|
|
25
|
171 (add-hook 'python-mode-hook '(lambda ()
|
|
6
|
172 (font-lock-mode 1)))
|
|
|
173 (setq py-python-command "//c/Program Files/Python22/python")
|
|
|
174 (setq sgml-insert-missing-element-comment nil)
|
|
25
|
175 (condition-case nil
|
|
|
176 (progn
|
|
|
177 (load "psgml" nil t)
|
|
|
178 (load "psgml-edit" nil t)
|
|
|
179 ;; (load "xml-hack" nil t)
|
|
|
180 ;;(setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog"
|
|
|
181 )
|
|
|
182 (error nil))
|
|
6
|
183 (if (string-match "i386" (emacs-version))
|
|
|
184 (progn (defun win32-get-clipboard-data-cmd ()
|
|
|
185 (interactive)(insert (win32-get-clipboard-data)))
|
|
|
186 (global-set-key
|
|
|
187 "\C-x\C-y" 'win32-get-clipboard-data-cmd)))
|
|
|
188 ;; gnus
|
|
25
|
189 (setq nnml-directory (expand-file-name "/home/ht/mail/Mail"))
|
|
|
190 ; (setq mail-signature t)
|
|
6
|
191 (setq gnus-message-archive-method
|
|
|
192 '(nnfolder "archive"
|
|
25
|
193 (nnfolder-directory "/home/ht/mail/cpy")
|
|
|
194 (nnfolder-active-file "/home/ht/mail/cpy/active")
|
|
6
|
195 (nnfolder-get-new-mail nil)
|
|
|
196 (nnfolder-inhibit-expiry t)))
|
|
25
|
197 ;; loading gnus postponed to e.g. mail-from-delphix, q.v.
|
|
6
|
198
|
|
|
199 ; (require 'gnus-min)
|
|
|
200 ))
|
|
|
201
|
|
|
202 ;; (require 'idle)
|
|
|
203 ;; (idle-save 15)
|
|
|
204
|
|
|
205 (if (string-match "Lucid" emacs-version)
|
|
|
206 ;; lemacs only goes here
|
|
|
207 (progn
|
|
|
208 (setq bbdb-north-american-phone-numbers-p nil)
|
|
|
209 (setq bbdb-use-pop-up nil)
|
|
|
210 (require 'bbdb)
|
|
|
211 (add-hook 'rmail-mode-hook 'bbdb-insinuate-rmail)
|
|
|
212 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
|
|
|
213 (add-hook 'mail-setup-hook 'bbdb-insinuate-sendmail)
|
|
|
214 (add-hook 'mail-setup-hook 'bbdb-define-all-aliases)
|
|
|
215 (add-hook 'gnus-message-setup-hook 'bbdb-define-all-aliases)
|
|
|
216
|
|
|
217
|
|
|
218
|
|
|
219 (if window-system
|
|
|
220 (progn
|
|
|
221 (require 'highlight-headers)
|
|
|
222 (defun rmail-fontify-headers ()
|
|
|
223 (highlight-headers (point-min) (point-max) t))
|
|
|
224 (add-hook 'rmail-show-message-hook 'rmail-fontify-headers)
|
|
|
225 (setq dired-mode-hook
|
|
|
226 '(lambda ()
|
|
|
227 (font-lock-mode 1)
|
|
|
228 (define-key dired-mode-map
|
|
|
229 [button2] '(lambda (click)
|
|
|
230 (interactive "e")
|
|
|
231 (mouse-set-point click)
|
|
|
232 (dired-advertised-find-file)))))
|
|
|
233 ;; (setq highlight-headers-follow-url-function
|
|
|
234 ;; 'highlight-headers-ht-follow-url-netscape
|
|
|
235 ;; browse-url-browser-function
|
|
|
236 ;;'highlight-headers-ht-follow-url-netscape)
|
|
|
237 ))
|
|
|
238 ;; (load "~rjc/public_html/device-type-hacking.el")
|
|
|
239 (load "perl-mode" nil t)
|
|
|
240 (defun ht-rooms-setup (&optional arg)
|
|
|
241 (interactive)
|
|
|
242 (require 'mail-extras)
|
|
|
243 (require 'diary)
|
|
|
244 (require 'my-news)
|
|
|
245 ;; override changed default, except in gnus
|
|
|
246 (setq mail-use-rfc822 nil)
|
|
|
247 (add-hook 'gnus-summary-mode-hook
|
|
|
248 (function (lambda ()
|
|
|
249 (make-local-variable 'mail-use-rfc822)
|
|
|
250 (setq mail-use-rfc822 t))))
|
|
|
251 (if (>= emacs-major-version 21)
|
|
|
252 (progn
|
|
|
253 (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
|
|
|
254 (add-hook 'gnus-startup-hook 'bbdb-insinuate-message)))
|
|
|
255 (defun ht-rooms-setup (&optional arg)
|
|
|
256 (interactive)
|
|
|
257 (require 'mail-extras)
|
|
|
258 (require 'diary)
|
|
|
259 (let ((scr (selected-frame)))
|
|
|
260 ; (sit-for 5)
|
|
|
261 (load "ht-rooms.config" nil t)
|
|
|
262 (unwind-protect (make-screen-for-room "diary" "0" "+62"))
|
|
|
263 ; (sit-for 5)
|
|
|
264 (unwind-protect (make-screen-for-room "elisp" "-25" "+79"))
|
|
|
265 ; (sit-for 5)
|
|
|
266 (unwind-protect (make-screen-for-room "news" "-50" "+96"))
|
|
|
267 ; (sit-for 5)
|
|
|
268 (unwind-protect (make-screen-for-room "mail" "-75" "+113"))
|
|
|
269 (sit-for 1)
|
|
|
270 (delete-screen scr))
|
|
|
271 (setq ht-default-config (current-window-configuration)))))
|
|
|
272 ;; vanilla v19 goes here
|
|
|
273 (if window-system
|
|
|
274 (progn
|
|
|
275 (defvar ht-frame-parameter-mods
|
|
|
276 '((auto-raise . t)
|
|
|
277 (auto-lower . nil)
|
|
|
278 (cursor-type . bar)))
|
|
|
279 (nconc
|
|
|
280 (site-caseq (laptop (list '(height . 35)))
|
|
|
281 (t
|
|
|
282 (list
|
|
|
283 '(font .
|
|
|
284 "-adobe-courier-medium-r-normal--14-*"))))
|
|
|
285 ht-frame-parameter-mods
|
|
|
286 )
|
|
|
287 ;; if we have X, we have ISO-Latin-1, so
|
|
|
288 ;; set char codes 128--255 to display as themselves.
|
|
|
289 (require 'disp-table)
|
|
|
290 (standard-display-8bit 161 255)
|
|
|
291 ; (transient-mark-mode t)
|
|
|
292 ;; hightlight searching in bold
|
|
|
293 (setq search-highlight t)
|
|
|
294 (make-face 'isearch)
|
|
|
295 (copy-face 'bold 'isearch)
|
|
|
296 ; (set-face-underline-p 'region t)
|
|
|
297 ; (set-face-background 'region "white")
|
|
|
298 ; (set-face-foreground 'region "black")
|
|
|
299 ; (setq c++-font-lock-keywords 'undef)
|
|
|
300 ; (setq c-font-lock-keywords 'undef)
|
|
|
301 (modify-frame-parameters
|
|
|
302 nil
|
|
|
303 ht-frame-parameter-mods)
|
|
|
304 (setq default-frame-alist
|
|
|
305 (append
|
|
|
306 ht-frame-parameter-mods default-frame-alist))
|
|
|
307 ;; fix cut and paste
|
|
|
308 (setq interprogram-paste-function nil
|
|
|
309 interprogram-cut-function nil)
|
|
|
310 (defun ht-mouse-set-region (click) "set region and primary selection"
|
|
|
311 (interactive "e")
|
|
|
312 (mouse-set-region click)
|
|
|
313 (x-set-selection "PRIMARY" (buffer-substring (point)(mark))))
|
|
|
314 (defun ht-mouse-drag-region (click)
|
|
|
315 "drag region and set primary selection"
|
|
|
316 (interactive "e")
|
|
|
317 (mouse-drag-region click)
|
|
|
318 (if mark-active
|
|
|
319 (x-set-selection "PRIMARY" (buffer-substring (point)(mark)))))
|
|
|
320 (global-set-key [drag-mouse-1] (function ht-mouse-set-region))
|
|
|
321 (global-set-key [down-mouse-1] (function ht-mouse-drag-region))
|
|
|
322 (defun ht-mouse-insert-primary (click)
|
|
|
323 "set point and insert primary selection"
|
|
|
324 (interactive "e")
|
|
|
325 (mouse-set-point click)
|
|
|
326 (push-mark nil nil t)
|
|
|
327 (insert (x-selection)))
|
|
|
328 (global-set-key [mouse-2] (function ht-mouse-insert-primary))
|
|
|
329 (setq dired-mode-hook
|
|
|
330 '(lambda ()
|
|
|
331 (font-lock-mode 1)
|
|
|
332 (define-key dired-mode-map
|
|
|
333 [mouse-2] '(lambda (click)
|
|
|
334 (interactive "e")
|
|
|
335 (mouse-set-point click)
|
|
|
336 (dired-advertised-find-file)))))
|
|
|
337
|
|
|
338 (defun ht-rooms-setup (&optional arg)
|
|
|
339 (interactive)
|
|
|
340 (require 'mail-extras)
|
|
|
341 (require 'diary)
|
|
|
342 (require 'my-news)
|
|
|
343 ;; override changed default, except in gnus
|
|
|
344 (setq mail-use-rfc822 nil)
|
|
|
345 (add-hook 'gnus-summary-mode-hook
|
|
|
346 (function (lambda ()
|
|
|
347 (make-local-variable 'mail-use-rfc822)
|
|
|
348 (setq mail-use-rfc822 t))))
|
|
|
349 (let ((scr (selected-frame)))
|
|
|
350 (load "ht-rooms.config" nil t)
|
|
|
351 (unwind-protect (make-frame-for-room "elisp" "-25" "-58"))
|
|
|
352 (unwind-protect (progn
|
|
|
353 (make-frame-for-room "news" "-50" "-40")
|
|
|
354 ))
|
|
|
355 (unwind-protect (progn
|
|
|
356 (make-frame-for-room "mail" "-75" "-22")
|
|
|
357 ))
|
|
|
358 (unwind-protect (progn
|
|
|
359 (make-frame-for-room
|
|
|
360 "diary"
|
|
|
361 "-0"
|
|
|
362 (concat
|
|
|
363 "+"
|
|
|
364 (format
|
|
|
365 "%d"
|
|
|
366 (-
|
|
|
367 (cdr
|
|
|
368 (assoc
|
|
|
369 'top
|
|
|
370 (frame-parameters
|
|
|
371 (cdr
|
|
|
372 (assoc
|
|
|
373 "elisp"
|
|
|
374 frames-table)))))
|
|
|
375 18))))
|
|
|
376 ))
|
|
|
377 (make-frame-invisible scr))
|
|
|
378 (setq ht-default-config (current-window-configuration)))))
|
|
|
379 (setq sgml-insert-missing-element-comment nil)
|
|
|
380 (add-hook 'sgml-mode-hook 'sgml-fix-para)
|
|
|
381 ))
|
|
|
382 ;; v18 emacs only goes here
|
|
|
383 (progn
|
|
|
384 (require 'compress)
|
|
|
385 (defun ht-rooms-setup (&optional arg)
|
|
|
386 (interactive)
|
|
|
387 (require 'mail-extras)
|
|
|
388 (require 'diary)
|
|
|
389 (require 'my-news)
|
|
|
390 (load "ht-rooms.config" nil t)
|
|
|
391 (setq ht-default-config (current-window-configuration)))))
|
|
|
392
|
|
|
393 (defun sgml-fix-para ()
|
|
|
394 (setq paragraph-separate
|
|
|
395 "</[^>]*>\n\\([ \t]+\\| \\)")
|
|
|
396 (setq paragraph-start
|
|
|
397 "^[ \t]*</?[A-Za-z._-]+[ >]"))
|
|
|
398
|
|
|
399 (defun highlight-headers-ht-follow-url-netscape (url)
|
|
|
400 (message "Sending URL to Netscape...")
|
|
|
401 (save-excursion
|
|
|
402 (set-buffer (get-buffer-create "*Shell Command Output*"))
|
|
|
403 (erase-buffer)
|
|
|
404 (if (equal 0 (call-process "netscape" nil t nil "-display" ":0.0"
|
|
|
405 "-remote"
|
|
|
406 (concat "openURL(" url ")")))
|
|
|
407 ;; it worked
|
|
|
408 nil
|
|
|
409 ;; it didn't work, so start a new Netscape process.
|
|
|
410 (call-process "netscape" nil 0 nil url)))
|
|
|
411 (message "Sending URL to Netscape... done"))
|
|
|
412
|
|
|
413 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
|
|
|
414
|
|
25
|
415 (cd (if (fboundp 'user-home-directory)
|
|
|
416 (user-home-directory)
|
|
|
417 (getenv "HOME")))
|
|
26
|
418 (defun ht-custom-size ()
|
|
|
419 (interactive)
|
|
|
420 (site-caseq (laptop
|
|
28
|
421 (message (format "pw: %s" (device-pixel-width (selected-device))))))
|
|
|
422 (if (fboundp 'device-pixel-width)
|
|
29
|
423 (let ((pw (device-pixel-width (selected-device)))
|
|
|
424 (ph (device-pixel-height (selected-device))))
|
|
28
|
425 (cond ((>= pw 1680)
|
|
|
426 ;; we're on a big external monitor
|
|
29
|
427 (require 'font-menu)
|
|
|
428 (font-menu-set-font nil nil 10)
|
|
28
|
429 (set-frame-pixel-size (selected-frame) 900 960)
|
|
29
|
430 (set-frame-position (selected-frame) -3 -20))
|
|
|
431 ((= pw 1097)
|
|
|
432 ;; we're on an XPS 13
|
|
|
433 (require 'font-menu)
|
|
|
434 (font-menu-set-font nil nil 9)
|
|
|
435 (set-frame-pixel-size (selected-frame) 583 583); 39 x 80
|
|
|
436 (set-frame-position (selected-frame) -5 -26))
|
|
|
437 ((= ph 768)
|
|
|
438 ;; we're on a narrow cinema-ratio laptop
|
|
|
439 (set-frame-pixel-size (selected-frame) 690 710)
|
|
|
440 (set-frame-position (selected-frame) -5 -26))
|
|
|
441 ((= ph 900)
|
|
|
442 ;; we're on a cinema-ratio laptop
|
|
|
443 (set-frame-pixel-size (selected-frame) 800 820)
|
|
|
444 (set-frame-position (selected-frame) -3 -20))
|
|
|
445 ((= pw 1600)
|
|
|
446 ;; we're on a big external monitor
|
|
|
447 (set-frame-pixel-size (selected-frame) 900 1120)
|
|
|
448 (set-frame-position (selected-frame) -3 -20))
|
|
|
449 ((= pw 1280)
|
|
|
450 (cond ((= ph 720)
|
|
|
451 (set-frame-pixel-size (selected-frame) 700 655)
|
|
|
452 (set-frame-position (selected-frame) -3 -30))
|
|
|
453 (t
|
|
|
454 (set-frame-pixel-size (selected-frame) 700 960)
|
|
|
455 (set-frame-position (selected-frame) -3 -20))))))))
|
|
26
|
456
|
|
|
457 (ht-custom-size)
|
|
25
|
458
|
|
|
459 ;;; make dired list directories first
|
|
|
460 (defadvice dired-insert-directory (before my-dired-insert-directory
|
|
|
461 (dir-or-list switches &optional wildcard full-p))
|
|
|
462 (setq switches (concat switches " --group-directories-first")))
|
|
|
463
|
|
|
464 (ad-activate 'dired-insert-directory)
|
|
|
465
|
|
|
466 ;;; moved from custom.el, where they don't work
|
|
|
467 (setq
|
|
|
468 ecb-layout-name "leftright1"
|
|
|
469 ecb-layout-window-sizes '(("leftright1"
|
|
|
470 (ecb-directories-buffer-name 0.1474358974358974 . 0.3620689655172414)
|
|
|
471 (ecb-sources-buffer-name 0.1474358974358974 . 0.3275862068965517)
|
|
|
472 (ecb-history-buffer-name 0.1474358974358974 . 0.3103448275862069)
|
|
|
473 (ecb-methods-buffer-name 0.2051282051282051 . 1.0)))
|
|
|
474 ecb-options-version "2.40"
|
|
|
475 ecb-show-tags '((default
|
|
|
476 (include collapsed nil)
|
|
|
477 (parent collapsed nil)
|
|
|
478 (type flattened nil)
|
|
|
479 (variable collapsed name)
|
|
|
480 (function flattened name)
|
|
|
481 (label hidden nil)
|
|
|
482 (t collapsed nil))
|
|
|
483 (c++-mode
|
|
|
484 (include collapsed nil)
|
|
|
485 (parent collapsed nil)
|
|
|
486 (type flattened nil)
|
|
|
487 (variable collapsed access)
|
|
|
488 (function flattened access)
|
|
|
489 (function collapsed access)
|
|
|
490 (label hidden nil)
|
|
|
491 (t collapsed nil))
|
|
|
492 (c-mode
|
|
|
493 (include collapsed nil)
|
|
|
494 (parent collapsed nil)
|
|
|
495 (type flattened nil)
|
|
|
496 (variable collapsed access)
|
|
|
497 (function flattened access)
|
|
|
498 (function collapsed access)
|
|
|
499 (label hidden nil)
|
|
|
500 (t collapsed nil))
|
|
|
501 (bovine-grammar-mode
|
|
|
502 (keyword collapsed name)
|
|
|
503 (token collapsed name)
|
|
|
504 (nonterminal flattened name)
|
|
|
505 (rule flattened name)
|
|
|
506 (t collapsed nil))
|
|
|
507 (wisent-grammar-mode
|
|
|
508 (keyword collapsed name)
|
|
|
509 (token collapsed name)
|
|
|
510 (nonterminal flattened name)
|
|
|
511 (rule flattened name)
|
|
|
512 (t collapsed nil))
|
|
|
513 (texinfo-mode
|
|
|
514 (section flattened nil)
|
|
|
515 (def collapsed name)
|
|
|
516 (t collapsed nil)))
|
|
|
517 ecb-source-file-regexps '((".*"
|
|
|
518 ("\\(^\\(\\.\\|#\\)\\|\\(~$\\|\\.\\(elc\\|obj\\|o\\|class\\|lib\\|dll\\|a\\|so\\|cache\\|pyc\\)$\\)\\)")
|
|
|
519 ("^\\.\\(emacs\\|gnus\\)$")))
|
|
|
520 ecb-sources-exclude-cvsignore '(".*")
|
|
|
521 ediff-diff-options "--binary -b -w -B "
|
|
|
522 efs-ftp-program-name "/c/Windows/System32/ftp"
|
|
|
523 efs-ftp-flush-command "help help"
|
|
|
524 efs-tmp-name-template "C:\\Cygwin\\tmp\\efs"
|
|
|
525 ; efs-ftp-program-name "/usr/bin/ftp"
|
|
|
526 efs-use-passive-mode nil
|
|
|
527 gnus-treat-display-picons nil
|
|
|
528 ispell-local-dictionary "british"
|
|
|
529 ispell-program-name "aspell"
|
|
|
530 jde-ant-buildfile "build.xml"
|
|
|
531 jde-ant-enable-find t
|
|
|
532 jde-ant-read-target t
|
|
|
533 jde-auto-parse-buffer-interval 60
|
|
|
534 jde-db-option-application-args '("-err" "err.xml" "id.xpdl")
|
|
|
535 jde-enable-abbrev-mode t
|
|
|
536 jde-gen-cflow-if '("(if (jde-parse-comment-or-quoted-p)" " '(l \"if\")" " '(l '> \"if\" jde-gen-conditional-padding-1 " " \"(\" jde-gen-conditional-padding-2 (p \"if-clause: \" clause)" " jde-gen-conditional-padding-2 \")\"" " (if jde-gen-k&r " " jde-gen-conditional-padding-3 " " '>'n)" " \"{\"'>'n'>'r'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of if (\" (s clause) \")\"))" " '>'n'> )" " )")
|
|
|
537 jde-gen-cflow-try-catch '("(if (jde-parse-comment-or-quoted-p)" " '(l \"try\")" " '(l '> \"try \"" " (if jde-gen-k&r " " ()" " 'n)" " \"{\"'>'n'>'r'n" " \"}\" '>" " (if jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" " \"catch\" jde-gen-conditional-padding-1 " " \"(\" jde-gen-conditional-padding-2 (p \"catch what: \" clause) \" e\"" " jde-gen-conditional-padding-2 \")\" '>" " (if jde-gen-k&r " " jde-gen-conditional-padding-3 " " 'n)" " \"{\"'>'n'>'p'n" " \"}\"" " (if jde-gen-comments " " '(l \" // end of try-catch\"))" " '>'n'> )" " )")
|
|
|
538 jde-global-classpath '("/home/ht/MT/source/debug:/home/ht/MT/source/3rdparty/jh.jar:/home/ht/MT/source/3rdparty/jsearch.jar")
|
|
|
539 jde-jdk '("1.6.0")
|
|
|
540 jde-jdk-registry '(("1.6.0" . "/c/Program Files/Java/jdk1.6.0_23")
|
|
|
541 ("1.5.0" . "/c/Program Files/j2sdk1.5.0"))
|
|
|
542 fill-indent-according-to-mode t
|
|
|
543 )
|
|
26
|
544 (message (format "fh: %s" (frame-pixel-height (selected-frame))))
|
|
|
545
|
