From: Francois Fleuret Date: Mon, 19 Jul 2010 06:22:49 +0000 (+0200) Subject: *** empty log message *** X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=16f950b489d03a23e80080626bcadfafe24b3f98;p=elisp.git *** empty log message *** --- diff --git a/emacs.el b/emacs.el index eaa1011..364adec 100644 --- 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 ;; @@ -418,7 +418,7 @@ load-warning buffer in case of failure." (ff/configure-faces '( - (escape-glyph :foreground "gray70" :weight 'bold) + (escape-glyph :foreground "#c0c0c0" :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-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") @@ -1158,7 +1159,7 @@ goback argument, go back where we were." "The face to display known mail identities.") (defface ff/unknown-address-face - '((t (:foreground "red3"))) + '((t (:foreground "red4"))) "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 - (propertize (or (and data (concat "<" email ">")) + (propertize (or (and data (concat "<" net ">")) "*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) + (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") + ("jpg" . "gimp" ) ("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{} -(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 - longline-show-effect #(" -- |\n" 0 2 (face escape-glyph)) + ;; longlines-show-effect #("|\n" 0 2 (face escape-glyph)) ) ;; (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) @@ -2395,6 +2396,20 @@ proposes to visit them." (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 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -2440,6 +2455,7 @@ proposes to visit them." (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)