emacs - mu4e basic config
[dotfiles.git] / emacs.d / config.org
index 8bb6d51..9150bb0 100644 (file)
@@ -1472,13 +1472,14 @@ brew install the-silver-searcher
 #+END_SRC
 
 ** url-download
-Refer [[http://stackoverflow.com/questions/4448055/download-a-file-with-emacs-lisp][download-a-file-with-emacs-lisp]]
+To download file in =elisp=, best is =url-copy-file=, here refer [[http://stackoverflow.com/questions/4448055/download-a-file-with-emacs-lisp][download-a-file-with-emacs-lisp]] using =url-retrieve-synchronously= wrapping
+as a http download client tool
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (defun sd/download-file (&optional url download-dir download-name)
     (interactive)
     (let ((url (or url
                    (read-string "Enter download URL: ")))
-          (download-dir (or (read-string "Save to (~/Downloads): ") "~/Downloads")))
+          (download-dir (read-directory-name "Save to (~/Downloads): " "~/Downloads" "~/Downloads" 'confirm' nil)))
       (let ((download-buffer (url-retrieve-synchronously url)))
         (save-excursion
           (set-buffer download-buffer)
@@ -1603,6 +1604,7 @@ Disalble =ido= when new a directory or file in =dired= mode
   ;; call the function which you want to disable ido
   (mk-disable-ido 'dired-create-directory)
   (mk-disable-ido 'sd/dired-new-file)
+  (mk-disable-ido 'dired-goto-file)
 #+END_SRC
 
 ** Dired open with
@@ -2414,48 +2416,98 @@ See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]]
   ;;                               (gnus-group-select-group "INBOX")))
 #+END_SRC
 
-* Gnu Plot
-Install =gnuplot= on Mac
-#+BEGIN_SRC sh
-  brew install gnuplot --with-qt
-#+END_SRC
-
-To fix some issue that =toolbar-make-button-list= is void, see the [[https://github.com/bruceravel/gnuplot-mode/issues/31][issue]], here I set some variable as =nil=
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package gnuplot
-    :ensure
-    :init
-    (setq gnuplot-help-xpm nil)
-    (setq gnuplot-line-xpm nil)
-    (setq gnuplot-region-xpm nil)
-    (setq gnuplot-buffer-xpm nil)
-    (setq gnuplot-doc-xpm nil))
-#+END_SRC
+* Mu4e
+Refer [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offlineimap-and-mu4e-on-osx][emacs-as-email-client-with-offlineimap-and-mu4e-on-osx]]
 
-Use =gnuplot= on =Org-mode= file, see [[http://orgmode.org/worg/org-contrib/babel/languages/ob-doc-gnuplot.html][ob-doc-gnuplot]]
-#+BEGIN_SRC gnuplot :exports code :file ./temp/file.png
-  reset
+** OfflineImap - download all mails from IMAP into local directory, and keep in sync
+#+BEGIN_SRC sh :results output replace
+  # offline-imap
+  brew install offline-imap
 
-  set title "Putting it All Together"
+  cp /usr/local/etc/offlineimap.conf ~/.offlineimapr
 
-  set xlabel "X"
-  set xrange [-8:8]
-  set xtics -8,2,8
-
-
-  set ylabel "Y"
-  set yrange [-20:70]
-  set ytics -20,10,70
+  #For the =offlineimap= config on mac, using =sslcacertfile= instead of =cert_fingerpring=. On Mac
+  sslcacertfile = /usr/local/etc/openssl/cert.pem 
+#+END_SRC
 
-  f(x) = x**2
-  g(x) = x**3
-  h(x) = 10*sqrt(abs(x))
+Then, run =offlineimap= to sync the mail
 
-  plot f(x) w lp lw 1, g(x) w p lw 2, h(x) w l lw 3
+** Mu - fast search, view mails and extract attachments.
+#+BEGIN_SRC sh
+  EMACS=/usr/local/bin/emacs brew install mu --with-emacs
+#+END_SRC
+
+Then, run =mu index --maildir=~/.Mail=
+
+** Mu4e - Emacs frontend of Mu
+config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offlineimap-and-mu4e-on-osx/][emacs-as-email-client-with-offlineimap-and-mu4e-on-osx]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (require 'mu4e)
+  (setq mu4e-maildir "~/.Mail")
+  (setq mu4e-drafts-folder "/[Gmail].Drafts")
+  (setq mu4e-sent-folder   "/[Gmail].Sent Mail")
+  ;; don't save message to Sent Messages, Gmail/IMAP takes care of this
+  (setq mu4e-sent-messages-behavior 'delete)
+  ;; allow for updating mail using 'U' in the main view:
+  (setq mu4e-get-mail-command "offlineimap")
+
+  ;; shortcuts
+  (setq mu4e-maildir-shortcuts
+      '( ("/INBOX"               . ?i)
+         ("/[Gmail].Sent Mail"   . ?s)))
+
+  ;; something about ourselves
+  (setq
+     user-mail-address "seudut@gmail.com"
+     user-full-name  "Peng Li"
+     mu4e-compose-signature
+      (concat
+        "Thanks,\n"
+        "Peng\n"))
+
+  ;; show images
+  (setq mu4e-show-images t)
+
+  ;; use imagemagick, if available
+  (when (fboundp 'imagemagick-register-types)
+    (imagemagick-register-types))
+
+  ;; convert html emails properly
+  ;; Possible options:
+  ;;   - html2text -utf8 -width 72
+  ;;   - textutil -stdin -format html -convert txt -stdout
+  ;;   - html2markdown | grep -v '&nbsp_place_holder;' (Requires html2text pypi)
+  ;;   - w3m -dump -cols 80 -T text/html
+  ;;   - view in browser (provided below)
+  (setq mu4e-html2text-command "textutil -stdin -format html -convert txt -stdout")
+
+  ;; spell check
+  (add-hook 'mu4e-compose-mode-hook
+          (defun my-do-compose-stuff ()
+             "My settings for message composition."
+             (set-fill-column 72)
+             (flyspell-mode)))
+
+  ;; add option to view html message in a browser
+  ;; `aV` in view to activate
+  (add-to-list 'mu4e-view-actions
+    '("ViewInBrowser" . mu4e-action-view-in-browser) t)
+
+  ;; fetch mail every 10 mins
+  (setq mu4e-update-interval 600)
+#+END_SRC
+
+** Smtp - send mail
+- =gnutls=, depends on =gnutls=, first confirm this is installed, otherwise, =brew install gnutls=
+- =~/.authinfo=
+#+BEGIN_SRC fundamental 
+  machine smtp.gmail.com login <gmail username> password <gmail password>
+#+END_SRC
+- OPTIONAL, encrypt the =~/.authinfo= file
+#+BEGIN_SRC sh :results output replace
+  gpg --output ~/.authinfo.gpg --symmetric ~/.authinfo
 #+END_SRC
 
-#+RESULTS:
-[[file:./temp/file.png]]
 * Ediff
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (with-eval-after-load 'ediff
@@ -2467,7 +2519,7 @@ Use =gnuplot= on =Org-mode= file, see [[http://orgmode.org/worg/org-contrib/babe
 #+END_SRC
 
 * Entertainment
-** GnoGo
+** GnuGo
 Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f95b774cb292d1169748bc0a62ba647bbd8c0652/etc/my-inits/my-inits-gnugo.el][to here]]. start at image display mode and grid mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package gnugo
@@ -2879,6 +2931,11 @@ Search, replace and hightlight will in later paragraph
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (global-set-key (kbd "M-i") #'counsel-imenu)
   ;; (global-set-key (kbd "M-i") #'imenu)
+
+  ;; define M-[ as C-M-a
+  ;; http://ergoemacs.org/emacs/emacs_key-translation-map.html
+  (define-key key-translation-map (kbd "M-[") (kbd "C-M-a"))
+  (define-key key-translation-map (kbd "M-]") (kbd "C-M-e"))
 #+END_SRC
 
 *** Go-to line