X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/5e96bd82468d33bab7655286d63cdcadce6c2e42..52ffecb1e30140d89c6cf8de707dbb300d5c82e4:/el/dot-emacs.el?ds=inline

diff --git a/el/dot-emacs.el b/el/dot-emacs.el
index 46b8fbd..34df1a0 100644
--- a/el/dot-emacs.el
+++ b/el/dot-emacs.el
@@ -169,6 +169,17 @@ library."
     (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)) ?)
+    (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)
@@ -355,9 +366,9 @@ as output rather than a string."
 	 (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))
@@ -577,6 +588,34 @@ Even if an existing window in some random frame looks tempting."
 Pretend they don't exist.  They might be on other display devices."
   (ad-set-arg 2 nil))
 
+;; Rename buffers along with files.
+
+(defvar mdw-inhibit-rename-buffer nil
+  "If non-nil, `rename-file' won't rename the buffer visiting the file.")
+
+(defmacro mdw-advise-to-inhibit-rename-buffer (function)
+  "Advise FUNCTION to set `mdw-inhibit-rename-buffer' while it runs.
+
+This will prevent `rename-file' from renaming the buffer."
+  `(defadvice ,function (around mdw-inhibit-rename-buffer compile activate)
+     "Don't rename the buffer when renaming the underlying file."
+     (let ((mdw-inhibit-rename-buffer t))
+       ad-do-it)))
+(mdw-advise-to-inhibit-rename-buffer recode-file-name)
+(mdw-advise-to-inhibit-rename-buffer set-visited-file-name)
+(mdw-advise-to-inhibit-rename-buffer backup-buffer)
+
+(defadvice rename-file (after mdw-rename-buffers (from to &optional forcep)
+			compile activate)
+  "If a buffer is visiting the file, rename it to match the new name.
+
+Don't do this if `mdw-inhibit-rename-buffer' is non-nil."
+  (unless mdw-inhibit-rename-buffer
+    (let ((buffer (get-file-buffer from)))
+      (when buffer
+	(with-current-buffer buffer
+	  (set-visited-file-name to nil t))))))
+
 ;;;--------------------------------------------------------------------------
 ;;; Improved compilation machinery.
 
@@ -854,6 +893,18 @@ Use this to arrange for per-server settings.")
   '(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.
 
@@ -1268,7 +1319,14 @@ case."
   (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)
@@ -1412,11 +1470,8 @@ doesn't match any of the regular expressions in
   (((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))
-(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 variable-pitch
+  (((type x)) :family "helvetica" :height 120))
 (mdw-define-face region
   (((min-colors 64)) :background "grey30")
   (((class color)) :background "blue")
@@ -1864,6 +1919,21 @@ doesn't match any of the regular expressions in
   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.