X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=b40e40e7b75c02db65dd8aff8534344ba1aa4b6b;hb=bfd9c44c16768f5a8d6bd6bdcfbe1ea2706116a8;hp=0ab4667c67c98385536749c93f1b433acc9af5bb;hpb=ddae35fd7e6a69d80c05d073b36f9e6dc892b0bb;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 0ab4667..b40e40e 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -49,7 +49,6 @@ Set the emacs load path Disable scroll bar, tool-bar and menu-bar #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (scroll-bar-mode 0) (tool-bar-mode 0) (menu-bar-mode 1) @@ -59,9 +58,8 @@ Disable scroll bar, tool-bar and menu-bar (defalias 'yes-or-no-p 'y-or-n-p) (show-paren-mode 1) - - - + ;; don't backupf + (setq make-backup-files nil) #+END_SRC set custom file @@ -82,6 +80,12 @@ Switch the focus to help window when it appears #+END_SRC +Setting scroll right/left +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ; (global-set-key (kbd "C-,") 'scoll-left) + ; (global-set-key (kbd "C-.") 'scoll-right) +#+END_SRC + * Package Management Tools ** Use-package @@ -151,7 +155,7 @@ syntax highlighting (if window-system (defvar sd/fixed-font-family (cond ((x-list-fonts "Hasklig") "Hasklig") - ((x-list-fonts "Source Code Pro") "Source Code Pro") + ((x-list-fonts "Source Code Pro") "Source Code Pro:weight:light") ((x-list-fonts "Anonymous Pro") "Anonymous Pro") ((x-list-fonts "M+ 1mn") "M+ 1mn")) "The fixed width font based on what is installed, `nil' if not defined.")) @@ -165,7 +169,7 @@ Setting the fonts (if window-system (when sd/fixed-font-family (set-frame-font sd/fixed-font-family) - (set-face-attribute 'default nil :font sd/fixed-font-family :height 140) + (set-face-attribute 'default nil :font sd/fixed-font-family :height 130) (set-face-font 'default sd/fixed-font-family))) #+END_SRC @@ -313,7 +317,9 @@ Enable rainbow mode in emacs lisp mode #+END_SRC -** Mode-line +* Mode-line + +** clean mode line clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replacing-modeline-strings][Marstering Emacs]] @@ -342,6 +348,7 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac (hi-lock-mode . "") (python-mode . "Py") (emacs-lisp-mode . "EL") + (eshell-mode . "ε") (nxhtml-mode . "nx")) "Alist for `clean-mode-line'. @@ -366,6 +373,10 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac (add-hook 'after-change-major-mode-hook 'clean-mode-line) #+END_SRC +** Powerline mode + +Install powerline mode [[https://github.com/milkypostman/powerline][powerline]] + #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package powerline :ensure t @@ -377,7 +388,11 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac ;; :ensure t) ;; (use-package smart-mode-line-powerline-theme ;; :ensure t) +#+END_SRC +Revised powerline-center-theme + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent (defun sd/powerline-simpler-vc (s) (if s (replace-regexp-in-string "Git[:-]" "" s) @@ -442,6 +457,18 @@ Fix the issue in mode line when showing triangle (setq ns-use-srgb-colorspace nil) #+END_SRC +set height in mode line + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (custom-set-variables + '(powerline-height 14) + '(powerline-text-scale-factor 0.8)) + ;; 100/140 + (set-face-attribute 'mode-line nil :height 100) + +#+END_SRC + * Org-mode Settings ** Org-mode Basic setting @@ -486,7 +513,6 @@ Always indents header, and hide header leading starts so that no need type =#+ST use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package org-bullets :ensure t :init @@ -494,6 +520,7 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 (lambda () (org-bullets-mode t)))) + (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆")) #+END_SRC ** Worf Mode @@ -518,9 +545,180 @@ cause we cannot input =[= and =]=, so here I unset this mappings. And redifined #+END_SRC -** Task Management +** Get Things Done + +Refer to [[http://doc.norang.ca/org-mode.html][Organize Your Life in Plain Text]] +*** basic setup + +standard key binding + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (global-set-key "\C-cl" 'org-store-link) + (global-set-key "\C-ca" 'org-agenda) + (global-set-key "\C-cb" 'org-iswitchb) +#+END_SRC + +*** Plain List + +Replace the list bullet =-=, =+=, with =•=, a litter change based [[https://github.com/howardabrams/dot-files/blob/master/emacs-org.org][here]] + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (use-package org-mode + ;; :init + ;; (font-lock-add-keywords 'org-mode + ;; '(("^ *\\([-+]\\) " + ;; (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))) +#+END_SRC + +*** Todo Keywords + +refer to [[http://coldnew.github.io/coldnew-emacs/#orgheadline94][fancy todo states]], + +To track TODO state changes, the =!= is to insert a timetamp, =@= is to insert a note with +timestamp for the state change. + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; (setq org-todo-keywords + ;; '((sequence "☛ TODO(t)" "|" "✔ DONE(d)") + ;; (sequence "⚑ WAITING(w)" "|") + ;; (sequence "|" "✘ CANCELLED(c)"))) + ; (setq org-todo-keyword-faces + ; (quote ("TODO" . (:foreground "red" :weight bold)) + ; ("NEXT" . (:foreground "blue" :weight bold)) + ; ("WAITING" . (:foreground "forest green" :weight bold)) + ; ("DONE" . (:foreground "magenta" :weight bold)) + ; ("CANCELLED" . (:foreground "forest green" :weight bold)))) + + + (setq org-todo-keywords + (quote ((sequence "TODO(t)" "NEXT(n)" "|" "DONE(d!)") + ;; (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" "PHONE" "MEETING") + (sequence "WAITING(w@/!)" "HOLD(h@/!)" "|" "CANCELLED(c@/!)" )))) + + (setq org-todo-keyword-faces + (quote (("TODO" :foreground "red" :weight bold) + ("NEXT" :foreground "blue" :weight bold) + ("DONE" :foreground "forest green" :weight bold) + ("WAITING" :foreground "orange" :weight bold) + ("HOLD" :foreground "magenta" :weight bold) + ("CANCELLED" :foreground "forest green" :weight bold) + ;; ("MEETING" :foreground "forest green" :weight bold) + ;; ("PHONE" :foreground "forest green" :weight bold) + ))) +#+END_SRC + +Fast todo selections + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq org-use-fast-todo-selection t) + (setq org-treat-S-cursor-todo-selection-as-state-change nil) +#+END_SRC + +TODO state triggers and tags, [[http://doc.norang.ca/org-mode.html][Organize Your Life in Plain Text]] + +- Moving a task to =CANCELLED=, adds a =CANCELLED= tag +- Moving a task to =WAITING=, adds a =WAITING= tag +- Moving a task to =HOLD=, add =HOLD= tags +- Moving a task to =DONE=, remove =WAITING=, =HOLD= tag +- Moving a task to =NEXT=, remove all waiting/hold/cancelled tags + +This tags are used to filter tasks in agenda views +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq org-todo-state-tags-triggers + (quote (("CANCELLED" ("CANCELLED" . t)) + ("WAITING" ("WAITING" . t)) + ("HOLD" ("WAITING") ("HOLD" . t)) + (done ("WAITING") ("HOLD")) + ("TODO" ("WAITING") ("CANCELLED") ("HOLD")) + ("NEXT" ("WAITING") ("CANCELLED") ("HOLD")) + ("DONE" ("WAITING") ("CANCELLED") ("HOLD"))))) +#+END_SRC + +Logging Stuff +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; log time when task done + ;; (setq org-log-done (quote time)) + ;; save clocking into to LOGBOOK + (setq org-clock-into-drawer t) + ;; save state change notes and time stamp into LOGBOOK drawer + (setq org-log-into-drawer t) +#+END_SRC + +*** Tags +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq org-tag-alist (quote ((:startgroup) + ("@office" . ?e) + ("@home" . ?h) + (:endgroup) + ("WAITING" . ?w) + ("HOLD" . ?h) + ("CANCELLED" . ?c)))) + + ;; Allow setting single tags without the menu + (setq org-fast-tag-selection-single-key (quote expert)) +#+END_SRC + +*** Capture - Refile - Archive + +Capture lets you quickly store notes with little interruption of your work flow. + +**** Capture Templates + +When a new taks needs to be added, categorize it as -** Capture +All captured file which need next actions are stored in =refile.org=, +- A new task / note (t) =refile.org= +- A work task in office =office.org= +- A jourenl =diary.org= +- A new habit (h) =refile.org= + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq org-directory "~/org") + (setq org-default-notes-file "~/org/refile.org") + (setq sd/org-diary-file "~/org/diary.org") + + (global-set-key (kbd "C-c c") 'org-capture) + + (setq org-capture-templates + (quote (("t" "Todo" entry (file org-default-notes-file) + "* TODO %?\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:") + ("n" "Note" entry (file org-default-notes-file) + "* %? :NOTE:\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:") + ("j" "Journal" entry (file+datetree sd/org-diary-file) + "* %?\n:LOGBOOK:\n:END:" :clock-in t :clock-resume t) + ("h" "Habit" entry (file org-default-notes-file) + "* NEXT %?\n:LOGBOOK:\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:END:\n:PROPERTIES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n ")))) +#+END_SRC + +**** Refiling Tasks + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq org-refile-targets (quote (;; (nil :maxlevel . 9) + (org-agenda-files :maxlevel . 9)))) + + (setq org-refile-use-outline-path t) + + (setq org-refile-allow-creating-parent-nodes (quote confirm)) +#+END_SRC + +*** 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"))) + + ;; only show today's tasks in agenda view + (setq org-agenda-span 'day) + ;; Use current windows for agenda view + (setq org-agenda-window-setup 'current-window) + + ;; show all feature entries for repeating tasks, + ;; this is already setting by default + (setq org-agenda-repeating-timestamp-show-all t) + + ;; Show all agenda dates - even if they are empty + (setq org-agenda-show-all-dates t) +#+END_SRC ** Export PDF @@ -611,22 +809,12 @@ Install MacTex-basic and some tex packages ** others -refer to [[http://coldnew.github.io/coldnew-emacs/#orgheadline94][fancy todo states]] - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (setq org-todo-keywords '((sequence "☛ TODO(t)" "|" "✔ DONE(d)") - (sequence "⚑ WAITING(w)" "|") - (sequence "|" "✘ CANCELED(c)"))) - -#+END_SRC - extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-emacs/#orgheadline94][Extend org-modes' esay templates]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent (add-to-list 'org-structure-template-alist - '("E" "#+BEGIN_SRC emacs-lisp\n?\n#+END_SRC")) + '("E" "#+BEGIN_SRC emacs-lisp :tangle yes :results silent\n?\n#+END_SRC")) (add-to-list 'org-structure-template-alist '("S" "#+BEGIN_SRC sh\n?\n#+END_SRC")) (add-to-list 'org-structure-template-alist @@ -644,7 +832,6 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em :ensure t :commands magit-status magit-blame) - #+END_SRC * IDO & SMEX @@ -1003,7 +1190,6 @@ Eshell alias Quickly start eshll in split window below, refer [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defun eshell-x () (insert "exit") (eshell-send-input) @@ -1036,7 +1222,6 @@ Quickly start eshll in split window below, refer [[http://www.howardism.org/Tech ;; (global-set-key (kbd "M-`") (lambda () ;; (interactive) ;; (if (buffer-name)))) - #+END_SRC * Misc Settings