projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
085b106
)
Update.
author
Francois Fleuret
<francois@fleuret.org>
Sun, 20 Dec 2015 14:27:20 +0000
(15:27 +0100)
committer
Francois Fleuret
<francois@fleuret.org>
Sun, 20 Dec 2015 14:27:20 +0000
(15:27 +0100)
emacs.el
patch
|
blob
|
history
vm
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
8060a20
..
bd8ada2
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-880,7
+880,8
@@
printer."
;; (`unknown "f")
(`charging (format "↑%d%%" (ff/battery-percent)))
(`discharging (format "↓%d%%" (ff/battery-percent)))
;; (`unknown "f")
(`charging (format "↑%d%%" (ff/battery-percent)))
(`discharging (format "↓%d%%" (ff/battery-percent)))
- (`unknown "✱")
+ ;; (`unknown "✱")
+ (`unknown "F")
(_ "?"))
(error nil))
)
(_ "?"))
(error nil))
)
@@
-2078,7
+2079,7
@@
This may be a useful alternative binding for \\[delete-other-windows]
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
(while (re-search-forward "[0-9\.]+" nil t)
(let ((value (string-to-number (buffer-substring (match-beginning 0) (match-end 0)))))
(delete-region (match-beginning 0) (match-end 0))
- (insert (format "%0.
2
f" value)))))))
+ (insert (format "%0.
3
f" value)))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keymaping
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Keymaping
diff --git
a/vm
b/vm
index
57aea1f
..
b9e7233
100644
(file)
--- a/
vm
+++ b/
vm
@@
-327,29
+327,24
@@
attachement from mail."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Activate the required modes and authorize the commenting
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Activate the required modes and authorize the commenting
+(defun ff/does-not-fill (&optional a b) (interactive) (message "Nope"))
+
(defun ff/prepare-mail-mode ()
(bbdb-define-all-aliases)
(flyspell-mode)
(defun ff/prepare-mail-mode ()
(bbdb-define-all-aliases)
(flyspell-mode)
- (auto-fill-mode)
(mail-abbrevs-setup)
(yas/minor-mode)
(mail-abbrevs-setup)
(yas/minor-mode)
- ;;
(setq fill-paragraph-function 'mail-mode-fill-paragraph)
+ ;;
Let's try the visual-line mode for mails
- ;; Since I set the comment prefix, I have to tell the filling
- ;; functions not to use it
+ (auto-fill-mode)
+ ;; (setq fill-paragraph-function 'ff/does-not-fill)
+ ;; (visual-line-mode)
- ;; ******************* removed Aug 23
- ;; (setq fill-paragraph-handle-comment nil)
- ;; ;; (when message-yank-prefix
(set (make-local-variable 'comment-start) vm-included-text-prefix)
(set (make-local-variable 'comment-start) vm-included-text-prefix)
- ;; (set (make-local-variable 'comment-start-skip)
- ;; (concat "^\\(" (regexp-quote vm-included-text-prefix) "\\)"))
- ;; ;; )
)
(add-hook 'mail-mode-hook 'ff/prepare-mail-mode)
)
(add-hook 'mail-mode-hook 'ff/prepare-mail-mode)
-;; (add-hook 'mail-mode-hook 'orgtbl-mode)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; To have a slightly darker background for headers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; To have a slightly darker background for headers