projects / dotfiles.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
mode-line change file name
[dotfiles.git] / emacs.d / config.org
diff --git a/emacs.d/config.org b/emacs.d/config.org
index b73f0f0..0493da3 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -147,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
@@ -966,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)
@@ -982,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 <your Dropbox root directory>/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 
@@ -1123,7 +1140,6 @@ 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
-  ;; check if the fonts are available
   (unless (find-font (font-spec :name "Ubuntu Mono"))
     (warn "Font not found Ubuntu Mono"))
   (unless (find-font (font-spec :name "Source Code Pro"))
@@ -1134,14 +1150,15 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em
   (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))
@@ -1162,18 +1179,18 @@ 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
@@ -1237,17 +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)
-          (current-point (- (point-max) (point))))
-      (beginning-of-line)
-      (delete-region (point-min) (point))
-      (goto-char (- (point-max) current-point))))
-
+  (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
 
@@ -1473,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
@@ -2218,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
@@ -2269,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)
@@ -2320,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
@@ -2906,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"
@@ -2958,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
@@ -3481,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
 
@@ -3518,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=
My dot rc files(emacs, vim, tmux, zsh, ...)