From: Francois Fleuret <francois@fleuret.org>
Date: Sat, 15 Aug 2015 07:25:25 +0000 (-0700)
Subject: Update.
X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=213ff66eafe47719840ebd8744d083f1a43fd129;p=elisp.git

Update.
---

diff --git a/emacs.el b/emacs.el
index 3071b3e..0ea7c14 100644
--- a/emacs.el
+++ b/emacs.el
@@ -267,8 +267,9 @@ load-warning buffer in case of failure."
 ;; Stop this crazy blinking cursor
 (blink-cursor-mode 0)
 
-;; (setq blink-cursor-delay 0.25
-;; blink-cursor-interval 0.25)
+;; (setq blink-cursor-delay 0.05
+      ;; blink-cursor-blinks 0
+      ;; blink-cursor-interval 0.25)
 
 ;; (set-terminal-coding-system 'utf-8)
 
@@ -1213,14 +1214,9 @@ ff/known-address-face is used."
     )
 
   (ff/configure-faces '((ff/robot-address-face :foreground "green4")
-                        (ff/personal-address-face :foreground "blue2" :weight 'bold)
+                        (ff/personal-address-face :foreground "dark magenta" :weight 'bold)
                         (ff/important-address-face :foreground "red3"
-                                                   ;; :foreground "blue2"
-                                                   ;; :underline t
-                                                   ;; :background "white"
-                                                   ;; :foreground "green4"
                                                    :weight 'bold
-                                                   ;; :slant 'italic
                                                    )))
 
   )
@@ -1463,11 +1459,11 @@ universal argument starts xfig even if the .fig does not exist"
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% Open sans font
-\\usepackage[default]{opensans}
-\\usepackage{cmbright}
-\\renewcommand{\\familydefault}{fos}
-\\renewcommand{\\seriesdefault}{l}
-\\renewcommand{\\bfdefault}{sb}
+%%\\usepackage[default]{opensans}
+%%\\usepackage{cmbright}
+%%\\renewcommand{\\familydefault}{fos}
+%%\\renewcommand{\\seriesdefault}{l}
+%%\\renewcommand{\\bfdefault}{sb}
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 %% The \\todo command
 \\newcounter{nbdrafts}
@@ -2417,6 +2413,10 @@ proposes to visit them."
 
 (add-hook 'text-mode-hook 'tc/add-text-counters-in-modeline)
 
+;; (add-hook 'text-mode-hook
+          ;; (lambda ()
+            ;; (setq comment-start " > ")))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; A function to remove temporary alarm windows
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -2513,12 +2513,14 @@ with a time tag, and save this file"
       (git-status (file-name-directory (buffer-file-name)))
     (error "No file attached to this buffer")))
 
-(defun ff/insert-date () (interactive)
+(defun ff/insert-date (&optional universal) (interactive "P")
   ;; (insert (format-time-string "\n * %Y %b %d %H:%M:%S\n\n" (current-time)))
   ;; (insert (format-time-string "%Y %b %d %H:%M:%S" (current-time)))
   ;; (insert (format-time-string "%d.%m.%y" (current-time)))
-  (insert (format-time-string "%d.%m.%Y" (current-time)))
-  )
+       (if universal
+           (insert (format-time-string "%d.%m.%Y %H:%M:%S" (current-time)))
+         (insert (format-time-string "%d.%m.%Y" (current-time))))
+       )
 
 (define-key ff/map [(control g)] 'ff/git-status)
 (define-key ff/map [(control w)] 'server-edit)