projects
/
elisp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
37f3cfd
)
*** empty log message ***
author
Francois Fleuret
<francois@fleuret.org>
Mon, 19 Jul 2010 06:22:49 +0000
(08:22 +0200)
committer
Francois Fleuret
<francois@fleuret.org>
Mon, 19 Jul 2010 06:22:49 +0000
(08:22 +0200)
emacs.el
patch
|
blob
|
history
diff --git
a/emacs.el
b/emacs.el
index
eaa1011
..
364adec
100644
(file)
--- a/
emacs.el
+++ b/
emacs.el
@@
-1,4
+1,4
@@
-;; -*-
Emacs-Lisp
-*-
+;; -*-
mode: Emacs-Lisp; mode: rainbow;
-*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is free software; you can redistribute it and/or ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is free software; you can redistribute it and/or ;;
@@
-418,7
+418,7
@@
load-warning buffer in case of failure."
(ff/configure-faces
'(
(ff/configure-faces
'(
- (escape-glyph :foreground "
gray7
0" :weight 'bold)
+ (escape-glyph :foreground "
#c0c0c
0" :weight 'bold)
(default :background "gray90" :foreground "black")
(cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
(cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
(default :background "gray90" :foreground "black")
(cperl-array-face :background "gray90" :foreground "blue" :weight 'bold)
(cperl-hash-face :background "gray90" :foreground "purple" :weight 'bold)
@@
-434,7
+434,8
@@
load-warning buffer in case of failure."
(font-lock-string-face :foreground "dark olive green")
(font-lock-variable-name-face :foreground "sienna")
(font-lock-function-name-face :foreground "blue4" :weight 'bold)
(font-lock-string-face :foreground "dark olive green")
(font-lock-variable-name-face :foreground "sienna")
(font-lock-function-name-face :foreground "blue4" :weight 'bold)
- ;; (font-lock-comment-face :foreground "")
+ ;; (font-lock-comment-delimiter-face :foreground "dark violet")
+ ;; (font-lock-comment-face :foreground "dark violet")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(header-line :background "gray65")
(flyspell-incorrect-face :foreground "red2")
(flyspell-duplicate-face :foreground "OrangeRed2")
(header-line :background "gray65")
@@
-1158,7
+1159,7
@@
goback argument, go back where we were."
"The face to display known mail identities.")
(defface ff/unknown-address-face
"The face to display known mail identities.")
(defface ff/unknown-address-face
- '((t (:foreground "red
3
")))
+ '((t (:foreground "red
4
")))
"The face to display unknown mail identities.")
(defun ff/explicit-name (email)
"The face to display unknown mail identities.")
(defun ff/explicit-name (email)
@@
-1187,7
+1188,7
@@
ff/known-address-face is used."
(bbdb-record-raw-notes record)))
'ff/known-address-face))
(error
(bbdb-record-raw-notes record)))
'ff/known-address-face))
(error
- (propertize (or (and data (concat "<"
email
">"))
+ (propertize (or (and data (concat "<"
net
">"))
"*undefined*")
'face 'ff/unknown-address-face)
))
"*undefined*")
'face 'ff/unknown-address-face)
))
@@
-1303,12
+1304,15
@@
universal argument starts xfig even if the .fig does not exist"
(or (re-search-forward "{\\([^{}]*.\\)eps}" (point-at-eol) t)
(re-search-forward "{\\([^{}]*.\\)pdf}" (point-at-eol) t)
(re-search-forward "{\\([^{}]*.\\)pdf_t}" (point-at-eol) t)
(or (re-search-forward "{\\([^{}]*.\\)eps}" (point-at-eol) t)
(re-search-forward "{\\([^{}]*.\\)pdf}" (point-at-eol) t)
(re-search-forward "{\\([^{}]*.\\)pdf_t}" (point-at-eol) t)
+ (re-search-forward "{\\([^{}]*.\\)png}" (point-at-eol) t)
+ (re-search-forward "{\\([^{}]*.\\)jpg}" (point-at-eol) t)
)))
(and (<= (match-beginning 1) (point))
(>= (match-end 1) (- (point) 2))))
(ff/run-eps-edition (match-string-no-properties 1)
'(("fig" . "xfig")
)))
(and (<= (match-beginning 1) (point))
(>= (match-end 1) (- (point) 2))))
(ff/run-eps-edition (match-string-no-properties 1)
'(("fig" . "xfig")
+ ("jpg" . "gimp" )
("png" . "gimp") ("pgm" . "gimp") ("ppm" . "gimp")
("jpg" . "xv"))
universal)
("png" . "gimp") ("pgm" . "gimp") ("ppm" . "gimp")
("jpg" . "xv"))
universal)
@@
-1703,12
+1707,16
@@
and refilling all the paragraphs."
"))
)
"))
)
-(add-hook 'latex-mode-hook (lambda ()
- (define-key latex-mode-map
- [(meta S)] 'ff/start-slide)
- (define-key latex-mode-map
- [(control c) (control a)] 'align-current)
- ))
+(add-hook
+ 'latex-mode-hook
+ (lambda ()
+ (define-key latex-mode-map [(meta S)] 'ff/start-slide)
+ (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)
+ (flyspell-mode)
+ (reftex-mode)
+ ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@
-2072,13
+2080,11
@@
This may be a useful alternative binding for \\[delete-other-windows]
;; Closes the current \begin{}
;; Closes the current \begin{}
-(add-hook 'latex-mode-hook (lambda () (define-key latex-mode-map [(control end)] 'tex-close-latex-block)))
-
(when (ff/load-or-alert "longlines")
(setq longlines-show-hard-newlines t
longlines-auto-wrap t
(when (ff/load-or-alert "longlines")
(setq longlines-show-hard-newlines t
longlines-auto-wrap t
-
longline-show-effect #(" --
|\n" 0 2 (face escape-glyph))
+
;; longlines-show-effect #("
|\n" 0 2 (face escape-glyph))
)
;; (defun ff/auto-longlines ()
)
;; (defun ff/auto-longlines ()
@@
-2093,11
+2099,6
@@
This may be a useful alternative binding for \\[delete-other-windows]
)
)
-(add-hook 'latex-mode-hook
- (lambda ()
- (define-key latex-mode-map [(control tab)]
- 'ispell-complete-word)))
-
;; Meta-/ remaped (completion)
(define-key global-map [(shift right)] 'dabbrev-expand)
;; Meta-/ remaped (completion)
(define-key global-map [(shift right)] 'dabbrev-expand)
@@
-2395,6
+2396,20
@@
proposes to visit them."
(flyspell-mode)
(when flyspell-mode (flyspell-buffer)))
(flyspell-mode)
(when flyspell-mode (flyspell-buffer)))
+(defun ff/move-region-to-fridge () (interactive)
+ "Cut the current region, paste it in a file called ./fridge
+with a time tag, and save this file"
+ (kill-region (region-beginning) (region-end))
+ (with-current-buffer (find-file-noselect "fridge")
+ (goto-char (point-max))
+ (insert "\n"
+ (format-time-string "%Y %b %d %H:%M:%S" (current-time))
+ "\n\n")
+ (yank)
+ (save-buffer)
+ )
+ )
+
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; My own keymap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; My own keymap
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@
-2440,6
+2455,7
@@
proposes to visit them."
(lambda () (interactive)
(bookmark-set)
(bookmark-save)))
(lambda () (interactive)
(bookmark-set)
(bookmark-save)))
+(define-key ff/map "f" 'ff/move-region-to-fridge)
(define-key ff/map [(control f)] 'ff/flyspell-mode)
(define-key ff/map [?\C-0] 'ff/delete-annoying-windows)
(define-key ff/map [(control f)] 'ff/flyspell-mode)
(define-key ff/map [?\C-0] 'ff/delete-annoying-windows)