X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=blobdiff_plain;f=emacs.el;h=7dc64bb33bca2089fd1461a6f5b0a6c4ead7b3d9;hb=2f2c011e5cb2ba04ea1fb48e93a38db35da0c773;hp=9e07d6008ef43887abeb7025eee2c524d92fb234;hpb=4a40307f81b8f89c1eba4138f934cfb189650e50;p=elisp.git

diff --git a/emacs.el b/emacs.el
index 9e07d60..7dc64bb 100644
--- a/emacs.el
+++ b/emacs.el
@@ -51,6 +51,7 @@
 
 (add-to-list 'load-path "~/sources/gpl/elisp")
 (add-to-list 'load-path "~/sources/elisp")
+(add-to-list 'load-path "~/local/elisp")
 
 ;; No, I do not like menus
 (menu-bar-mode -1)
@@ -383,6 +384,7 @@ load-warning buffer in case of failure."
      (font-lock-function-name-face :foreground "cyan")
      (flyspell-incorrect-face :foreground "red2")
      (flyspell-duplicate-face :foreground "OrangeRed2")
+     (hl-line :background "white")
      (sh-heredoc :foreground "blue")
      (sh-heredoc-face :foreground "blue")
      (font-lock-keyword-face :foreground "blue")
@@ -438,6 +440,7 @@ load-warning buffer in case of failure."
      ;; (font-lock-comment-face :foreground "dark violet")
      (flyspell-incorrect-face :foreground "red2")
      (flyspell-duplicate-face :foreground "OrangeRed2")
+     (hl-line :background "white")
      (header-line :background "gray65")
      (sh-heredoc :foreground "darkorange3")
      (sh-heredoc-face :foreground "darkorange3")
@@ -876,7 +879,7 @@ printer."
                    (propertize
                     (with-temp-buffer (apply 'call-process x)
                                       (buffer-string))
-                    'face '(:background "gray80"))
+                    'face '(:background "#c0c0ff"))
                  (with-temp-buffer (apply 'call-process x)
                                    (buffer-string))
                  ))
@@ -948,8 +951,8 @@ printer."
 
                              )
 
- ;;  display-time-format "%b %a %e %H:%M"
- ;;  display-time-mail-face nil
+ ;; display-time-format "%b %a %e %H:%M"
+ ;; display-time-mail-face nil
  )
 
 ;; Show the time, mail and stuff
@@ -1083,15 +1086,18 @@ of commands in `ff/default-bash-commands' is used for auto-completion"
 
 ;; Please consider the security-related consequences of using it
 
-(defun ff/make-shell-scripts-executable (&optional filename)
-  (setq filename (or filename (buffer-name)))
-  (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
-             (not (file-executable-p filename))
-             )
-    (set-file-modes filename 493)
-    (message "Made %s executable" filename)))
+;; (defun ff/make-shell-scripts-executable (&optional filename)
+  ;; (setq filename (or filename (buffer-name)))
+  ;; (when (and (string-match "\\.sh$\\|\\.pl$\\|\\.rb" filename)
+             ;; (not (file-executable-p filename))
+             ;; )
+    ;; (set-file-modes filename 493)
+    ;; (message "Made %s executable" filename)))
 
-(add-hook 'after-save-hook 'ff/make-shell-scripts-executable)
+;; (add-hook 'after-save-hook 'ff/make-shell-scripts-executable)
+
+(add-hook 'after-save-hook
+      'executable-make-buffer-file-executable-if-script-p)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Cool stuff to navigate in emacs-lisp sources
@@ -1714,8 +1720,8 @@ and refilling all the paragraphs."
    (define-key latex-mode-map [(control c) (control a)] 'align-current)
    (define-key latex-mode-map [(control end)] 'tex-close-latex-block)
    (define-key latex-mode-map [(control tab)] 'ispell-complete-word)
-   (flyspell-mode)
-   (reftex-mode)
+   ;; (flyspell-mode 1)
+   ;; (reftex-mode 1)
    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1920,7 +1926,7 @@ a file in /tmp"
     )
   )
 
-(setq compilation-finish-functions (cons 'ff/restore-windows-if-no-error compilation-finish-functions))
+(add-to-list 'compilation-finish-functions 'ff/restore-windows-if-no-error)
 
 (defun ff/fast-compile ()
   "Compiles without asking anything."
@@ -2024,7 +2030,7 @@ This may be a useful alternative binding for \\[delete-other-windows]
       (while (re-search-forward "[0-9\.]+" nil t)
         (let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
           (delete-region (match-beginning 0) (match-end 0))
-          (insert (format "%0.2f" value)))))))
+          (insert (format "%0.0f" value)))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Keymaping
@@ -2415,6 +2421,8 @@ with a time tag, and save this file"
     (kill-region (region-beginning) (region-end))
     (with-current-buffer (find-file-noselect "fridge")
       (goto-char (point-max))
+      (insert "\n")
+      (insert "######################################################################\n")
       (insert "\n"
               (format-time-string "%Y %b %d %H:%M:%S" (current-time))
               " (from "