projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
451cd87
)
*** empty log message ***
author
Francois Fleuret
<francois@fleuret.org>
Tue, 2 Mar 2010 20:16:50 +0000
(21:16 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Tue, 2 Mar 2010 20:16:50 +0000
(21:16 +0100)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
23ca425
..
74119d2
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-390,7
+390,6
@@
load-warning buffer in case of failure."
:inverse-video nil)
(mode-line-inactive :background "gray60" :foreground "black" :box nil
:inverse-video nil)
:inverse-video nil)
(mode-line-inactive :background "gray60" :foreground "black" :box nil
:inverse-video nil)
- ;; (tex-verbatim :family nil)
(region :background "springgreen2")
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "red" :weight 'bold)
(region :background "springgreen2")
(ff/date-info-face :foreground "white" :weight 'bold)
(ff/mail-alarm-face :foreground "red" :weight 'bold)
@@
-451,6
+450,7
@@
load-warning buffer in case of failure."
:inverse-video nil)
;; (fringe :background "black" :foreground "gray90")
(fringe :background "gray65")
:inverse-video nil)
;; (fringe :background "black" :foreground "gray90")
(fringe :background "gray65")
+ (tex-verbatim :family "courrier")
(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)
(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)
@@
-846,7
+846,7
@@
printer."
(propertize
(with-temp-buffer (apply 'call-process x)
(buffer-string))
(propertize
(with-temp-buffer (apply 'call-process x)
(buffer-string))
- 'face '
highlight
)
+ 'face '
(:background "gray80")
)
(with-temp-buffer (apply 'call-process x)
(buffer-string))
))
(with-temp-buffer (apply 'call-process x)
(buffer-string))
))
@@
-896,6
+896,7
@@
printer."
display-time-interval 15 ;; Check every 15s
display-time-string-forms `(
display-time-interval 15 ;; Check every 15s
display-time-string-forms `(
+
;; (if mail
;; (concat " "
;; (propertize " mail "
;; (if mail
;; (concat " "
;; (propertize " mail "
@@
-2546,7
+2547,9
@@
With argument ARG, do this that many times."
(when (ff/load-or-alert "enotes" t)
(setq enotes/file "~/private/enotes"
enotes/show-help nil
(when (ff/load-or-alert "enotes" t)
(setq enotes/file "~/private/enotes"
enotes/show-help nil
- enotes/full-display nil)
+ enotes/full-display nil
+ enotes/default-time-fields "9:30")
+
(enotes/init)
;; (add-hook 'enotes/alarm-hook
;; (lambda () (ff/play-sound-async "~/local/sounds/three_notes2.wav")))
(enotes/init)
;; (add-hook 'enotes/alarm-hook
;; (lambda () (ff/play-sound-async "~/local/sounds/three_notes2.wav")))