Mercurial > hg > xemacs

comparison pers-init.el @ 25:0e4eb9db8a93 laptop

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
after debugging use with GNU Emacs
author ht
date Thu, 22 Oct 2015 14:28:54 +0100
parents dccf9e53f179
children 5d2492e352cc
comparison
equal deleted inserted replaced
7:5f3a215f12eb 25:0e4eb9db8a93
57 (inferior-lisp-mode)) 57 (inferior-lisp-mode))
58 58
59 (require 'mdn-extras) 59 (require 'mdn-extras)
60 (setq auto-mode-alist 60 (setq auto-mode-alist
61 (append '(("/perl/" . perl-mode) 61 (append '(("/perl/" . perl-mode)
62 ("\\.scm$" . lisp-mode)) 62 ("\\.scm$" . scheme-mode))
63 auto-mode-alist)) 63 auto-mode-alist))
64 (setq inferior-lisp-program "scheme") 64 (setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite")
65 ;;; for scheme 65 ;;; for scheme
66 (put 'letrec 'lisp-indent-function 1) 66 (put 'letrec 'lisp-indent-function 1)
67 (put 'case 'lisp-indent-function 1) 67 (put 'case 'lisp-indent-function 1)
68 68
69 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/")) 69 (site-caseq (parc (nconc load-path '("/import/local/emacs/gnus-3.13/"))
138 ;; common v19 138 ;; common v19
139 (if window-system 139 (if window-system
140 (progn 140 (progn
141 (add-hook 'sh-mode-hook '(lambda () 141 (add-hook 'sh-mode-hook '(lambda ()
142 (font-lock-mode 1))) 142 (font-lock-mode 1)))
143 (setq lsl-mode-hook '(lambda () 143 (add-hook 'lsl-mode-hook '(lambda ()
144 (font-lock-mode 1))) 144 (font-lock-mode 1)))
145 (setq perl-mode-hook '(lambda () 145 (add-hook 'perl-mode-hook '(lambda ()
146 (font-lock-mode 1))) 146 (font-lock-mode 1)))
147 (setq emacs-lisp-mode-hook '(lambda () 147 (add-hook 'emacs-lisp-mode-hook '(lambda ()
148 (font-lock-mode 1))) 148 (font-lock-mode 1)))
149 (setq lisp-mode-hook '(lambda () 149 (add-hook 'lisp-mode-hook '(lambda ()
150 (font-lock-mode 1))) 150 (font-lock-mode 1)))
151 (setq sgml-mode-hook '(lambda () 151 (add-hook 'sgml-mode-hook '(lambda ()
152 (if (not 152 (if (not
153 (boundp 'sgml-font-lock-keywords)) 153 (boundp 'sgml-font-lock-keywords))
154 (load "sgml-font-lock-keywords" t t)) 154 (load "sgml-font-lock-keywords" t t))
155 (setq adaptive-fill-mode nil) 155 (setq adaptive-fill-mode nil)
156 (font-lock-mode 1) 156 (font-lock-mode 1)
157 )) 157 ))
158 (setq c-mode-hook '(lambda () 158 (add-hook 'c-mode-hook '(lambda ()
159 (font-lock-mode 1))) 159 (font-lock-mode 1)))
160 (setq c++-mode-hook '(lambda () 160 (add-hook 'c++-mode-hook '(lambda ()
161 (font-lock-mode 1))) 161 (font-lock-mode 1)))
162 (setq scheme-mode-hook 162 (add-hook 'scheme-mode-hook
163 '(lambda () 163 '(lambda ()
164 (setq 164 (setq
165 scheme-font-lock-keywords 165 scheme-font-lock-keywords
166 (if (or 166 (if (or
167 (boundp 'lisp-font-lock-keywords) 167 (boundp 'lisp-font-lock-keywords)
168 (load "lisp-font-lock-keywords" t t)) 168 (load "lisp-font-lock-keywords" t t))
169 lisp-font-lock-keywords)) 169 lisp-font-lock-keywords))
170 (font-lock-mode 1))) 170 (font-lock-mode 1)))
171 (setq python-mode-hook '(lambda () 171 (add-hook 'python-mode-hook '(lambda ()
172 (font-lock-mode 1))) 172 (font-lock-mode 1)))
173 (setq py-python-command "//c/Program Files/Python22/python") 173 (setq py-python-command "//c/Program Files/Python22/python")
174 (setq sgml-insert-missing-element-comment nil) 174 (setq sgml-insert-missing-element-comment nil)
175 (load "psgml" nil t) 175 (condition-case nil
176 (load "psgml-edit" nil t) 176 (progn
177 ;; (load "xml-hack" nil t) 177 (load "psgml" nil t)
178 ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog")) 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))
179 (if (string-match "i386" (emacs-version)) 183 (if (string-match "i386" (emacs-version))
180 (progn (defun win32-get-clipboard-data-cmd () 184 (progn (defun win32-get-clipboard-data-cmd ()
181 (interactive)(insert (win32-get-clipboard-data))) 185 (interactive)(insert (win32-get-clipboard-data)))
182 (global-set-key 186 (global-set-key
183 "\C-x\C-y" 'win32-get-clipboard-data-cmd))) 187 "\C-x\C-y" 'win32-get-clipboard-data-cmd)))
184 ;; gnus 188 ;; gnus
185 (setq nnml-directory (expand-file-name "/home/ht/MT/ht/mail/Mail")) 189 (setq nnml-directory (expand-file-name "/home/ht/mail/Mail"))
190 ; (setq mail-signature t)
186 (setq gnus-message-archive-method 191 (setq gnus-message-archive-method
187 '(nnfolder "archive" 192 '(nnfolder "archive"
188 (nnfolder-directory "/home/ht/MT/ht/mail/cpy") 193 (nnfolder-directory "/home/ht/mail/cpy")
189 (nnfolder-active-file "/home/ht/MT/ht/mail/cpy/active") 194 (nnfolder-active-file "/home/ht/mail/cpy/active")
190 (nnfolder-get-new-mail nil) 195 (nnfolder-get-new-mail nil)
191 (nnfolder-inhibit-expiry t))) 196 (nnfolder-inhibit-expiry t)))
192 (load "gnus-init" nil t) 197 ;; loading gnus postponed to e.g. mail-from-delphix, q.v.
193 198
194 ; (require 'gnus-min) 199 ; (require 'gnus-min)
195 )) 200 ))
196 201
197 ;; (require 'idle) 202 ;; (require 'idle)
405 (call-process "netscape" nil 0 nil url))) 410 (call-process "netscape" nil 0 nil url)))
406 (message "Sending URL to Netscape... done")) 411 (message "Sending URL to Netscape... done"))
407 412
408 (site-caseq (laptop (defun system-name () "francis.markup.co.uk"))) 413 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
409 414
410 (cd (user-home-directory)) 415 (cd (if (fboundp 'user-home-directory)
411 (site-caseq (laptop (if (= (device-pixel-width (selected-device)) 1600) 416 (user-home-directory)
412 ;; we're on a big external monitor 417 (getenv "HOME")))
413 (progn 418 (site-caseq (laptop
414 (set-frame-pixel-size (selected-frame) 900 1140) 419 (if (fboundp 'device-pixel-width)
415 (set-frame-position (selected-frame) -3 -20))))) 420 (let ((pw (device-pixel-width (selected-device))))
421 (cond ((= pw 1680)
422 ;; we're on a big external monitor
423 (set-frame-pixel-size (selected-frame) 900 960)
424 (set-frame-position (selected-frame) -3 -20))
425 ((= (device-pixel-height (selected-device)) 768)
426 ;; we're on a narrow cinema-ratio laptop
427 (set-frame-pixel-size (selected-frame) 690 710)
428 (set-frame-position (selected-frame) -5 -26))
429 ((= (device-pixel-height (selected-device)) 900)
430 ;; we're on a cinema-ratio laptop
431 (set-frame-pixel-size (selected-frame) 800 820)
432 (set-frame-position (selected-frame) -3 -20))
433 ((= pw 1600)
434 ;; we're on a big external monitor
435 (set-frame-pixel-size (selected-frame) 900 1120)
436 (set-frame-position (selected-frame) -3 -20))
437 ((= pw 1280)
438 (set-frame-pixel-size (selected-frame) 700 960)
439 (set-frame-position (selected-frame) -3 -20)))))))
440
441 ;;; make dired list directories first
442 (defadvice dired-insert-directory (before my-dired-insert-directory
443 (dir-or-list switches &optional wildcard full-p))
444 (setq switches (concat switches " --group-directories-first")))
445
446 (ad-activate 'dired-insert-directory)
447
448 ;;; moved from custom.el, where they don't work
449 (setq
450 ecb-layout-name "leftright1"
451 ecb-layout-window-sizes '(("leftright1"
452 (ecb-directories-buffer-name 0.1474358974358974 . 0.3620689655172414)
453 (ecb-sources-buffer-name 0.1474358974358974 . 0.3275862068965517)
454 (ecb-history-buffer-name 0.1474358974358974 . 0.3103448275862069)
455 (ecb-methods-buffer-name 0.2051282051282051 . 1.0)))
456 ecb-options-version "2.40"
457 ecb-show-tags '((default
458 (include collapsed nil)
459 (parent collapsed nil)
460 (type flattened nil)
461 (variable collapsed name)
462 (function flattened name)
463 (label hidden nil)
464 (t collapsed nil))
465 (c++-mode
466 (include collapsed nil)
467 (parent collapsed nil)
468 (type flattened nil)
469 (variable collapsed access)
470 (function flattened access)
471 (function collapsed access)
472 (label hidden nil)
473 (t collapsed nil))
474 (c-mode
475 (include collapsed nil)
476 (parent collapsed nil)
477 (type flattened nil)
478 (variable collapsed access)
479 (function flattened access)
480 (function collapsed access)
481 (label hidden nil)
482 (t collapsed nil))
483 (bovine-grammar-mode
484 (keyword collapsed name)
485 (token collapsed name)
486 (nonterminal flattened name)
487 (rule flattened name)
488 (t collapsed nil))
489 (wisent-grammar-mode
490 (keyword collapsed name)
491 (token collapsed name)
492 (nonterminal flattened name)
493 (rule flattened name)
494 (t collapsed nil))
495 (texinfo-mode
496 (section flattened nil)
497 (def collapsed name)
498 (t collapsed nil)))
499 ecb-source-file-regexps '((".*"
500 ("\\(^\\(\\.\\|#\\)\\|\\(~$\\|\\.\\(elc\\|obj\\|o\\|class\\|lib\\|dll\\|a\\|so\\|cache\\|pyc\\)$\\)\\)")
501 ("^\\.\\(emacs\\|gnus\\)$")))
502 ecb-sources-exclude-cvsignore '(".*")
503 ediff-diff-options "--binary -b -w -B "
504 efs-ftp-program-name "/c/Windows/System32/ftp"
505 efs-ftp-flush-command "help help"
506 efs-tmp-name-template "C:\\Cygwin\\tmp\\efs"
507 ; efs-ftp-program-name "/usr/bin/ftp"
508 efs-use-passive-mode nil
509 gnus-treat-display-picons nil
510 ispell-local-dictionary "british"
511 ispell-program-name "aspell"
512 jde-ant-buildfile "build.xml"
513 jde-ant-enable-find t
514 jde-ant-read-target t
515 jde-auto-parse-buffer-interval 60
516 jde-db-option-application-args '("-err" "err.xml" "id.xpdl")
517 jde-enable-abbrev-mode t
518 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'> )" " )")
519 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'> )" " )")
520 jde-global-classpath '("/home/ht/MT/source/debug:/home/ht/MT/source/3rdparty/jh.jar:/home/ht/MT/source/3rdparty/jsearch.jar")
521 jde-jdk '("1.6.0")
522 jde-jdk-registry '(("1.6.0" . "/c/Program Files/Java/jdk1.6.0_23")
523 ("1.5.0" . "/c/Program Files/j2sdk1.5.0"))
524 fill-indent-according-to-mode t
525 )