X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=543d3873927d5958132c6984f98ba649fd9cea56;hb=928ddf4d7b361a66f0d3aba2874f1906cbf43f3f;hp=5a5582d6bfb375206f219a13ce3587d209df5973;hpb=9d63a6ae6b21a376302494cf6b1730abc100c719;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 5a5582d..543d387 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -513,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 @@ -521,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 @@ -563,11 +563,11 @@ standard key binding 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) "•"))))))) + ;; (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 @@ -634,6 +634,30 @@ This tags are used to filter tasks in agenda views ("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. @@ -657,13 +681,13 @@ All captured file which need next actions are stored in =refile.org=, (setq org-capture-templates (quote (("t" "Todo" entry (file org-default-notes-file) - "* TODO %?\n%a\n" :clock-in t :clock-resume t) + "* TODO %?\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:") ("n" "Note" entry (file org-default-notes-file) - "* %? :NOTE:\n%a\n" :clock-in t :clock-resume t) + "* %? :NOTE:\n:LOGBOOK:\n- Added: %U\t\tAt: %a\n:END:") ("j" "Journal" entry (file+datetree sd/org-diary-file) - "* %?\n" :clock-in t :clock-resume t) + "* %?\n:LOGBOOK:\n:END:" :clock-in t :clock-resume t) ("h" "Habit" entry (file org-default-notes-file) - "* NEXT %?\n%a\nSCHEDULED: %(format-time-string \"%<<%Y-%m-%d %a .+1d/3d>>\")\n:PROPERTITES:\n:STYLE: habit\n:REPEAT_TO_STATE: NEXT\n:END:\n ")))) + "* 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 @@ -687,9 +711,14 @@ Setting agenda files and the agenda view (setq org-agenda-span 'day) ;; Use current windows for agenda view (setq org-agenda-window-setup 'current-window) -#+END_SRC -** Capture + ;; 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 @@ -805,6 +834,20 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em #+END_SRC +Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github.com/abo-abo/oremacs/blob/c5cafdcebc88afe9e73cc8bd40c49b70675509c7/modes/ora-nextmagit.el][here]] +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (dolist (map (list magit-status-mode-map + magit-log-mode-map + magit-diff-mode-map + magit-staged-section-map)) + (define-key map "j" 'magit-section-forward) + (define-key map "k" 'magit-section-backward) + (define-key map "n" nil) + (define-key map "p" nil) + (define-key map "v" 'recenter-top-bottom) + (define-key map "i" 'magit-section-toggle)) +#+END_SRC + * IDO & SMEX ** IDO @@ -1161,7 +1204,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) @@ -1194,7 +1236,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 @@ -1202,21 +1243,20 @@ Quickly start eshll in split window below, refer [[http://www.howardism.org/Tech ** [[https://github.com/abo-abo/hydra][Hydra]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package hydra :ensure t) - + ;; disable new line in minibuffer when hint hydra + (setq hydra-lv nil) #+END_SRC *** Font Zoom #+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defhydra sd/font-zoom (global-map "") - (defhydra sd/font-zoom (global-map "") "zoom" ("g" text-scale-increase "in") ("l" text-scale-decrease "out")) - #+END_SRC *** Windmove Splitter @@ -1262,7 +1302,6 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex *** hydra-window #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (winner-mode 1) (defhydra sd/hydra-window (:color red :columns nil) @@ -1291,14 +1330,14 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex ("d" ace-delete-window "ace-one" :exit t) ("i" ace-maximize-window "ace-one" :exit t) ("b" ido-switch-buffer "buf") - ("m" headlong-bookmark-jump "bmk") + ;; ("m" headlong-bookmark-jump "bmk") ("q" nil "cancel") ("u" (progn (winner-undo) (setq this-command 'winner-undo)) "undo") ("r" (progn (winner-redo) (setq this-command 'winner-redo)) "redo") ("f" nil)) - (global-unset-key (kbd "M-o")) - (global-set-key (kbd "M-o") 'sd/hydra-window/body) + (global-unset-key (kbd "C-o")) + (global-set-key (kbd "C-o") 'sd/hydra-window/body) (defun triggle-windows-max-size () (interactive)