Updated.

[elisp.git] / emacs.el

diff --git a/emacs.el b/emacs.el
index 31b9abf..c708d87 100644 (file)
--- a/emacs.el
+++ b/emacs.el
@@ -64,7 +64,7 @@
 ;; use colorization for all modes
 (global-font-lock-mode t)
 
-(setq font-lock-maximum-decoration 2
+(setq font-lock-maximum-decoration 3
       ;;'((latex-mode . 2) (t . 2))
       )
 
@@ -75,6 +75,10 @@
 (setq savehist-file "~/private/emacs/savehist")
 (when (functionp 'savehist-mode) (savehist-mode 1))
 
+;; And allow minibuffer recursion
+(setq enable-recursive-minibuffers t)
+(minibuffer-depth-indicate-mode 1)
+
 ;; I do not like tooltips
 (when (functionp 'tooltip-mode) (tooltip-mode nil))
 
@@ -225,8 +229,9 @@ load-warning buffer in case of failure."
  backup-by-copying-when-linked t
  )
 
-(setq
- user-emacs-directory "~/misc/emacs.d/")
+(setq tramp-backup-directory-alist backup-directory-alist)
+
+(setq user-emacs-directory "~/misc/emacs.d/")
 
 (setq
  abbrev-file-name (concat user-emacs-directory "abbrev_defs")
@@ -367,9 +372,9 @@ load-warning buffer in case of failure."
      (info-title-2 :foreground "green")
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
      (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
-     (diff-added-face :foreground "blue" :weight 'bold)
-     (diff-changed-face :foreground "green" :weight 'bold)
-     (diff-removed-face :foreground "red" :weight 'bold)
+     (diff-added :background "gray90" :foreground "green4" :weight 'bold)
+     (diff-removed :background "gray90" :foreground "red2" :weight 'bold)
+     (diff-changed :background "gray90" :foreground "blue" :weight 'bold)
      (diff-file-header-face :background "white" :foreground "black"
                             :weight 'bold)
      (diff-header-face :background "white" :foreground "black")
@@ -427,9 +432,10 @@ load-warning buffer in case of failure."
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
      (cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
      (message-cited-text :foreground "red4")
+     (diff-mode :background "gray90" :weight 'bold)
      (diff-added :background "gray90" :foreground "green4" :weight 'bold)
      (diff-removed :background "gray90" :foreground "red2" :weight 'bold)
-     (diff-changed :background "gray90" :foreground "blue")
+     (diff-changed :background "gray90" :foreground "blue" :weight 'bold)
      (diff-file-header :background "white" :foreground "black"
                        :weight 'bold)
      (diff-header :background "white" :foreground "black")
@@ -660,7 +666,7 @@ occurrences "
 ;; Printing
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(require 'ps-print)
+(load "ps-print")
 
 (setq ps-print-color-p nil
       ;; ps-paper-type 'letter
@@ -778,13 +784,14 @@ printer."
       (/ (* 100 (string-to-number (ff/file-first-line (format "%s/%s_now" ff/battery-dir prefix))))
          (string-to-number (ff/file-first-line (format "%s/%s_full"  ff/battery-dir prefix))))
     (error -1))
-    )
+  )
 
 (defun ff/laptop-info-string () (interactive)
   (condition-case nil
       (concat
 
        ;; The temperature
+
        (let ((temp (/ (string-to-number (ff/file-first-line ff/temperature-file)) 1000)))
          (if (> temp 50)
              (concat
@@ -802,9 +809,18 @@ printer."
 
          (cond
           ((string= battery-status "Full") "L")
-          ((string= battery-status "Charging") (format "L%d%%" (ff/battery-percent "energy")))
-          ((string= battery-status "Discharging") (format "B%d%%"  (ff/battery-percent "charge")))
-          (t battery-status)))
+
+          ((string= battery-status "Charging")
+           (format "L%d%%" (max (ff/battery-percent "charge")
+                                (ff/battery-percent "energy"))))
+
+          ((string= battery-status "Discharging")
+           (format "B%d%%"  (max (ff/battery-percent "charge")
+                                 (ff/battery-percent "energy"))))
+
+          (t battery-status)
+
+          ))
 
        )
 
@@ -900,7 +916,7 @@ printer."
                              load
 
                              ,(if (ff/laptop-info-string)
-                                  '(concat " /" (ff/laptop-info-string) "/"))
+                                  '(concat " " (ff/laptop-info-string)))
 
                              )
 
@@ -1029,7 +1045,7 @@ of commands in `ff/default-bash-commands' is used for auto-completion"
  vc-follow-symlinks t
  )
 
-(when (require 'vc-git nil t)
+(when (load "vc-git" nil t)
   (add-to-list 'vc-handled-backends 'GIT))
 
 ;; alarm-vc.el is one of my own scripts, check my web page
@@ -1064,7 +1080,7 @@ of commands in `ff/default-bash-commands' is used for auto-completion"
 ;; Cool stuff to navigate in emacs-lisp sources
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(require 'find-func)
+(load "find-func")
 
 (defun ff/goto-function-definition (&optional goback)
   "Go directly to the definition of the function at point. With
@@ -1126,7 +1142,7 @@ goback argument, go back where we were."
     "The face to display known mail identities.")
 
   (defface ff/unknown-address-face
-    '((t (:foreground "red4")))
+    '((t (:foreground "gray50")))
     "The face to display unknown mail identities.")
 
   (defun ff/explicit-name (email)
@@ -1684,16 +1700,16 @@ and refilling all the paragraphs."
    ;; Strange that I have to specify that
    ;; (setq paragraph-separate "[%     \f]*$")
    ;; (setq paragraph-separate
-         ;; (concat "[%]*\\|[\f%]\\|[ \t]*\\($\\|"
-                 ;; "\\\\[][]\\|"
-                 ;; "\\\\" (regexp-opt (append
-                                     ;; (mapcar 'car latex-section-alist)
-                                     ;; '("begin" "label" "end" )) t)
-                 ;; "\\>\\|\\\\\\(" (regexp-opt '("item" "bibitem" "newline"
-                                               ;; "noindent" "newpage" "footnote"
-                                               ;; "marginpar" "parbox" "caption"))
-                 ;; "\\|\\$\\$\\|[a-z]*\\(space\\|skip\\|page[a-z]*\\)"
-                 ;; "\\>\\)[ \t]*\\($\\|%\\)\\)"))
+   ;; (concat "[%]*\\|[\f%]\\|[ \t]*\\($\\|"
+   ;; "\\\\[][]\\|"
+   ;; "\\\\" (regexp-opt (append
+   ;; (mapcar 'car latex-section-alist)
+   ;; '("begin" "label" "end" )) t)
+   ;; "\\>\\|\\\\\\(" (regexp-opt '("item" "bibitem" "newline"
+   ;; "noindent" "newpage" "footnote"
+   ;; "marginpar" "parbox" "caption"))
+   ;; "\\|\\$\\$\\|[a-z]*\\(space\\|skip\\|page[a-z]*\\)"
+   ;; "\\>\\)[ \t]*\\($\\|%\\)\\)"))
    ;; (flyspell-mode 1)
    ;; (reftex-mode 1)
    ))
@@ -1843,6 +1859,17 @@ a file in /tmp"
     (add-to-list 'find-file-not-found-functions 'ff/start-file)
   (add-to-list 'find-file-not-found-hooks 'ff/start-file))
 
+(when (>= emacs-major-version 24)
+  (define-obsolete-function-alias 'make-local-hook 'ignore "21.1")
+  (setq send-mail-function 'sendmail-send-it) ;; emacs 24.x stuff
+
+  (custom-set-faces
+   '(diff-added ((default (:background "gray90" :foreground "green4" :weight bold))))
+   '(diff-removed ((default (:background "gray90" :foreground "red2" :weight bold))))
+   '(diff-changed ((default (:background "gray90" :foreground "blue" :weight bold))))
+   )
+  )
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (define-key global-map [f8] 'ff-find-other-file)
@@ -2010,7 +2037,7 @@ This may be a useful alternative binding for \\[delete-other-windows]
 ;; Keymaping
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(require 'info nil t)
+(load "info" nil t)
 
 (define-key global-map [(shift iso-lefttab)] 'ispell-complete-word)
 ;; shift-tab going backward is kind of standard
@@ -2206,7 +2233,7 @@ next one. With universal argument, kill all killable buffers."
 ;; exclusively with my selector.el
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(require 'recentf)
+(load "recentf")
 
 (setq recentf-exclude
       (append recentf-exclude
@@ -2282,7 +2309,7 @@ next one. With universal argument, kill all killable buffers."
 ;; selector.el is one of my own scripts, check my web page
 
 (when (ff/load-or-alert "selector" t)
-  (define-key global-map [(shift return)] 'selector/quick-move-in-buffer)
+  ;; (define-key global-map [(shift return)] 'selector/quick-move-in-buffer)
   (define-key global-map [(control x) (control b)] 'selector/switch-buffer)
 
   (defun ff/visit-debpkg-file (&optional regexp)
@@ -2380,8 +2407,10 @@ proposes to visit them."
   )
 
 (defun ff/flyspell-mode (arg) (interactive "p")
-  (flyspell-mode)
-  (when flyspell-mode (flyspell-buffer)))
+  (if flyspell-mode (flyspell-mode -1)
+    (flyspell-mode 1)
+    (flyspell-buffer))
+)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; The fridge!
@@ -2483,27 +2512,27 @@ with a time tag, and save this file"
   ;; ugly.
 
   ;; (defun ff/yank-with-xclip (&optional arg)
-    ;; "Paste the content of the X clipboard with the xclip
-;; command. Without ARG converts some of the '\\uxxxx' characters."
-    ;; (interactive "P")
-    ;; (with-temp-buffer
-      ;; (shell-command "xclip -o" t)
-      ;; (unless arg
-        ;; (mapc (lambda (x) (replace-string (concat "\\u" (car x)) (cdr x) nil (point-min) (point-max)))
-              ;; '(("fffd" . "??")
-                ;; ("2013" . "-")
-                ;; ("2014" . "--")
-                ;; ("2018" . "`")
-                ;; ("2019" . "'")
-                ;; ("201c" . "``")
-                ;; ("201d" . "''")
-                ;; ("2022" . "*")
-                ;; ("2026" . "...")
-                ;; ("20ac" . "EUR")
-                ;; )))
-      ;; (kill-ring-save (point-min) (point-max)))
-
-    ;; (yank))
+  ;; "Paste the content of the X clipboard with the xclip
+  ;; command. Without ARG converts some of the '\\uxxxx' characters."
+  ;; (interactive "P")
+  ;; (with-temp-buffer
+  ;; (shell-command "xclip -o" t)
+  ;; (unless arg
+  ;; (mapc (lambda (x) (replace-string (concat "\\u" (car x)) (cdr x) nil (point-min) (point-max)))
+  ;; '(("fffd" . "??")
+  ;; ("2013" . "-")
+  ;; ("2014" . "--")
+  ;; ("2018" . "`")
+  ;; ("2019" . "'")
+  ;; ("201c" . "``")
+  ;; ("201d" . "''")
+  ;; ("2022" . "*")
+  ;; ("2026" . "...")
+  ;; ("20ac" . "EUR")
+  ;; )))
+  ;; (kill-ring-save (point-min) (point-max)))
+
+  ;; (yank))
 
   ;; (define-key global-map [(meta y)] 'ff/yank-with-xclip)