From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 27 Apr 2016 08:45:03 +0000 (+0100)
Subject: Merge branch 'master' of ustrat:~markw/git/staging/profile
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/profile/commitdiff_plain/a9e7b214b508f76c26b937f8342c7896854f38f9?hp=563555cf7d52da985de9ea6ca37f0facccec8f25

Merge branch 'master' of ustrat:~markw/git/staging/profile

* 'master' of ustrat:~markw/git/staging/profile:
  dot/emacs: Turn on `view-read-only' by default.
  el/dot-emacs.el: Hook more functions for angry-fruit-salad.
  dot/emacs: Kick BBDB to always include a name when completing addresses.
  dot/gitconfig.in: Tell Git where to find the cookie jar.
---

diff --git a/dot/emacs b/dot/emacs
index 88acfe4..1d902a6 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -200,6 +200,7 @@
     (trap (bbdb-initialize 'gnus 'sendmail 'message)))
 (setq bbdb-file "~/etc/brain/bbdb"
       bbdb-north-american-phone-numbers-p nil
+      bbdb-dwim-net-address-allow-redundancy t
       bbdb-extract-address-components-func 'bbdb-extract-address-components
       bbdb/news-auto-create-p
       (lambda ()
@@ -310,6 +311,7 @@
 (setq-default truncate-partial-width-windows nil
 	      truncate-lines t)
 (setq default-indicate-empty-lines t)
+(setq view-read-only t)
 (setq whitespace-style
       '(trailing space-before-tab space-after-tab empty indentation face))
 (setq woman-use-own-frame nil		;Keep man pages somewhere sensible
diff --git a/dot/gitconfig.in b/dot/gitconfig.in
index c642c13..8dd1f90 100644
--- a/dot/gitconfig.in
+++ b/dot/gitconfig.in
@@ -128,3 +128,6 @@
 [gui]
 	fontui = -family Sans -size 10
 	fontdiff = -family Fixed -size 13
+
+[http]
+	cookiefile = @home@/.gitcookies
diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 7d3bc10..4b53771 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -979,10 +979,20 @@ (defun mdw-post-local-vars-misc-mode-config ()
     (mdw-whitespace-mode 1)))
 (add-hook 'hack-local-variables-hook 'mdw-post-local-vars-misc-mode-config)
 
-(defadvice toggle-read-only (after mdw-angry-fruit-salad activate)
-  (when mdw-do-misc-mode-hacking
-    (setq show-trailing-whitespace (not buffer-read-only))
-    (mdw-whitespace-mode (if buffer-read-only 0 1))))
+(defmacro mdw-advise-update-angry-fruit-salad (&rest funcs)
+  `(progn ,@(mapcar (lambda (func)
+		      `(defadvice ,func
+			   (after mdw-angry-fruit-salad activate)
+			 (when mdw-do-misc-mode-hacking
+			   (setq show-trailing-whitespace
+				 (not buffer-read-only))
+			   (mdw-whitespace-mode (if buffer-read-only 0 1)))))
+		    funcs)))
+(mdw-advise-update-angry-fruit-salad toggle-read-only
+				     read-only-mode
+				     view-mode
+				     view-mode-enable
+				     view-mode-disable)
 
 (eval-after-load 'gtags
   '(progn