From 3435c1b2ecff7b6c318809b9f316a6b3e9ac4a02 Mon Sep 17 00:00:00 2001 From: Francois Fleuret Date: Wed, 19 Nov 2014 11:42:08 +0100 Subject: [PATCH] Update. --- emacs.el | 52 +++++++++++++++++----------------------------------- selector.el | 18 ++++++++++++++++++ vm | 19 ++++++++++++++++++- 3 files changed, 53 insertions(+), 36 deletions(-) diff --git a/emacs.el b/emacs.el index 9030548..77626cf 100644 --- a/emacs.el +++ b/emacs.el @@ -31,6 +31,9 @@ ;; Xft.antialias: true ;; Xft.rgba: rgb +(when (fboundp 'horizontal-scroll-bar-mode) + (horizontal-scroll-bar-mode -1)) + ;; This is where I put most of my emacs-related files (setq ff/emacs-dir "~/private/emacs") (unless (file-exists-p ff/emacs-dir) @@ -292,8 +295,12 @@ load-warning buffer in case of failure." ;; This is the default coding system when toggle-input-method is ;; invoked (C-\) default-input-method "latin-1-prefix" + ;; do not put tabs when indenting indent-tabs-mode nil + ;; Stop indenting automatically, that's annoying + electric-indent-chars nil + ;; And yes, we have a fast display / connection / whatever baud-rate 524288 ;; baud-rate 10 @@ -508,7 +515,7 @@ load-warning buffer in case of failure." (ff/mail-alarm-face :foreground "white" :background "red2") ;; (alarm-vc-face :foreground "black" :background "yellow" :weight 'normal) (gui-button-face :background "green" :foreground "black") - )) + )) ) ;; When we are root, put the modeline in red @@ -1451,12 +1458,12 @@ universal argument starts xfig even if the .fig does not exist" \\def\\argmin{\\operatornamewithlimits{argmin}} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -%% Sans serif fonts -%% \\usepackage[T1]{fontenc} -%% \\usepackage[scaled]{helvet} -%% \\usepackage[cm]{sfmath} -%% \\renewcommand{\\ttdefault}{pcr} -%% \\renewcommand*\\familydefault{\\sfdefault} +%% Open sans font +\\usepackage[default]{opensans} +\\usepackage{cmbright} +\\renewcommand{\\familydefault}{fos} +\\renewcommand{\\seriesdefault}{l} +\\renewcommand{\\bfdefault}{sb} %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %% The \\todo command \\newcounter{nbdrafts} @@ -2455,7 +2462,7 @@ proposes to visit them." (if flyspell-mode (flyspell-mode -1) (flyspell-mode 1) (flyspell-buffer)) -) + ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; The fridge! @@ -2483,32 +2490,8 @@ with a time tag, and save this file" ) ) -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Let's be zen. Remove the modeline and fringes. -;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -(setq ff/zen-original-setting nil) - -(defun ff/zen () (interactive) - (if ff/zen-original-setting - (setq mode-line-format (car ff/zen-original-setting) - fringe-mode (cdr ff/zen-original-setting) - ff/zen-original-setting nil) - (setq ff/zen-original-setting (cons mode-line-format fringe-mode) - mode-line-format nil - fringe-mode '(0 . 0)) - (delete-other-windows) - ) - (fringe-mode fringe-mode) - (if ff/zen-original-setting - (message "Zen mode") - (message "Cluttered mode")) - ) - -;; (define-key global-map [(control x) (x)] 'ff/zen) - ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; My own keymap +;; My own keymap mapped to C-` ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (setq ff/map (make-sparse-keymap)) @@ -2517,7 +2500,7 @@ with a time tag, and save this file" (unless window-system ;; (define-key global-map [(control @)] ff/map) (define-key global-map [(meta O) \`] ff/map) -) + ) (define-key esc-map "`" ff/map) @@ -2576,7 +2559,6 @@ with a time tag, and save this file" (define-key ff/map [?\C-3] 'ff/twin-horizontal-current-buffer) (define-key ff/map " " 'delete-trailing-whitespace) -(define-key ff/map [(control x)] 'ff/zen) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Hacks so that all keys are functionnal in xterm and through ssh. diff --git a/selector.el b/selector.el index 419c96f..bf9a852 100644 --- a/selector.el +++ b/selector.el @@ -347,6 +347,22 @@ There seems to be header-line refreshing problems with emacs21." (substring s 0 (match-end 0)) 'face 'selector/dim) (substring s (match-end 0))) s) + + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ;; (if (and (boundp 'selector/previous-filename) selector/previous-filename) + ;; (let ((l (abs (compare-strings + ;; selector/previous-filename nil nil + ;; filename nil nil)))) + ;; ;; (if (> l 0) (setq l + ;; (setq selector/previous-filename filename) + ;; (concat (propertize + ;; (substring s 0 l) 'face 'selector/dim) + ;; (substring s l)) + ;; ) + ;; filename + ;; ) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; + ) ) @@ -383,6 +399,8 @@ prefix argument, allows to edit the filename after selection." (unless (and (boundp recentf-mode) recentf-mode) (error "recentf mode must be turned on")) + ;; (setq selector/previous-filename "") + (selector/select (mapcar diff --git a/vm b/vm index 6b4b1fb..75e3b13 100644 --- a/vm +++ b/vm @@ -162,6 +162,7 @@ ;; (add-to-list 'vm-mime-default-face-charsets "iso-8859-1") ;; (add-to-list 'vm-mime-default-face-charsets "Windows-1251") ;; (add-hook 'vm-mail-send-hook 'ff/vm-remove-non-7bits-in-headers) + (add-hook 'vm-mail-send-hook 'vm-mime-encode-headers) (add-hook 'vm-mail-send-hook 'vm-mail-check-recipients) (add-hook 'vm-reply-hook (lambda () (set-buffer-modified-p nil))) @@ -337,7 +338,8 @@ attachement from mail." (ff/configure-faces ;; '((ff/mail-header-face :background "#c8c8ff")) - '((ff/mail-header-face :foreground "blue4")) + '((ff/mail-header-face :background "#f0f0f0")) + ;; '((ff/mail-header-face :foreground "blue4")) ) (defun ff/colorize-headers () (interactive) @@ -488,6 +490,21 @@ an attachment") ) +(defun ff/check-no-prolematic-dest () + "Check that there are no \">,[^\ $]\" in the header" + (let ((s "no-subject")) + (save-excursion + (goto-char (point-min)) + (let ((end-header (re-search-forward (concat "^" mail-header-separator "$") nil t))) + (when end-header + (goto-char (point-min)) + (re-search-forward ">,[^\ ]" end-header t nil) + ) + ) + ) + s)) + + ;; You can not have a line starting with "From:" in a pure text ;; mail. The smtp server would add a leading character to prevent it. -- 2.20.1