dot/emacs: Get `w3m-el' to manage cookies.

[profile] / dot / emacs

diff --git a/dot/emacs b/dot/emacs
index 9fbd771..68c0068 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))
 
@@ -209,7 +212,7 @@
 (setq dabbrev-case-replace nil)                ;Retain case when completing
 (setq linum-format "%7d ")
 (setq next-line-add-newlines nil)      ;Don't add weird newlines
-(setq split-height-threshold 45)       ;Reuse windows where sensible
+(setq split-height-threshold nil)      ;Reuse windows where sensible
 (setq display-buffer-reuse-frames nil  ;Don't confuse me by showing buffers
       iswitchb-default-method 'samewindow) ;in other random frames
 (setq dired-deletion-confirmer         ;Make deletion easier in dired
@@ -225,7 +228,7 @@
              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
@@ -268,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))
 
@@ -285,7 +292,8 @@
       browse-url-generic-program "mdw-chrome"
       browse-url-mozilla-program "firefox")
 
-(setq w3m-default-display-inline-images t)
+(setq w3m-default-display-inline-images t
+      w3m-use-cookies t)
 
 (eval-after-load "w3m"
   '(let ((entries '(("application/pdf" "\\.pdf\\'" ("evince" file) nil)
@@ -464,6 +472,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)))
@@ -506,6 +515,7 @@
                ("\\.cs$" . csharp-mode)
                ("\\.go$" . go-mode)
                ("\\.org$" . org-mode)
+               ("\\.make$" . makefile-mode)
                ;; ("/[ch]/" . c-mode)
                (,(concat "/\\("
                          "\\.stgit\\.msg" "\\|"
@@ -538,10 +548,13 @@
 
 (setq interpreter-mode-alist
       (append `(("runlisp" . lisp-mode)
+               ("@BASH@" . sh-mode)
                ("@PYTHON@" . python-mode)
                ("@PERL@" . perl-mode)
                ("@TCLSH@" . tcl-mode)
-               ("@WISH@" . tcl-mode))
+               ("@WISH@" . tcl-mode)
+               ("/tclsh" . tcl-mode)
+               ("/wish" . tcl-mode))
              interpreter-mode-alist))
 
 (setq completion-ignored-extensions
@@ -759,7 +772,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?"))))