From: Francois Fleuret <francois@fleuret.org>
Date: Sun, 23 Jan 2011 09:27:42 +0000 (+0100)
Subject: Cosmetics + now use executable-make-buffer-file-executable-if-script-p.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=63b258502e402c0d577ed24ee18b36b86cdaba75;p=elisp.git

Cosmetics + now use executable-make-buffer-file-executable-if-script-p.
---

diff --git a/emacs.el b/emacs.el
index 70b0552..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))
                  ))
@@ -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
@@ -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 "