X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=cabe148735461b609a88c864dee42c0e455d9b8f;hb=76851aa71ae8130ac912be2cbc143ec12a1633c8;hp=5fd431a06b238193f1eefb34e4ddea3eb65c43fe;hpb=a13998b96e6b582034cf78d814cda53bd386b444;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 5fd431a..cabe148 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -169,12 +169,12 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. #+END_SRC ** Font Setting -syntax highlighting +*** syntax highlighting #+BEGIN_SRC emacs-lisp :tangle yes :results silent (global-font-lock-mode 1) #+END_SRC -[[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family +*** [[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family #+BEGIN_SRC emacs-lisp :tangle yes :results silent (if window-system (defvar sd/fixed-font-family @@ -185,7 +185,7 @@ syntax highlighting "The fixed width font based on what is installed, `nil' if not defined.")) #+END_SRC -Setting the fonts +Setting the fonts alignment issue #+BEGIN_SRC emacs-lisp :tangle yes :results silent (if window-system (when sd/fixed-font-family @@ -194,6 +194,69 @@ Setting the fonts (set-face-font 'default sd/fixed-font-family))) #+END_SRC +*** Chinese fonts +Fix the font alignment issue when both Chinese and English hybird in org-mode table. Refer [[http://coldnew.github.io/blog/2013/11-16_d2f3a/][解決 org-mode 表格內中英文對齊的問題]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defvar emacs-english-font "Source Code Pro" "The font name of English.") + + (defvar emacs-cjk-font "STHeiti" "The font name for CJK.") + + (defvar emacs-font-size-pair '(13 . 16) "Default font size pair for (english . chinese)") + + (defvar emacs-font-size-pair-list + '(( 5 . 6) (10 . 12) + (11 . 14) (12 . 14) + (13 . 16) (14 . 16) (15 . 18) (16 . 20) (17 . 20) + (18 . 22) (19 . 22) (20 . 24) (21 . 26) + (24 . 28) (26 . 32) (28 . 34) + (30 . 36) (34 . 40) (36 . 44)) + "This list is used to store matching (englis . chinese) font-size.") + + (defun font-exist-p (fontname) + "Test if this font is exist or not." + (if (or (not fontname) (string= fontname "")) + nil + (if (not (x-list-fonts fontname)) nil t))) + + (defun set-font (english chinese size-pair) + "Setup emacs English and Chinese font on x window-system." + (if (font-exist-p english) + (set-frame-font (format "%s:pixelsize=%d" english (car size-pair)) t)) + (if (font-exist-p chinese) + (dolist (charset '(han cjk-misc) ;; '(kana han symbol cjk-misc bopomofo) + ) + (set-fontset-font (frame-parameter nil 'font) charset + (font-spec :family chinese :size (cdr size-pair)))))) + + (defun emacs-step-font-size (step) + "Increase/Decrease emacs's font size." + (let ((scale-steps emacs-font-size-pair-list)) + (if (< step 0) (setq scale-steps (reverse scale-steps))) + (setq emacs-font-size-pair + (or (cadr (member emacs-font-size-pair scale-steps)) + emacs-font-size-pair)) + (when emacs-font-size-pair + (message "emacs font size set to %.1f" (car emacs-font-size-pair)) + (set-font emacs-english-font emacs-cjk-font emacs-font-size-pair)))) + + (defun increase-emacs-font-size () + "Decrease emacs's font-size acording emacs-font-size-pair-list." + (interactive) (emacs-step-font-size 1)) + + (defun decrease-emacs-font-size () + "Increase emacs's font-size acording emacs-font-size-pair-list." + (interactive) (emacs-step-font-size -1)) +#+END_SRC + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; Setup font size based on emacs-font-size-pair + (set-font emacs-english-font emacs-cjk-font '(13 . 16)) + + (global-set-key (kbd "s-=") 'increase-emacs-font-size) + (global-set-key (kbd "s--") 'decrease-emacs-font-size) + +#+END_SRC + ** Color Theme Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package= @@ -657,7 +720,15 @@ Always indents header, and hide header leading starts so that no need type =#+ST (setq org-confirm-babel-evaluate nil) (setq org-use-speed-commands t) (setq org-completion-use-ido t) - (setq org-startup-with-inline-images t)) + (setq org-startup-with-inline-images t) + ;; (setq org-emphasis-regexp-components + ;; ;; markup 记号前后允许中文 + ;; (list (concat " \t('\"{" "[:nonascii:]") + ;; (concat "- \t.,:!?;'\")}\\[" "[:nonascii:]") + ;; " \t\r\n,\"'" + ;; "." + ;; 1)) + ) (org-babel-do-load-languages 'org-babel-load-languages @@ -1479,7 +1550,7 @@ as a http download client tool (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) @@ -2416,48 +2487,135 @@ 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 +* 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]] -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 +** 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 -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 + cp /usr/local/etc/offlineimap.conf ~/.offlineimapr - set title "Putting it All Together" + #For the =offlineimap= config on mac, using =sslcacertfile= instead of =cert_fingerpring=. On Mac + sslcacertfile = /usr/local/etc/openssl/cert.pem +#+END_SRC - set xlabel "X" - set xrange [-8:8] - set xtics -8,2,8 +#+BEGIN_SRC conf + [general] + ui=TTYUI + accounts = Gmail + autorefresh = 5 + [Account Gmail] + localrepository = Gmail-Local + remoterepository = Gmail-Remote - set ylabel "Y" - set yrange [-20:70] - set ytics -20,10,70 + [Repository Gmail-Local] + type = Maildir + localfolders = ~/.Mail/seudut@gmail.com - f(x) = x**2 - g(x) = x**3 - h(x) = 10*sqrt(abs(x)) + [Repository Gmail-Remote] + type = Gmail + remotehost = imap.gmail.com + remoteuser = seudut@gmail.com + remotepass = xxxxxxxx + realdelete = no + ssl = yes + #cert_fingerprint = + sslcacertfile = /usr/local/etc/openssl/cert.pem + maxconnections = 1 + folderfilter = lambda folder: folder not in ['[Gmail]/Trash', + '[Gmail]/Spam', + '[Gmail]/All Mail', + ] +#+END_SRC - plot f(x) w lp lw 1, g(x) w p lw 2, h(x) w l lw 3 +Then, run =offlineimap= to sync the mail + +** 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 ' _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) + + ;; mu4e view + (setq-default mu4e-headers-fields '((:flags . 6) + (:from-or-to . 22) + (:mailing-list . 20) + (:thread-subject . 70) + (:human-date . 16))) +#+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 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 @@ -2469,7 +2627,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 @@ -2594,8 +2752,8 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g= (global-set-key (kbd "s-p") 'persp-prev) (global-set-key (kbd "s-;") 'persp-switch-last) - (global-set-key (kbd "s-=") 'text-scale-increase) - (global-set-key (kbd "s--") 'text-scale-decrease) + ;; (global-set-key (kbd "s-=") 'text-scale-increase) + ;; (global-set-key (kbd "s--") 'text-scale-decrease) ;; (global-set-key (kbd "s-u") 'undo-tree-visualize)