X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=569e1e3c2c27a83de8e4005bf1236e8a8d871792;hb=37c2e25acc3261f6aa74488e68eeeeb09cb53624;hp=710c43ee04c7c2ae799b524ea012985757f35548;hpb=142fc5397c281ab63da5df72b32f01b88d30d80e;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 710c43e..569e1e3 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 @@ -1471,6 +1542,29 @@ brew install the-silver-searcher (add-hook 'text-mode-hook 'table-recognize) #+END_SRC +** url-download +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 (read-directory-name "Save to (~/Downloads): " "~/Downloads" "~/Downloads" 'confirm' nil))) + (let ((download-buffer (url-retrieve-synchronously url))) + (save-excursion + (set-buffer download-buffer) + ;; we may have to trim the http response + (goto-char (point-min)) + (re-search-forward "^$" nil 'move) + (forward-char) + (delete-region (point-min) (point)) + (write-file (concat (or download-dir + "~/Downloads/") + (or download-name + (car (last (split-string url "/" t)))))))))) +#+END_SRC + * Dired ** Dired bindings =C-o= is defined as a global key for window operation, here unset it in dired mode @@ -1510,7 +1604,8 @@ brew install the-silver-searcher (define-key dired-mode-map (kbd "TAB") 'diredp-next-subdir) (define-key dired-mode-map (kbd "K") 'diredp-prev-subdir) (define-key dired-mode-map (kbd "O") 'dired-display-file) - (define-key dired-mode-map (kbd "I") 'other-window)) + (define-key dired-mode-map (kbd "I") 'other-window) + (define-key dired-mode-map (kbd "o") 'other-window)) (use-package dired :config @@ -1580,6 +1675,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 @@ -1681,7 +1777,8 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files ;; should map both (kbd "TAB") and [tab],https://github.com/company-mode/company-mode/issues/75 (define-key company-active-map (kbd "TAB") #'company-complete-selection) (define-key company-active-map [tab] #'company-complete-selection) - (global-company-mode)) + (global-company-mode) + (setq company-global-modes '(not org-mode))) (use-package company-statistics :ensure t @@ -2054,6 +2151,42 @@ irony-company :ensure t) #+END_SRC +** Scheme +Install =guile=, =guile= is an implementation of =Scheme= programming language. +#+BEGIN_SRC sh + brew install guile +#+END_SRC + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq geiser-scheme-implementation 'guile) +#+END_SRC + +#+BEGIN_SRC scheme + (define a "3") + a +#+END_SRC + +#+RESULTS: +: 3 + +** Racket +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package racket-mode + :ensure t + :config + (define-key racket-mode-map (kbd "s-r") 'racket-run) + (add-to-list 'racket-mode-hook (lambda () (lispy-mode 1)))) + + ;; set racket path + (setenv "PATH" (concat (getenv "PATH") + ":" "/Applications/Racket v6.6/bin")) + (setenv "MANPATH" (concat (getenv "MANPATH") + ":" "/Applications/Racket v6.6/man")) + (setq exec-path (append exec-path '("/Applications/Racket v6.6/bin"))) + + (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode)) +#+END_SRC + * Compile Set the environments vairables in compilation mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -2097,7 +2230,7 @@ Set the environments vairables in compilation mode (file-name-nondirectory (buffer-file-name))) ".hpp\"" \n \n "using namespace std;" \n \n - "int main ()" + "int main (int argc, char *argv[])" "\n{" \n > _ \n "return 0;" @@ -2116,7 +2249,7 @@ Set the environments vairables in compilation mode (file-name-sans-extension (file-name-nondirectory (buffer-file-name))) ".h\"" \n \n - "int main ()\n" + "int main (int argc, char *argv[])\n" "{" \n > _ \n "return 0;\n" @@ -2354,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 @@ -2407,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 @@ -2655,7 +2875,7 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del ;; Windows undo - redo ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo") ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo") - + ;; ibuffer, dired, eshell, bookmarks ;; ("C-i" other-window nil :exit t) ("C-b" ido-switch-buffer nil :exit t) @@ -2675,10 +2895,10 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del ;; quit ("q" nil "cancel") ("" nil) - ("C-h" nil nil :exit t) - ("C-j" nil nil :exit t) - ;; ("C-k" nil :exit t) - ("C-l" nil nil :exit t) + ("C-h" windmove-left nil :exit t) + ("C-j" windmove-down nil :exit t) + ("C-k" windmove-up :exit t) + ("C-l" windmove-right nil :exit t) ("C-;" nil nil :exit t) ("n" nil nil :exit t) ("[" nil nil :exit t) @@ -2819,6 +3039,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