projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
74f5eb2
)
Update.
author
Francois Fleuret
<francois@fleuret.org>
Sat, 15 Aug 2015 07:25:25 +0000
(
00:25
-0700)
committer
Francois Fleuret
<francois@fleuret.org>
Sat, 15 Aug 2015 07:25:25 +0000
(
00:25
-0700)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
3071b3e
..
0ea7c14
100644
(file)
--- 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)
;; 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)
;; (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/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"
(ff/important-address-face :foreground "red3"
- ;; :foreground "blue2"
- ;; :underline t
- ;; :background "white"
- ;; :foreground "green4"
:weight 'bold
:weight 'bold
- ;; :slant 'italic
)))
)
)))
)
@@
-1463,11
+1459,11
@@
universal argument starts xfig even if the .fig does not exist"
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Open sans font
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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 'tc/add-text-counters-in-modeline)
+;; (add-hook 'text-mode-hook
+ ;; (lambda ()
+ ;; (setq comment-start " > ")))
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; A function to remove temporary alarm windows
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 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")))
(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 "\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)
(define-key ff/map [(control g)] 'ff/git-status)
(define-key ff/map [(control w)] 'server-edit)