X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=9a2ec74d5cd336e0d106ea9a84a88bbd5699b34c;hb=162676d5765d174bfa2960aa5b643b86c8f41b91;hp=1ab323ae1a880f474b136ddcfea5318d9fce4eb3;hpb=78fa2a4070a73dec18c2b558b27a88217461c8b3;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 1ab323a..9a2ec74 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 @@ -509,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 @@ -517,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 @@ -559,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 @@ -630,6 +634,31 @@ 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) + (setq org-clock-into-drawer "CLOCK") +#+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. @@ -653,13 +682,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 @@ -674,20 +703,23 @@ All captured file which need next actions are stored in =refile.org=, #+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/plan.org" - "~/org/gtd.org" + (setq org-agenda-files (quote ("~/org/gtd.org" "~/org/work.org"))) -#+END_SRC - -Only show today's view in agenda view by default -#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; only show today's tasks in agenda view (setq org-agenda-span 'day) -#+END_SRC + ;; Use current windows for agenda view + (setq org-agenda-window-setup 'current-window) -** 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 @@ -795,12 +827,23 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em [[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs. -#+BEGIN_SRC emacs-lisp :tangle yes :results silent +and 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 (use-package magit :ensure t - :commands magit-status magit-blame) - + :commands magit-status magit-blame + :config + (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 @@ -992,8 +1035,8 @@ Some global bindings on =Super=, on Mac, it is =Command= ;; (global-set-key (kbd "s-y") 'projectile-find-file) (global-set-key (kbd "s-f") 'projectile-find-file) - (global-set-key (kbd "s-[") 'persp-next) - (global-set-key (kbd "s-]") 'persp-prev) + ;; (global-set-key (kbd "s-[") 'persp-next) + ;; (global-set-key (kbd "s-]") 'persp-prev) (global-set-key (kbd "s-`") 'mode-line-other-buffer) @@ -1145,76 +1188,86 @@ Occur search key bindings #+END_SRC * Eshell - -Eshell alias - +*** Eshell alias #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (defalias 'e 'ido-find-file) (defalias 'ff 'ido-find-file) (defalias 'ee 'ido-find-file-other-window) - #+END_SRC -Quickly start eshll in split window below, refer [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]] - +*** 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))) - (defun eshell-x () - (insert "exit") - (eshell-send-input) - (delete-window)) + (add-hook 'eshell-mode-hook (lambda () + (local-set-key (kbd "C-l") 'sd/eshell-clear-buffer))) +#+END_SRC - (defun eshell-here () - "Opens up a new shell in the directory associated with the - current buffer's file. The eshell is renamed to match that - directory to make multiple eshell windows easier." +*** Toggle Eshell +Toggle an eshell 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 sd/window-has-eshell () + "Check if current windows list has a eshell buffer, and return the window" (interactive) - (let* ((parent (if (buffer-file-name) - (file-name-directory (buffer-file-name)) - default-directory)) - (height (/ (window-total-height) 3)) - (name (car (last (split-string parent "/" t)))) - (eshell-name (concat "*eshell: " name "*"))) - (split-window-vertically (- height)) - (other-window 1) - (if (get-buffer eshell-name) - (progn - (message "buffer exist") - (switch-to-buffer eshell-name)) - (progn - (eshell "new") - (rename-buffer eshell-name) - - (insert (concat "ls")) + (let ((ret nil)) + (walk-windows (lambda (window) + (if (equal (with-current-buffer (window-buffer window) major-mode) + 'eshell-mode) + (setq ret window))) + nil nil) + ret)) + + (defun sd/toggle-eshell-here () + "Toggle a eshell buffer vertically" + (interactive) + (if (sd/window-has-eshell) + (if (equal major-mode 'eshell-mode) + (progn + (if (equal (length (window-list)) 1) + (mode-line-other-buffer) + (delete-window))) + (select-window (sd/window-has-eshell))) + (progn + (let ((dir default-directory)) + + (split-window-vertically (- (/ (window-total-height) 3))) + (other-window 1) + (unless (and (boundp 'eshell-buffer-name) (get-buffer eshell-buffer-name)) + (eshell)) + (switch-to-buffer eshell-buffer-name) + (goto-char (point-max)) + (eshell-kill-input) + (insert (format "cd %s" dir)) (eshell-send-input))))) - ;; (global-set-key (kbd "M-`") (lambda () - ;; (interactive) - ;; (if (buffer-name)))) - + (global-unset-key (kbd "M-`")) + (global-set-key (kbd "M-`") 'sd/toggle-eshell-here) #+END_SRC * Misc Settings ** [[https://github.com/abo-abo/hydra][Hydra]] - +*** hydra install #+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 @@ -1260,15 +1313,14 @@ 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) "window" - ("h" windmove-left nil) - ("j" windmove-down nil) - ("k" windmove-up nil) - ("l" windmove-right nil) + ("h" windmove-left nil :exit t) + ("j" windmove-down nil :exit t) + ("k" windmove-up nil :exit t) + ("l" windmove-right nil :exit t) ("H" hydra-move-splitter-left nil) ("J" hydra-move-splitter-down nil) ("K" hydra-move-splitter-up nil) @@ -1277,26 +1329,26 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex (interactive) (split-window-right) (windmove-right)) - "vert") + "vert" :exit t) ("x" (lambda () (interactive) (split-window-below) (windmove-down)) - "horz") + "horz" :exit t) ("o" delete-other-windows "one" :exit t) ("a" ace-window "ace") ("s" ace-swap-window "swap") ("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) @@ -1466,11 +1518,10 @@ Type =o= to go to the link We can use [[https://www.gnu.org/software/emms/quickstart.html][Emms]] for multimedia in Emacs #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package emms :ensure t :init - (setq emms-source-file-default-directory "~/Music/emms/") + (setq emms-source-file-default-directory "~/Music/") :config (emms-standard) (emms-default-players)