dot/emacs: Longer logs by default in Magit.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 80f0cb5..1a69858 100644 (file)
--- a/dot/emacs
+++ b/dot/emacs
@@ -59,6 +59,8 @@
      (not (memq 'git vc-handled-backends))
      (setq vc-handled-backends (cons 'GIT vc-handled-backends)))
 
+(setq magit-log-cutoff-length 512)
+
 (trap (or mdw-fast-startup (require 'p4)))
 
 (trap (or mdw-fast-startup (require 'tex-site)))
@@ -144,6 +146,7 @@
       message-yank-prefix "> "
       message-yank-cited-prefix "> "
       message-send-mail-function 'message-send-mail-with-sendmail
+      message-sendmail-envelope-from 'header
       message-indent-citation-function '(message-indent-citation
                                         mdw-trim-spaces-after-citing))
 
@@ -221,10 +224,11 @@
 (setq scroll-step 5)                   ;Don't scroll too much at a time
 (setq-default fill-column 77)          ;I use rather narrow windows
 (setq-default comment-column 40)       ;Set a standard comment column
-(setq-default truncate-partial-width-windows nil)
+(setq-default truncate-partial-width-windows nil
+             truncate-lines t)
 (setq default-indicate-empty-lines t)
 (setq whitespace-style
-      '(trailing space-before-tab space-after-tab empty indentation))
+      '(trailing space-before-tab space-after-tab empty indentation face))
 (setq woman-use-own-frame nil          ;Keep man pages somewhere sensible
       woman-fill-column 72)            ;Right margin position.
 (setq diff-switches "-u"               ;I like reading unified diffs
@@ -267,6 +271,10 @@
      (define-key outline-mode-prefix-map [?\C-r] 'reveal-mode)
      (define-key outline-mode-prefix-map [?\C--] 'mdw-outline-collapse-all)))
 
+(setq imenu-auto-rescan t
+      imenu-auto-rescan-maxout (* 128 1024)
+      imenu-max-items 60)
+
 (setq cltl2-root-url (mdw-config 'cltl-url))
 (setq common-lisp-hyperspec-root (mdw-config 'hyperspec-url))
 
@@ -463,6 +471,7 @@
                  'mouse-drag-vertical-line)
   (global-set-key [vertical-scroll-bar C-mouse-1]
                  #'(lambda () (interactive)))
+  (global-set-key [M-S-mouse-3] 'imenu)
   (global-set-key [XF86WakeUp] "")
   (and (not mdw-fast-startup) (fboundp 'hippie-expand)
        (global-set-key [?\M-/] 'hippie-expand)))
@@ -508,6 +517,7 @@
                ;; ("/[ch]/" . c-mode)
                (,(concat "/\\("
                          "\\.stgit\\.msg" "\\|"
+                         "\\.topmsg" "\\|"
                          "\\.git/COMMIT_EDITMSG" "\\|"
                          "svn-commit\\.tmp" "\\|"
                          "svk-commit[^/.]*\\.tmp"
@@ -535,7 +545,12 @@
              auto-mode-alist))
 
 (setq interpreter-mode-alist
-      (append `(("runlisp" . lisp-mode))
+      (append `(("runlisp" . lisp-mode)
+               ("@BASH" . sh-mode)
+               ("@PYTHON@" . python-mode)
+               ("@PERL@" . perl-mode)
+               ("@TCLSH@" . tcl-mode)
+               ("@WISH@" . tcl-mode))
              interpreter-mode-alist))
 
 (setq completion-ignored-extensions
@@ -552,19 +567,20 @@
 
 (make-variable-buffer-local 'mdw-auto-indent)
 
-(mapcar (lambda (hook) (add-hook hook 'mdw-misc-mode-config))
-       '(c-mode-hook c++-mode-hook objc-mode-hook java-mode-hook
-         csharp-mode-hook perl-mode-hook cperl-mode-hook
-         python-mode-hook pyrec-mode-hook icon-mode-hook awk-mode-hook
-         tcl-mode-hook go-mode-hook js-mode-hook
-         asm-mode-hook TeX-mode-hook LaTeX-mode-hook
-         TeXinfo-mode-hook tex-mode-hook latex-mode-hook
-         texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
-         lisp-mode-hook lisp-interaction-mode-hook
-         inferior-lisp-mode-hook slime-repl-mode-hook
-         sml-mode-hook haskell-mode-hook erlang-mode-hook
-         smalltalk-mode-hook rexx-mode-hook
-         arm-assembler-mode-hook))
+(mapc (lambda (hook) (add-hook hook 'mdw-misc-mode-config))
+      '(c-mode-hook c++-mode-hook objc-mode-hook java-mode-hook
+       csharp-mode-hook perl-mode-hook cperl-mode-hook
+       python-mode-hook pyrec-mode-hook icon-mode-hook awk-mode-hook
+       tcl-mode-hook go-mode-hook js-mode-hook conf-mode-hook
+       m4-mode-hook autoconf-mode-hook autotest-mode-hook
+       asm-mode-hook TeX-mode-hook LaTeX-mode-hook
+       TeXinfo-mode-hook tex-mode-hook latex-mode-hook
+       texinfo-mode-hook emacs-lisp-mode-hook scheme-mode-hook
+       lisp-mode-hook lisp-interaction-mode-hook makefile-mode-hook
+       inferior-lisp-mode-hook slime-repl-mode-hook
+       sml-mode-hook haskell-mode-hook erlang-mode-hook
+       smalltalk-mode-hook rexx-mode-hook
+       arm-assembler-mode-hook))
 
 (global-font-lock-mode t)
 (defalias 'perl-mode 'cperl-mode)
@@ -653,6 +669,7 @@
 
 (progn
   (setq-default py-indent-offset 2
+               python-indent 2
                py-python-command-args
                `("-i" "-colors" ,(if mdw-black-background
                                      "Linux" "LightBG")))
@@ -687,6 +704,7 @@
 
 (add-hook 'sh-mode-hook #'mdw-setup-sh-script-mode)
 (add-hook 'autoconf-mode-hook #'mdw-setup-m4)
+(add-hook 'autotest-mode-hook #'mdw-setup-m4)
 (add-hook 'm4-mode-hook #'mdw-setup-m4)
 
 (add-hook 'smalltalk-mode-hook 'mdw-fontify-smalltalk t)
@@ -732,6 +750,12 @@
        ("^pdf$" "." "evince %o")
        ("^html?$" "." "netscape %o")))
 
+(setq TeX-view-program-selection
+      '(((output-dvi style-pstricks) "dvips and gv")
+       (output-dvi "xdvi")
+       (output-pdf "Evince")
+       (output-html "xdg-open")))
+
 (setq TeX-open-quote "\""
       TeX-close-quote "\"")
 
@@ -744,7 +768,7 @@
        ("definition" ?D "def:" "~\\ref{%s}" t ("definitions?" "def\\.") -2)
        ("proposition" ?P "prop:" "~\\ref{%s}" t
         ("propositions?" "prop\\.") -2)
-       ("lemma" ?P "lem:" "~\\ref{%s}" t ("lemmas?" "lem\\.") -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?"))))