浏览代码

Custom settings for emacs when used with Mutt

Bob Mottram 10 年前
父节点
当前提交
c1a2f1ec99
共有 1 个文件被更改,包括 22 次插入1 次删除
  1. 22
    1
      src/freedombone

+ 22
- 1
src/freedombone 查看文件

5821
   echo 'set trash="+Trash"' >> /etc/Muttrc
5821
   echo 'set trash="+Trash"' >> /etc/Muttrc
5822
   echo 'set spoolfile="~/Maildir"' >> /etc/Muttrc
5822
   echo 'set spoolfile="~/Maildir"' >> /etc/Muttrc
5823
   echo 'auto_view text/x-vcard text/html text/enriched' >> /etc/Muttrc
5823
   echo 'auto_view text/x-vcard text/html text/enriched' >> /etc/Muttrc
5824
-  echo 'set editor="emacs"' >> /etc/Muttrc
5824
+  echo 'set editor="emacs -q --load ~/.emacs-mutt"' >> /etc/Muttrc
5825
   echo 'set header_cache="+.cache"' >> /etc/Muttrc
5825
   echo 'set header_cache="+.cache"' >> /etc/Muttrc
5826
   echo '' >> /etc/Muttrc
5826
   echo '' >> /etc/Muttrc
5827
   echo 'macro index S "<tag-prefix><save-message>=.learn-spam<enter>" "move to learn-spam"' >> /etc/Muttrc
5827
   echo 'macro index S "<tag-prefix><save-message>=.learn-spam<enter>" "move to learn-spam"' >> /etc/Muttrc
5895
   echo 'set query_command= "abook --mutt-query \"%s\""' >> /etc/Muttrc
5895
   echo 'set query_command= "abook --mutt-query \"%s\""' >> /etc/Muttrc
5896
   echo 'macro index,pager A "<pipe-message>abook --add-email-quiet<return>" "add the sender address to abook"' >> /etc/Muttrc
5896
   echo 'macro index,pager A "<pipe-message>abook --add-email-quiet<return>" "add the sender address to abook"' >> /etc/Muttrc
5897
 
5897
 
5898
+  # create an Emacs configuration specifically for use with Mutt, which
5899
+  # has word wrap and spell checking on by default
5900
+  echo "(add-hook 'before-save-hook 'delete-trailing-whitespace)" > /home/$MY_USERNAME/.emacs-mutt
5901
+  echo '(setq org-support-shift-select t)' >> /home/$MY_USERNAME/.emacs-mutt
5902
+  echo '(setq standard-indent 4)' >> /home/$MY_USERNAME/.emacs-mutt
5903
+  echo '(setq-default tab-width 4)' >> /home/$MY_USERNAME/.emacs-mutt
5904
+  echo '(setq c-basic-offset 4)' >> /home/$MY_USERNAME/.emacs-mutt
5905
+  echo '(mouse-wheel-mode t)' >> /home/$MY_USERNAME/.emacs-mutt
5906
+  echo '(setq make-backup-files t)' >> /home/$MY_USERNAME/.emacs-mutt
5907
+  echo '(setq version-control t)' >> /home/$MY_USERNAME/.emacs-mutt
5908
+  echo '(setq backup-directory-alist (quote ((".*" . "~/.emacs_backups/"))))' >> /home/$MY_USERNAME/.emacs-mutt
5909
+  echo "(setq default-major-mode 'text-mode)" >> /home/$MY_USERNAME/.emacs-mutt
5910
+  echo "(dolist (hook '(text-mode-hook))" >> /home/$MY_USERNAME/.emacs-mutt
5911
+  echo '    (add-hook hook (lambda () (flyspell-mode 1))))' >> /home/$MY_USERNAME/.emacs-mutt
5912
+  echo '(setq-default fill-column 72)' >> /home/$MY_USERNAME/.emacs-mutt
5913
+  echo '(setq auto-fill-mode 0)' >> /home/$MY_USERNAME/.emacs-mutt
5914
+  echo "(add-hook 'text-mode-hook 'turn-on-auto-fill)" >> /home/$MY_USERNAME/.emacs-mutt
5915
+  echo "(setq-default auto-fill-function 'do-auto-fill)" >> /home/$MY_USERNAME/.emacs-mutt
5916
+
5898
   cp -f /etc/Muttrc /home/$MY_USERNAME/.muttrc
5917
   cp -f /etc/Muttrc /home/$MY_USERNAME/.muttrc
5899
   touch /home/$MY_USERNAME/.mutt-alias
5918
   touch /home/$MY_USERNAME/.mutt-alias
5919
+  chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.emacs-mutt
5920
+  cp /home/$MY_USERNAME/.emacs-mutt /etc/skel
5900
   chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.muttrc
5921
   chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.muttrc
5901
   chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.mutt-alias
5922
   chown $MY_USERNAME:$MY_USERNAME /home/$MY_USERNAME/.mutt-alias
5902
 
5923