From: Francois Fleuret <francois@fleuret.org>
Date: Fri, 20 Sep 2013 20:55:40 +0000 (+0200)
Subject: Update.
X-Git-Url: https://www.fleuret.org/cgi-bin/gitweb/gitweb.cgi?p=elisp.git;a=commitdiff_plain;h=1d49667604d56dec160ba3fbe612fcec52e7e5e6

Update.
---

diff --git a/emacs.el b/emacs.el
index a79b7c9..22adc6f 100644
--- a/emacs.el
+++ b/emacs.el
@@ -48,7 +48,7 @@
 (menu-bar-mode -1)
 
 ;; Nor fringes
-(when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
+;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 0)))
 ;; (when (functionp 'fringe-mode) (fringe-mode '(0 . 1)))
 
 ;; And I do not like scrollbar neither
@@ -435,6 +435,7 @@ load-warning buffer in case of failure."
   (ff/configure-faces
    '(
      ;; (escape-glyph :foreground "#c0c0c0" :weight 'bold)
+
      (escape-glyph :foreground "green3" :weight 'bold)
      (default :background "gray90" :foreground "black")
      (cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
@@ -478,12 +479,11 @@ load-warning buffer in case of failure."
      (mode-line-inactive :background "#b0b0b0" :foreground "black" :box nil
                          :inverse-video nil)
      ;; (fringe :background "black" :foreground "gray90")
-     (fringe :background "gray65")
-     (tex-verbatim :family "courrier")
+     (fringe :background "gray75")
      (ff/date-info-face :foreground "white" :weight 'bold)
      (ff/mail-alarm-face :foreground "white" :background "red2")
      ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal)
-     ))
+    ))
   )
 
 ;; When we are root, put the modeline in red
@@ -1229,7 +1229,7 @@ ff/known-address-face is used."
   )
 
 (defface ff/secure-date
-  '((t (:background "gold" :weight bold)))
+  '((t (:background "white" :weight bold)))
   "The face to display the dates in the modeline.")
 
 (defun ff/secure-note-add () (interactive)
@@ -1240,7 +1240,7 @@ ff/known-address-face is used."
   (goto-char (point-min))
   (insert "-- "
           (format-time-string "%Y %b %d %H:%M:%S" (current-time))
-          " ------------------------------------------------\n\n")
+          " --\n\n")
   (previous-line 1)
 
   ;; Colorizes the dates
@@ -1248,10 +1248,11 @@ ff/known-address-face is used."
   (save-excursion
     (goto-char (point-min))
     (while (re-search-forward
-            "^-+ [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+.+$"
+            "^-- [0-9]+ [a-z]+ [0-9]+ [0-9]+:[0-9]+:[0-9]+ -+$"
             nil t)
       (add-text-properties
-       (match-beginning 0) (match-end 0) '(face ff/secure-date))))
+       (match-beginning 0) (1+ (match-end 0))
+       '(face ff/secure-date rear-nonsticky t))))
 
   (set-buffer-modified-p nil)
   (setq buffer-undo-list nil)
@@ -1726,21 +1727,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)
-   ;; 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]*\\($\\|%\\)\\)"))
-   ;; (flyspell-mode 1)
-   ;; (reftex-mode 1)
+   (copy-face 'default 'tex-verbatim)
+   ;; (ff/configure-faces '((tex-verbatim :background "gray95")))
    ))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/vm b/vm
index f1a2138..f196896 100644
--- a/vm
+++ b/vm
@@ -313,6 +313,7 @@ attachement from mail."
   (flyspell-mode)
   (auto-fill-mode)
   (mail-abbrevs-setup)
+  (yas/minor-mode)
 
   ;; (setq fill-paragraph-function 'mail-mode-fill-paragraph)