(set-frame-parameter frame 'menu-bar-lines 0)
(set-frame-parameter frame 'menu-bar-lines old)))
+;; Page motion.
+
+(defun mdw-fixup-page-position ()
+ (unless (eq (char-before (point)) ?\f)
+ (forward-line 0)))
+
+(defadvice backward-page (after mdw-fixup compile activate)
+ (mdw-fixup-page-position))
+(defadvice forward-page (after mdw-fixup compile activate)
+ (mdw-fixup-page-position))
+
;; Splitting windows.
(unless (fboundp 'scroll-bar-columns)
sb-width))
(mdw-divvy-window width)))
+(defvar mdw-frame-width-fudge
+ (cond ((<= emacs-major-version 20) 1)
+ ((= emacs-major-version 26) 3)
+ (t 0))
+ "The number of extra columns to add to the desired frame width.
+
+This is sadly necessary because Emacs 26 is broken in this regard.")
+
;; Don't raise windows unless I say so.
(defvar mdw-inhibit-raise-frame nil
(months ["Chaos" "Discord" "Confusion"
"Bureaucracy" "Aftermath"])
(day-count [0 31 59 90 120 151 181 212 243 273 304 334])
- (year (- (extract-calendar-year date) 1900))
- (month (1- (extract-calendar-month date)))
- (day (1- (extract-calendar-day date)))
+ (year (- (calendar-extract-year date) 1900))
+ (month (1- (calendar-extract-month date)))
+ (day (1- (calendar-extract-day date)))
(julian (+ (aref day-count month) day))
(dyear (+ year 3066)))
(if (and (= month 1) (= day 28))
(let ((mdw-diary-for-org-mode-p t))
ad-do-it))
+(defvar diary-time-regexp nil)
+
(defadvice diary-add-to-list (before mdw-trim-leading-space compile activate)
"Trim leading space from the diary entry string."
(save-match-data
(let ((home-frame (selected-frame))
(buffer (get-buffer buffer-or-name))
(safe-buffer (get-buffer "*scratch*")))
- (mapc (lambda (frame)
- (or (eq frame home-frame)
- (mapc (lambda (window)
- (and (eq (window-buffer window) buffer)
- (set-window-buffer window safe-buffer)))
- (window-list frame))))
- (frame-list))))
+ (dolist (frame (frame-list))
+ (unless (eq frame home-frame)
+ (dolist (window (window-list frame))
+ (when (eq (window-buffer window) buffer)
+ (set-window-buffer window safe-buffer)))))))
(defvar mdw-inhibit-walk-windows nil
"If non-nil, then `walk-windows' does nothing.
This is used by advice on `switch-to-buffer-other-frame' to inhibit finding
buffers in random frames.")
+(setq display-buffer--other-frame-action
+ '((display-buffer-reuse-window display-buffer-pop-up-frame)
+ (reusable-frames . nil)
+ (inhibit-same-window . t)))
+
(defadvice walk-windows (around mdw-inhibit activate)
"If `mdw-inhibit-walk-windows' is non-nil, then do nothing."
(and (not mdw-inhibit-walk-windows)
(delete-region (+ (match-beginning 0) 2) (point))
(setq string (buffer-substring (point) (+ (point) size)))
(delete-region (point) (+ (point) size))
- (insert (format "%S" (mm-subst-char-in-string ?\n ?\s string)))
+ (insert (format "%S" (subst-char-in-string ?\n ?\s string)))
;; [mdw] missing from upstream
(backward-char 1))
(beginning-of-line)
'(defalias 'nnimap-transform-headers
(symbol-function 'mdw-nnimap-transform-headers)))
+(defadvice gnus-other-frame (around mdw-hack-frame-width compile activate)
+ "Always arrange for mail/news frames to be 80 columns wide."
+ (let ((default-frame-alist (cons `(width . ,(+ 80 mdw-frame-width-fudge))
+ (cl-delete 'width default-frame-alist
+ :key #'car))))
+ ad-do-it))
+
+;; Preferred programs.
+
+(setq mailcap-user-mime-data
+ '(((type . "application/pdf") (viewer . "mupdf %s"))))
+
;;;--------------------------------------------------------------------------
;;; Utility functions.
(set (make-local-variable 'mdw-do-misc-mode-hacking) t)
(local-set-key [C-return] 'newline)
(make-local-variable 'page-delimiter)
- (setq page-delimiter "\f\\|^.*-\\{6\\}.*$")
+ (setq page-delimiter (concat "^" "\f"
+ "\\|" "^"
+ ".\\{0,4\\}"
+ "-\\{5\\}"
+ "\\(" " " ".*" " " "\\)?"
+ "-+"
+ ".\\{0,2\\}"
+ "$"))
(setq comment-column 40)
(auto-fill-mode 1)
(setq fill-column mdw-text-width)
(((type w32)) :family "courier new" :height 85)
(((type x)) :family "6x13" :foundry "trad" :height 130)
(t :foreground "white" :background "black"))
-(if (mdw-emacs-version-p 23)
- (mdw-define-face variable-pitch
- (((type x)) :family "sans" :height 100))
- (mdw-define-face variable-pitch
- (((type x)) :family "helvetica" :height 90)))
+(mdw-define-face fixed-pitch-serif
+ (((type w32)) :family "courier new" :height 85 :weight bold)
+ (((type x)) :family "6x13" :foundry "trad" :height 130 :weight bold)
+ (t :foreground "white" :background "black" :weight bold))
+(mdw-define-face variable-pitch
+ (((type x)) :family "helvetica" :height 120))
(mdw-define-face region
(((min-colors 64)) :background "grey30")
(((class color)) :background "blue")
(mdw-define-face comint-highlight-input
(t nil))
+(mdw-define-face Man-underline
+ (((type tty)) :underline t)
+ (t :slant italic))
+
(mdw-define-face ido-subdir
(t :foreground "cyan" :weight bold))
mdw-point-overlay-mode
(lambda () (if (not (minibufferp)) (mdw-point-overlay-mode t))))
+(defvar mdw-terminal-title-alist nil)
+(defun mdw-update-terminal-title ()
+ (when (let ((term (frame-parameter nil 'tty-type)))
+ (and term (string-match "^xterm" term)))
+ (let* ((tty (frame-parameter nil 'tty))
+ (old (assoc tty mdw-terminal-title-alist))
+ (new (format-mode-line frame-title-format)))
+ (unless (and old (equal (cdr old) new))
+ (if old (rplacd old new)
+ (setq mdw-terminal-title-alist
+ (cons (cons tty new) mdw-terminal-title-alist)))
+ (send-string-to-terminal (concat "\e]2;" new "\e\\"))))))
+
+(add-hook 'post-command-hook 'mdw-update-terminal-title)
+
;;;--------------------------------------------------------------------------
;;; C programming configuration.
"Major mode for editing Sod code.")
(push '("\\.sod$" . sod-mode) auto-mode-alist)
+(dolist (hook '(c-mode-hook objc-mode-hook c++-mode-hook))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-c-and-c++ t))
+
;;;--------------------------------------------------------------------------
;;; AP calc mode.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'apcalc-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'apcalc-mode-hook 'mdw-fontify-apcalc t))
+
;;;--------------------------------------------------------------------------
;;; Java programming configuration.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'java-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'java-mode-hook 'mdw-fontify-java t))
+
;;;--------------------------------------------------------------------------
;;; Javascript programming configuration.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'js-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'js-mode-hook 'mdw-fontify-javascript t))
+
;;;--------------------------------------------------------------------------
;;; Scala programming configuration.
'(1 "\"")
'(4 "\""))))))
+(progn
+ (add-hook 'scala-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'scala-mode-hook 'mdw-fontify-scala t))
+
;;;--------------------------------------------------------------------------
;;; C# programming configuration.
(define-derived-mode csharp-mode java-mode "C#"
"Major mode for editing C# code.")
+(add-hook 'csharp-mode-hook 'mdw-fontify-csharp t)
+
;;;--------------------------------------------------------------------------
;;; F# programming configuration.
(list "^>" '(0 font-lock-keyword-face)))
font-lock-keywords)))
+(progn
+ (add-hook 'fsharp-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'fsharp-mode-hook 'mdw-fontify-fsharp t)
+ (add-hook 'inferior-fsharp-mode-hooks 'mdw-fontify-inferior-fsharp t))
+
;;;--------------------------------------------------------------------------
;;; Go programming configuration.
;; And anything else is punctuation.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'go-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'go-mode-hook 'mdw-fontify-go t))
;;;--------------------------------------------------------------------------
;;; Rust programming configuration.
(local-set-key [?{] 'mdw-self-insert-and-indent)
(local-set-key [?}] 'mdw-self-insert-and-indent))
+(progn
+ (add-hook 'rust-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'rust-mode-hook 'mdw-fontify-rust t))
+
;;;--------------------------------------------------------------------------
;;; Awk programming configuration.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'awk-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'awk-mode-hook 'mdw-fontify-awk t))
+
;;;--------------------------------------------------------------------------
;;; Perl programming style.
;; Perl indentation style.
-(setq perl-indent-level 2)
+(setq-default perl-indent-level 2)
-(setq cperl-indent-level 2)
-(setq cperl-continued-statement-offset 2)
-(setq cperl-continued-brace-offset 0)
-(setq cperl-brace-offset -2)
-(setq cperl-brace-imaginary-offset 0)
-(setq cperl-label-offset 0)
+(setq-default cperl-indent-level 2
+ cperl-continued-statement-offset 2
+ cperl-continued-brace-offset 0
+ cperl-brace-offset -2
+ cperl-brace-imaginary-offset 0
+ cperl-label-offset 0)
;; Define perl fontification style.
(if (re-search-forward "\\(tests\\s-*=>\\s-*\\)\\w*" nil t)
(replace-match (format "\\1%d" i))))))
+(dolist (hook '(perl-mode-hook cperl-mode-hook))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-perl t))
+
;;;--------------------------------------------------------------------------
;;; Python programming style.
+(setq-default py-indent-offset 2
+ python-indent 2
+ python-indent-offset 2
+ python-fill-docstring-style 'symmetric)
+
(defun mdw-fontify-pythonic (keywords)
;; Miscellaneous fiddling.
("\\.pxi$" . pyrex-mode))
auto-mode-alist))
+(progn
+ (add-hook 'python-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'python-mode-hook 'mdw-fontify-python t)
+ (add-hook 'pyrex-mode-hook 'mdw-fontify-pyrex t))
+
;;;--------------------------------------------------------------------------
;;; Lua programming style.
-(setq lua-indent-level 2)
+(setq-default lua-indent-level 2)
(defun mdw-fontify-lua ()
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'lua-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'lua-mode-hook 'mdw-fontify-lua t))
+
;;;--------------------------------------------------------------------------
;;; Icon programming style.
;; Icon indentation style.
-(setq icon-brace-offset 0
- icon-continued-brace-offset 0
- icon-continued-statement-offset 2
- icon-indent-level 2)
+(setq-default icon-brace-offset 0
+ icon-continued-brace-offset 0
+ icon-continued-statement-offset 2
+ icon-indent-level 2)
;; Define Icon fontification style.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'icon-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'icon-mode-hook 'mdw-fontify-icon t))
+
;;;--------------------------------------------------------------------------
;;; Assembler mode.
(add-hook 'asm-mode-local-variables-hook 'mdw-asm-set-comment)
(put 'asm-comment-char 'safe-local-variable 'characterp)
+(progn
+ (add-hook 'asm-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'asm-mode-hook 'mdw-fontify-asm t))
+
;;;--------------------------------------------------------------------------
;;; TCL configuration.
+(setq-default tcl-indent-level 2)
+
(defun mdw-fontify-tcl ()
- (mapcar #'(lambda (ch) (modify-syntax-entry ch ".")) '(?$))
+ (dolist (ch '(?$))
+ (modify-syntax-entry ch "."))
(mdw-standard-fill-prefix "\\([ \t]*#+[ \t]*\\)")
(make-local-variable 'font-lock-keywords)
(setq font-lock-keywords
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face)))))
+(progn
+ (add-hook 'tcl-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'tcl-mode-hook 'mdw-fontify-tcl t))
+
;;;--------------------------------------------------------------------------
;;; Dylan programming configuration.
"\\)")
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'dylan-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'dylan-mode-hook 'mdw-fontify-dylan t))
+
;;;--------------------------------------------------------------------------
;;; Algol 68 configuration.
-(setq a68-indent-step 2)
+(setq-default a68-indent-step 2)
(defun mdw-fontify-algol-68 ()
(list "\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/"
'(0 mdw-punct-face))))))
+(dolist (hook '(a68-mode-hook a68-mode-hooks))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-algol-68 t))
+
;;;--------------------------------------------------------------------------
;;; REXX configuration.
(setq mdw-auto-indent nil)
(local-set-key [?\C-m] 'mdw-rexx-indent-newline-indent)
(local-set-key [?*] 'mdw-rexx-electric-*)
- (mapcar #'(lambda (ch) (modify-syntax-entry ch "w"))
- '(?! ?? ?# ?@ ?$))
- (mapcar #'(lambda (ch) (modify-syntax-entry ch "."))
- '(?¬))
+ (dolist (ch '(?! ?? ?# ?@ ?$)) (modify-syntax-entry ch "w"))
+ (dolist (ch '(?¬)) (modify-syntax-entry ch "."))
(mdw-standard-fill-prefix "\\([ \t]*/?\*[ \t]*\\)")
;; Set up keywords and things for fontification.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'rexx-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'rexx-mode-hook 'mdw-fontify-rexx t))
+
;;;--------------------------------------------------------------------------
;;; Standard ML programming style.
+(setq-default sml-nested-if-indent t
+ sml-case-indent nil
+ sml-indent-level 4
+ sml-type-of-indent nil)
+
(defun mdw-fontify-sml ()
;; Make underscore an honorary letter.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'sml-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'sml-mode-hook 'mdw-fontify-sml t))
+
;;;--------------------------------------------------------------------------
;;; Haskell configuration.
+(setq-default haskell-indent-offset 2)
+
(defun mdw-fontify-haskell ()
;; Fiddle with syntax table to get comments right.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'haskell-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'haskell-mode-hook 'mdw-fontify-haskell t))
+
;;;--------------------------------------------------------------------------
;;; Erlang configuration.
-(setq erlang-electric-commands nil)
+(setq-default erlang-electric-commands nil)
(defun mdw-fontify-erlang ()
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face))))))
+(progn
+ (add-hook 'erlang-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'erlang-mode-hook 'mdw-fontify-erlang t))
+
;;;--------------------------------------------------------------------------
;;; Texinfo configuration.
(list "[{}]+"
'(0 mdw-punct-face)))))
+(dolist (hook '(texinfo-mode-hook TeXinfo-mode-hook))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-texinfo t))
+
;;;--------------------------------------------------------------------------
;;; TeX and LaTeX configuration.
+(setq-default LaTeX-table-label "tbl:"
+ TeX-auto-untabify nil
+ LaTeX-syntactic-comments nil
+ LaTeX-fill-break-at-separators '(\\\[))
+
(defun mdw-fontify-tex ()
(setq ispell-parser 'tex)
(turn-on-reftex)
(unless modified
(restore-buffer-modified-p nil)))))))
-(setq LaTeX-syntactic-comments nil
- LaTeX-fill-break-at-separators '(\\\[))
-
-(add-hook 'bibtex-mode-hook (lambda () (setq fill-column 76)))
+(setq TeX-output-view-style
+ '(("^dvi$"
+ ("^landscape$" "^pstricks$\\|^pst-\\|^psfrag$")
+ "%(o?)dvips -t landscape %d -o && xdg-open %f")
+ ("^dvi$" "^pstricks$\\|^pst-\\|^psfrag$"
+ "%(o?)dvips %d -o && xdg-open %f")
+ ("^dvi$"
+ ("^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$" "^landscape$")
+ "%(o?)xdvi %dS -paper a4r -s 0 %d")
+ ("^dvi$" "^a4\\(?:dutch\\|paper\\|wide\\)\\|sem-a4$"
+ "%(o?)xdvi %dS -paper a4 %d")
+ ("^dvi$"
+ ("^a5\\(?:comb\\|paper\\)$" "^landscape$")
+ "%(o?)xdvi %dS -paper a5r -s 0 %d")
+ ("^dvi$" "^a5\\(?:comb\\|paper\\)$" "%(o?)xdvi %dS -paper a5 %d")
+ ("^dvi$" "^b5paper$" "%(o?)xdvi %dS -paper b5 %d")
+ ("^dvi$" "^letterpaper$" "%(o?)xdvi %dS -paper us %d")
+ ("^dvi$" "^legalpaper$" "%(o?)xdvi %dS -paper legal %d")
+ ("^dvi$" "^executivepaper$" "%(o?)xdvi %dS -paper 7.25x10.5in %d")
+ ("^dvi$" "." "%(o?)xdvi %dS %d")
+ ("^pdf$" "." "xdg-open %o")
+ ("^html?$" "." "sensible-browser %o")))
+
+(setq TeX-view-program-list
+ '(("mupdf" ("mupdf %o" (mode-io-correlate " %(outpage)")))))
+
+(setq TeX-view-program-selection
+ '(((output-dvi style-pstricks) "dvips and gv")
+ (output-dvi "xdvi")
+ (output-pdf "mupdf")
+ (output-html "sensible-browser")))
+
+(setq TeX-open-quote "\""
+ TeX-close-quote "\"")
+
+(setq reftex-use-external-file-finders t
+ reftex-auto-recenter-toc t)
+
+(setq reftex-label-alist
+ '(("theorem" ?T "th:" "~\\ref{%s}" t ("theorems?" "th\\.") -2)
+ ("axiom" ?A "ax:" "~\\ref{%s}" t ("axioms?" "ax\\.") -2)
+ ("definition" ?D "def:" "~\\ref{%s}" t ("definitions?" "def\\.") -2)
+ ("proposition" ?P "prop:" "~\\ref{%s}" t
+ ("propositions?" "prop\\.") -2)
+ ("lemma" ?L "lem:" "~\\ref{%s}" t ("lemmas?" "lem\\.") -2)
+ ("example" ?X "eg:" "~\\ref{%s}" t ("examples?") -2)
+ ("exercise" ?E "ex:" "~\\ref{%s}" t ("exercises?" "ex\\.") -2)
+ ("enumerate" ?i "i:" "~\\ref{%s}" item ("items?"))))
+(setq reftex-section-prefixes
+ '((0 . "part:")
+ (1 . "ch:")
+ (t . "sec:")))
+
+(setq bibtex-field-delimiters 'double-quotes
+ bibtex-align-at-equal-sign t
+ bibtex-entry-format '(realign opts-or-alts required-fields
+ numerical-fields last-comma delimiters
+ unify-case sort-fields braces)
+ bibtex-sort-ignore-string-entries nil
+ bibtex-maintain-sorted-entries 'entry-class
+ bibtex-include-OPTkey t
+ bibtex-autokey-names-stretch 1
+ bibtex-autokey-expand-strings t
+ bibtex-autokey-name-separator "-"
+ bibtex-autokey-year-length 4
+ bibtex-autokey-titleword-separator "-"
+ bibtex-autokey-name-year-separator "-"
+ bibtex-autokey-year-title-separator ":")
+
+(progn
+ (dolist (hook '(tex-mode-hook latex-mode-hook
+ TeX-mode-hook LaTeX-mode-hook))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-tex t))
+ (add-hook 'bibtex-mode-hook (lambda () (setq fill-column 76))))
;;;--------------------------------------------------------------------------
;;; HTML, CSS, and other web foolishness.
-(setq css-indent-offset 2)
+(setq-default css-indent-offset 2)
;;;--------------------------------------------------------------------------
;;; SGML hacking.
+(setq-default psgml-html-build-new-buffer nil)
+
(defun mdw-sgml-mode ()
(interactive)
(sgml-mode)
nil)
(t
(let ((table (copy-syntax-table (syntax-table))))
- (mapc (lambda (ch) (modify-syntax-entry ch "." table))
- (if (listp flag) flag (list flag)))
+ (dolist (ch (if (listp flag) flag (list flag)))
+ (modify-syntax-entry ch "." table))
(set-syntax-table table)
(and font-lock-mode (font-lock-fontify-buffer)))))))
-(add-hook 'conf-mode-local-variables-hook 'mdw-fix-up-quote t t)
+
+(progn
+ (add-hook 'conf-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'conf-mode-local-variables-hook 'mdw-fix-up-quote t t))
;;;--------------------------------------------------------------------------
;;; Shell scripts.
(cons (cons 'rc frag)
sh-mode-syntax-table-input))))))
+(progn
+ (add-hook 'sh-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'sh-mode-hook 'mdw-setup-sh-script-mode t))
+
;;;--------------------------------------------------------------------------
;;; Emacs shell mode.
(concat "~" (substring pwd (length home)))
pwd))
right)))
-(setq eshell-prompt-function 'mdw-eshell-prompt)
-(setq eshell-prompt-regexp "^\\[[^]>]+\\(\\]\\|>>?\\)")
+(setq-default eshell-prompt-function 'mdw-eshell-prompt)
+(setq-default eshell-prompt-regexp "^\\[[^]>]+\\(\\]\\|>>?\\)")
(defun eshell/e (file) (find-file file) nil)
(defun eshell/ee (file) (find-file-other-window file) nil)
messages-mode-keywords)))
(run-hooks 'cpp-messages-mode-hook))
-(add-hook 'messages-mode-hook 'mdw-misc-mode-config t)
-(add-hook 'cpp-messages-mode-hook 'mdw-misc-mode-config t)
-; (add-hook 'messages-file-hook 'mdw-fontify-messages t)
+(progn
+ (add-hook 'messages-mode-hook 'mdw-misc-mode-config t)
+ (add-hook 'cpp-messages-mode-hook 'mdw-misc-mode-config t)
+ ;; (add-hook 'messages-file-hook 'mdw-fontify-messages t)
+ )
;;;--------------------------------------------------------------------------
;;; Messages-file mode.
(setq comment-end "")
(run-hooks 'mallow-driver-mode-hook))
-(add-hook 'mallow-driver-hook 'mdw-misc-mode-config t)
+(progn
+ (add-hook 'mallow-driver-hook 'mdw-misc-mode-config t))
;;;--------------------------------------------------------------------------
;;; NFast debugs.
(make-local-variable 'lisp-indent-function)
(setq lisp-indent-function 'common-lisp-indent-function))
-(setq lisp-simple-loop-indentation 2
- lisp-loop-keyword-indentation 6
- lisp-loop-forms-indentation 6)
+(setq-default lisp-simple-loop-indentation 2
+ lisp-loop-keyword-indentation 6
+ lisp-loop-forms-indentation 6)
(defmacro mdw-advise-hyperspec-lookup (func args)
`(defadvice ,func (around mdw-browse-w3m ,args activate compile)
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face)))))
+;; SLIME setup.
+
+(trap
+ (if (not mdw-fast-startup)
+ (progn
+ (require 'slime-autoloads)
+ (slime-setup '(slime-autodoc slime-c-p-c)))))
+
+(let ((stuff '((cmucl ("cmucl"))
+ (sbcl ("sbcl") :coding-system utf-8-unix)
+ (clisp ("clisp") :coding-system utf-8-unix))))
+ (or (boundp 'slime-lisp-implementations)
+ (setq slime-lisp-implementations nil))
+ (while stuff
+ (let* ((head (car stuff))
+ (found (assq (car head) slime-lisp-implementations)))
+ (setq stuff (cdr stuff))
+ (if found
+ (rplacd found (cdr head))
+ (setq slime-lisp-implementations
+ (cons head slime-lisp-implementations))))))
+(setq slime-default-lisp 'sbcl)
+
+;; Hooks.
+
+(progn
+ (dolist (hook '(emacs-lisp-mode-hook
+ scheme-mode-hook
+ lisp-mode-hook
+ inferior-lisp-mode-hook
+ lisp-interaction-mode-hook
+ ielm-mode-hook
+ slime-repl-mode-hook))
+ (add-hook hook 'mdw-misc-mode-config t)
+ (add-hook hook 'mdw-fontify-lispy t))
+ (add-hook 'lisp-mode-hook 'mdw-common-lisp-indent t)
+ (add-hook 'inferior-lisp-mode-hook
+ #'(lambda () (local-set-key "\C-m" 'comint-send-and-indent)) t))
+
;;;--------------------------------------------------------------------------
;;; Other languages.
(list "\\(\\s.\\|\\s(\\|\\s)\\|\\s\\\\|\\s/\\)"
'(0 mdw-punct-face)))))
+(progn
+ (add-hook 'smalltalk-mode 'mdw-misc-mode-config t)
+ (add-hook 'smalltalk-mode 'mdw-fontify-smalltalk t))
+
;; m4.
(defun mdw-setup-m4 ()
;; Fill prefix.
(mdw-standard-fill-prefix "\\([ \t]*\\(?:#+\\|\\<dnl\\>\\)[ \t]*\\)"))
+(dolist (hook '(m4-mode-hook autoconf-mode-hook autotest-mode-hook))
+ (add-hook hook #'mdw-misc-mode-config t)
+ (add-hook hook #'mdw-setup-m4 t))
+
+;; Make.
+
+(progn
+ (add-hook 'makefile-mode-hook 'mdw-misc-mode-config t))
+
;;;--------------------------------------------------------------------------
;;; Text mode.
(eval-after-load "flyspell"
'(define-key flyspell-mode-map "\C-\M-i" nil))
+(progn
+ (add-hook 'text-mode-hook 'mdw-text-mode t))
+
;;;--------------------------------------------------------------------------
;;; Outline and hide/show modes.
;;;--------------------------------------------------------------------------
;;; Magit configuration.
-(setq magit-diff-refine-hunk 'all
+(setq magit-diff-refine-hunk 't
magit-view-git-manual-method 'man
magit-log-margin '(nil age magit-log-margin-width t 18)
magit-wip-after-save-local-mode-lighter ""
(set-window-dedicated-p (or window (selected-window)) nil))
;;;--------------------------------------------------------------------------
+;;; Man pages.
+
+;; Turn off `noip' when running `man': it interferes with `man-db''s own
+;; seccomp(2)-based sandboxing, which is (in this case, at least) strictly
+;; better.
+(defadvice Man-getpage-in-background
+ (around mdw-inhibit-noip (topic) compile activate)
+ "Inhibit the `noip' preload hack when invoking `man'."
+ (let* ((old-preload (getenv "LD_PRELOAD"))
+ (preloads (save-match-data (split-string old-preload ":")))
+ (any nil)
+ (filtered nil))
+ (while preloads
+ (let ((item (pop preloads)))
+ (if (save-match-data
+ (string-match "\\(/\\|^\\)noip\.so\\(:\\|$\\)" item))
+ (setq any t)
+ (push item filtered))))
+ (if any
+ (unwind-protect
+ (progn
+ (setenv "LD_PRELOAD"
+ (and filtered
+ (with-output-to-string
+ (setq filtered (nreverse filtered))
+ (let ((first t))
+ (while filtered
+ (if first (setq first nil)
+ (write-char ?:))
+ (write-string (pop filtered)))))))
+ ad-do-it)
+ (setenv "LD_PRELOAD" old-preload))
+ ad-do-it)))
+
+;;;--------------------------------------------------------------------------
;;; MPC configuration.
(eval-when-compile (trap (require 'mpc)))