Mercurial > hg > cc > cirrus_home
diff lib/emacs/pers-init.el @ 185:acae526510e2
too many overdue updates to break down
| author | Henry S. Thompson <ht@inf.ed.ac.uk> |
|---|---|
| date | Wed, 06 Dec 2023 13:38:58 +0000 |
| parents | 3314f46a782f |
| children |
line wrap: on
line diff
--- a/lib/emacs/pers-init.el Fri Sep 08 21:44:48 2023 +0100 +++ b/lib/emacs/pers-init.el Wed Dec 06 13:38:58 2023 +0000 @@ -7,11 +7,6 @@ ;;; split into common-init for all my incarnations and pers-init for private ;;; added lemacs compatibility -;;; Screen -(let ((f (selected-frame))) - (set-frame-width f 81) - (set-frame-height f 48)) - ;;; mail stuff (setq mail-archive-file-name "~/mail/cpy/general") (setq rmail-dont-reply-to-names "hthompso*\\|h\\.thompso*\\|ht@*" ) @@ -54,12 +49,12 @@ (switch-to-buffer (make-shell "kcl" "kcl")) (inferior-lisp-mode)) -;(require 'mdn-extras) +(require 'mdn-extras) (setq auto-mode-alist (append '(("/perl/" . perl-mode) ("\\.scm$" . scheme-mode)) auto-mode-alist)) -;(setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite") +(setq inferior-lisp-program "/c/Progra~1/ChezSc~1.4/bin/i3nt/petite") ;;; for scheme (put 'letrec 'lisp-indent-function 1) (put 'case 'lisp-indent-function 1) @@ -85,7 +80,7 @@ (parc "prolog")))) (inferior-prolog-mode)) -(site-caseq ((laptop maritain cirrus)) +(site-caseq ((laptop maritain)) (t(require 'hist) (rplacd (assoc "*shell*" hk-pat-table) "[a-z]+<[0-9]+>: "))) @@ -101,7 +96,7 @@ ;(require 'compress) (if (string-match "Lucid" emacs-version) - (site-caseq ((laptop maritain cirrus)) + (site-caseq ((laptop maritain)) (t(require 'lemacs-compat)))) (if (boundp 'epoch::version) @@ -168,10 +163,10 @@ (font-lock-mode 1))) (add-hook 'python-mode-hook '(lambda () (font-lock-mode 1))) - ;(setq py-python-command "//c/Program Files/Python22/python") + (setq py-python-command "//c/Program Files/Python22/python") (setq sgml-insert-missing-element-comment nil) - ;(load "psgml" nil t) - ;(load "psgml-edit" nil t) + (load "psgml" nil t) + (load "psgml-edit" nil t) ;; (load "xml-hack" nil t) ; (setq sgml-catalog-files '("CATALOG" "f:/lib/sgml/catalog")) (if (string-match "i386" (emacs-version)) @@ -186,18 +181,14 @@ ; (require 'gnus-min) )) - (site-caseq ((cirrus)) - (t (load "gnus-init" nil t))) + (load "gnus-init" nil t) ;; (require 'idle) ;; (idle-save 15) (if (string-match "Lucid" emacs-version) ;; lemacs only goes here - (site-caseq ((cirrus) - ;(load "perl-mode" nil t) - ) - (t(progn + (progn (setq bbdb-north-american-phone-numbers-p nil) (setq bbdb-use-pop-up nil) (require 'bbdb) @@ -261,7 +252,7 @@ (unwind-protect (make-screen-for-room "mail" "-75" "+113")) (sit-for 1) (delete-screen scr)) - (setq ht-default-config (current-window-configuration))))))) + (setq ht-default-config (current-window-configuration))))) ;; vanilla v19 goes here (if window-system (progn @@ -271,7 +262,6 @@ (cursor-type . bar))) (nconc (site-caseq ((laptop maritain) (list '(height . 35))) - ((cirrus)) (t (list '(font . @@ -422,12 +412,7 @@ ((= pw 1920) ;; we're on a 27" curved external monitor (set-frame-pixel-size (selected-frame) 720 980) - (site-caseq (cirrus - (set-frame-position - (selected-frame) 0 0)) - (t - (set-frame-position - (selected-frame) -8 2)))) + (set-frame-position (selected-frame) -8 2)) ((= pw 1680) ;; we're on a big external monitor (font-menu-set-font nil nil 10) @@ -468,8 +453,8 @@ (ht-custom-size) ;;; make dired list directories first -;(defadvice dired-insert-directory (before my-dired-insert-directory -; (dir-or-list switches &optional wildcard full-p)) -; (setq switches (concat switches " --group-directories-first"))) +(defadvice dired-insert-directory (before my-dired-insert-directory + (dir-or-list switches &optional wildcard full-p)) + (setq switches (concat switches " --group-directories-first"))) -;(ad-activate 'dired-insert-directory) +(ad-activate 'dired-insert-directory)