X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=0493da3a6ffe0d1553a04d8634f1e3397a94c80f;hb=abf9d0c4f2f7fa4904d4488116c300c171c622c2;hp=f14bd9fdc40098f0b4d7f930499a333b34e20be9;hpb=51327addc48e95cc73f92813135603b94b1d168b;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index f14bd9f..0493da3 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -28,6 +28,12 @@ Set system PATH and emacs exec path (package-initialize) #+END_SRC +** My constant +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defconst my-name "Peng Li") + (defconst my-email "seudut@gmail.com") +#+END_SRC + ** General Setting *** scroll bar, tool-bar and menu-bar #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -141,6 +147,12 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. (add-hook 'prog-mode-hook 'hl-line-mode) (add-hook 'text-mode-hook 'hl-line-mode) (add-hook 'dired-mode-hook 'hl-line-mode) + + ;; only highlight selected window + (setq hl-line-sticky-flag nil) + + (setq-default fill-column 120) + (add-hook 'text-mode-hook 'turn-on-auto-fill) #+END_SRC ** Smart Comments @@ -231,24 +243,6 @@ Fix the font alignment issue when both Chinese and English hybird in org-mode ta (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 - ;; (if window-system - ;; (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) - - ;; set different fonts (chinese) size for org-mode. - (defun sd/org-buffer-font () - "My font setting for org-mode" - (interactive) - (setq buffer-face-mode-face '(:family "Source Sans Code" :height 160)) - (buffer-face-mode)) - - ;; (add-hook 'org-mode-hook 'sd/org-buffer-font) -#+END_SRC ** Color Theme @@ -978,8 +972,7 @@ All captured file which need next actions are stored in =refile.org=, *** Agenda Setup Setting agenda files and the agenda view #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (setq org-agenda-files (quote ("~/org/gtd.org" - "~/org/work.org"))) + (setq org-agenda-files (quote ("~/org/gtd.org"))) ;; only show today's tasks in agenda view ;; (setq org-agenda-span 'day) @@ -994,6 +987,18 @@ Setting agenda files and the agenda view (setq org-agenda-show-all-dates t) #+END_SRC +** Org mobile +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (with-eval-after-load "org" + (require 'org-mobile) + ;; Set to the location of your Org files on your local system + ;; (setq org-directory "~/org") + ;; Set to the name of the file where new notes will be stored + (setq org-mobile-inbox-for-pull "~/org/flagged.org") + ;; Set to /MobileOrg. + (setq org-mobile-directory "~/Dropbox/Apps/MobileOrg")) +#+END_SRC + ** Export PDF Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]] and some tex packages #+BEGIN_SRC sh @@ -1135,17 +1140,25 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em *** variable-pitch-mode and fixed-pitch-mode [[https://yoo2080.wordpress.com/2013/05/30/monospace-font-in-tables-and-source-code-blocks-in-org-mode-proportional-font-in-other-parts/][monospace font in tables and source code blocks in org-mode, proportional font in other parts]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (set-face-attribute 'variable-pitch nil :font "Calibri" :height 160) + (unless (find-font (font-spec :name "Ubuntu Mono")) + (warn "Font not found Ubuntu Mono")) + (unless (find-font (font-spec :name "Source Code Pro")) + (warn "Font not found Source Code Pro")) + (unless (find-font (font-spec :name "Source Sans Pro")) + (warn "Font not found Source Sans Pro")) + + (set-face-attribute 'variable-pitch nil :font "Source Sans Pro" :height 160) (set-face-attribute 'fixed-pitch nil :font "Source Code Pro" :height (face-attribute 'default :height)) - (add-hook 'text-mode-hook 'variable-pitch-mode) + ;; (add-hook 'text-mode-hook 'variable-pitch-mode) ;; Install Ubuntu Mono fonts and apply it in org-table to align Chinese fonts (with-eval-after-load "org" (mapc (lambda (face) (set-face-attribute face nil :inherit 'fixed-pitch)) - (list 'org-code 'org-block 'org-block-background)) + (list 'org-code 'org-block 'org-block-background 'org-block-begin-line 'org-block-end-line)) (set-face-attribute 'org-table nil :family "Ubuntu Mono" :height 140) + (set-face-attribute 'org-formula nil :family "Ubuntu Mono" :height 140) ;; org-special-keyword inherited from font-lock-keywork originally; as org is changed to variable-pitch, it cause ;; the font in special-keywords are not monospace (set-face-attribute 'org-special-keyword nil :inherit '(font-lock-keyword-face fixed-pitch)) @@ -1166,31 +1179,33 @@ Also correct the face of =org-meta-line= in =org-table= *** Org-head face #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (with-eval-after-load "org" - (let* ((base-height (face-attribute 'variable-pitch :height)) - (base-font-color (face-foreground 'default nil 'default))) - (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height)) - (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height)) - (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height)) - (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height)) - (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height)) - (set-face-attribute 'org-level-5 nil :weight 'bold) - (set-face-attribute 'org-level-6 nil :weight 'bold) - (set-face-attribute 'org-level-7 nil :weight 'bold) - (set-face-attribute 'org-level-8 nil :weight 'bold))) + ;; (with-eval-after-load "org" + ;; (let* ((base-height (face-attribute 'variable-pitch :height)) + ;; (base-font-color (face-foreground 'default nil 'default))) + ;; (set-face-attribute 'org-document-title nil :weight 'bold :height (+ 60 base-height)) + ;; (set-face-attribute 'org-level-1 nil :weight 'bold :height (+ 40 base-height)) + ;; (set-face-attribute 'org-level-2 nil :weight 'bold :height (+ 30 base-height)) + ;; (set-face-attribute 'org-level-3 nil :weight 'bold :height (+ 20 base-height)) + ;; (set-face-attribute 'org-level-4 nil :weight 'bold :height (+ 10 base-height)) + ;; (set-face-attribute 'org-level-5 nil :weight 'bold) + ;; (set-face-attribute 'org-level-6 nil :weight 'bold) + ;; (set-face-attribute 'org-level-7 nil :weight 'bold) + ;; (set-face-attribute 'org-level-8 nil :weight 'bold))) #+END_SRC ** Org Blog Fetch dependencies file, which is not in this repository. -#+BEGIN_SRC perl :results silent - print `curl https://raw.githubusercontent.com/seudut/blog/master/publish.el -o ./elisp/publish.el`; +#+BEGIN_SRC perl :results silent :tangle yes + print `curl https://raw.githubusercontent.com/seudut/blog/master/my-publish.el -o ./elisp/my-publish.el`; #+END_SRC Load #+BEGIN_SRC emacs-lisp :tangle yes :results silent (add-to-list 'load-path "~/.emacs.d/elisp") - (require 'publish) + (when (file-exists-p "~/.emacs.d/elisp/my-publish.el") + (require 'my-publish) + (blog-setup-project-alist "~/Private/blog/")) #+END_SRC @@ -1206,7 +1221,7 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github ;; don't ask me to confirm the unsaved change (setq magit-save-repository-buffers nil) ;; default is 50 - (setq git-commit-summary-max-length 80) + (setq git-commit-summary-max-length 100) :commands magit-status magit-blame :config (dolist (map (list magit-status-mode-map @@ -1239,14 +1254,9 @@ set default eshell history folder ** Eshell erase buffer #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/eshell-clear-buffer () - "Clear eshell buffer" - (interactive) - (let ((inhibit-read-only t)) - (erase-buffer) - (eshell-send-input))) + (require 'utilities) - (add-hook 'eshell-mode-hook (lambda () + (add-hook 'eshell-mode-hook (lambda () (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))) #+END_SRC @@ -1472,10 +1482,10 @@ Type =o= to go to the link ** Which key [[https://github.com/justbur/emacs-which-key][which-key]] show the key bindings #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package which-key - :ensure t - :config - (which-key-mode)) + ;; (use-package which-key + ;; :ensure t + ;; :config + ;; (which-key-mode)) #+END_SRC ** View only for some directory @@ -1569,26 +1579,26 @@ When see function by =C-h f=, and visit the source code, I would like the buffer ** pdf-tools #+BEGIN_SRC sh - brew install poppler + #brew install poppler #+END_SRC #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package pdf-tools - :ensure t - :init - ;; run to complete the installation - (pdf-tools-install) - :config - (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode)) - (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map)) + ;(use-package pdf-tools + ; :ensure t + ; :init + ; ;; run to complete the installation + ; (pdf-tools-install) + ; :config + ; (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode)) + ; (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map)) - (defun sd/pdf-outline-map () - "My keybindings in pdf-outline-map" - (interactive) - (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil) - (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children) - (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line) - (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line)) + ;(defun sd/pdf-outline-map () + ; "My keybindings in pdf-outline-map" + ; (interactive) + ; (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil) + ; (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children) + ; (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line) + ; (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line)) #+END_SRC ** help-mode @@ -2217,10 +2227,10 @@ then install irony searver, and =LIBCLANG_LIBRARY= and =LIBCLANG_INCLUDE_DIR= ac #+END_SRC #+BEGIN_SRC sh - cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/3.6.2/lib/libclang.dylib \ - -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/3.6.2/include \ - -DCMAKE_INSTALL_PREFIX\=/Users/peli3/.emacs.d/irony/ \ - /Users/peli3/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install + cmake -DLIBCLANG_LIBRARY\=/usr/local/Cellar/llvm/4.0.1/lib/libclang.dylib \ + -DLIBCLANG_INCLUDE_DIR=/usr/local/Cellar/llvm/4.0.1/include \ + -DCMAKE_INSTALL_PREFIX\=/Users/peng/.emacs.d/irony/ \ + /Users/peng/.emacs.d/elpa/irony-20160713.1245/server && cmake --build . --use-stderr --config Release --target install #+END_SRC **** irony config @@ -2268,7 +2278,8 @@ irony-company (use-package company-c-headers :ensure t :config - (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/")) + (add-to-list 'company-c-headers-path-system "/usr/include/c++/4.2.1/") + (add-to-list 'company-c-headers-path-system "/usr/local/include/")) ;; (with-eval-after-load 'company ;; (add-to-list 'company-backends 'company-irony) @@ -2319,11 +2330,31 @@ irony-company *** google C style #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package google-c-style - :ensure t - :config - (add-hook 'c-mode-hook 'google-set-c-style) - (add-hook 'c++-mode-hook 'google-set-c-style)) + ;; (use-package google-c-style + ;; :ensure t + ;; :config + ;; (add-hook 'c-mode-hook 'google-set-c-style) + ;; (add-hook 'c++-mode-hook 'google-set-c-style)) +#+END_SRC + +*** Compile and Run the C file +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defun my-cpp-hook () + (let* ((current-file-name) + (a-dot-out-file)) + (when buffer-file-name + (setq current-file-name (shell-quote-argument buffer-file-name)) + (setq a-dot-out-file (concat (file-name-directory buffer-file-name) "a.out"))) + (setq-local compilation-read-command t) + (set (make-local-variable 'compile-command) + (concat "g++ -Wall " + current-file-name + " && " + a-dot-out-file)) + (local-set-key (kbd "s-r") 'compile))) + + (add-hook 'c-mode-hook 'my-cpp-hook) + (add-hook 'c++-mode-hook 'my-cpp-hook) #+END_SRC ** Lua @@ -2513,16 +2544,16 @@ Emacs lisp auto-insert, based on the default module in =autoinsert.el=, but repl ** Org file template #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (eval-after-load 'autoinsert - '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton") - '( - "title: " - "#+TITLE: " str (make-string 30 ?\s) > \n - "#+AUTHOR: Peng Li\n" - "#+EMAIL: seudut@gmail.com\n" - "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n - > \n - > _))) + ;; (eval-after-load 'autoinsert + ;; '(define-auto-insert '("\\.\\(org\\)\\'" . "Org-mode skeleton") + ;; '( + ;; "title: " + ;; "#+TITLE: " str (make-string 30 ?\s) > \n + ;; "#+AUTHOR: Peng Li\n" + ;; "#+EMAIL: seudut@gmail.com\n" + ;; "#+DATE: " (shell-command-to-string "echo -n $(date +%Y-%m-%d)") > \n + ;; > \n + ;; > _))) #+END_SRC * Markdown mode @@ -2824,6 +2855,7 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline :init (add-to-list 'auto-mode-alist '("\\.yml\\'" . yaml-mode))) #+END_SRC + * Entertainment ** 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 @@ -2904,15 +2936,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g= (add-to-list 'projectile-globally-ignored-files "GTAGS") (projectile-global-mode t)) - ;; (use-package persp-projectile - ;; :ensure t - ;; :config - ;; (persp-mode) - ;; :bind - ;; ;; (:map projectile-mode-map - ;; ;; ("s-t" . projectile-persp-switch-project)) - ;; ) - ;; change default-directory of scratch buffer to projectile-project-root (defun sd/project-switch-action () "Change default-directory of scratch buffer to current projectile-project-root directory" @@ -2956,20 +2979,7 @@ Most use =C-o C-o= to switch buffers; =C-o x, v= to split window; =C-o o= to del #+BEGIN_SRC emacs-lisp :tangle yes :results silent (winner-mode 1) - (defun sd/delete-current-window () - (interactive) - (if (> (length (window-list)) 1) - (delete-window) - (message "Only one Windows now!"))) - - (defun sd/toggle-max-windows () - "Set maximize current if there are multiple windows, if only - one window, window undo" - (interactive) - (if (equal (length (window-list)) 1) - (winner-undo) - (delete-other-windows))) - + (require 'utilities) (defhydra sd/hydra-window (:color red :columns nil) "C-o" ;; windows switch @@ -3479,12 +3489,7 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba8281255a594/setup/.emacs.d/loader-init/_90-kill-region-or-backward-kill-word.el][kill-region-or-backward-kill-word]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun sd/kill-region-or-backward-kill-word () - (interactive) - (if (region-active-p) - (kill-region (point) (mark)) - (backward-kill-word 1))) - + (require 'utilities) (global-set-key (kbd "C-w") 'sd/kill-region-or-backward-kill-word) #+END_SRC @@ -3516,17 +3521,13 @@ Refer [[https://github.com/fnwiya/dotfiles/blob/c9ca79f1b22c919d9f4c3a0f944ba828 (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab) (define-key perspeen-mode-map (kbd "s-t") 'perspeen-tab-create-tab)) #+END_SRC - -* TODO todolist -** Rucket -** player video on iphone for -** SICP -** music searcher -search music on some music web site - +* Evil Mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (org-babel-load-file "~/.emacs.d/emacs-evil.org") + ;; (require 'init-evil-mode) +#+END_SRC -** Need separate the Key-bindings and package-initialization * Note ** Check if emacs is in terminal of graphic mode Use =display-graphic-p= instead of =window-system=