X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=1757e67ad9d394504bc209c81e68df8b3a896311;hb=47590b5a50fc5a816c2fa38ace5822b8060b3293;hp=a6bd9255fe8fbde6fdb0a236a97ce2e8b7213178;hpb=d7faabf70d76b9ffb5ebacaef38b49973b111118;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index a6bd925..1757e67 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 120) + (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]] @@ -332,12 +338,17 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac ;; default is SP (smartparens-mode . "") ;; default is LR - (linum-mode . "") + (linum-relative-mode . "") + ;; default is ARev + (auto-revert-mode . "") + ;; default is Ind + (org-indent-mode . "") ;; Major modes (lisp-interaction-mode . "λ") (hi-lock-mode . "") (python-mode . "Py") (emacs-lisp-mode . "EL") + (eshell-mode . "ε") (nxhtml-mode . "nx")) "Alist for `clean-mode-line'. @@ -362,11 +373,16 @@ 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 :config - (powerline-center-theme)) + ;; (powerline-center-theme) + ) ;; (use-package smart-mode-line ;; :ensure t) @@ -374,216 +390,82 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac ;; :ensure t) #+END_SRC -Fix the issue in mode line when showing triangle - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (setq ns-use-srgb-colorspace nil) - -#+END_SRC - -* Org-mode Settings - -** Org-mode Basic setting - -Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= +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) + s)) - (use-package org - :ensure t - :init - (setq org-startup-indented t) - (setq org-hide-leading-starts t) - (setq org-src-fontify-natively t) - (setq org-src-tab-acts-natively t) - (setq org-confirm-babel-evaluate nil) - (setq org-use-speed-commands t) - (setq org-completion-use-ido t)) - - (org-babel-do-load-languages - 'org-babel-load-languages - '((python . t) - (C . t) - (perl . t) - (calc . t) - (latex . t) - (java . t) - (ruby . t) - (lisp . t) - (scheme . t) - (sh . t) - (sqlite . t) - (js . t))) - - ;; use current window for org source buffer editting - (setq org-src-window-setup 'current-window ) - -#+END_SRC - -** Org-bullets - -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 - (add-hook 'org-mode-hook - (lambda () - (org-bullets-mode t)))) - -#+END_SRC - -** Worf Mode - -[[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode. -In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich -cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to -=M-[= and =M-]=. see this [[https://github.com/abo-abo/worf/issues/19#issuecomment-223756599][issue]] - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (use-package worf - :ensure t - :commands worf-mode - :init (add-hook 'org-mode-hook 'worf-mode) - ;; :config - ;; (define-key worf-mode-map "[" nil) - ;; (define-key worf-mode-map "]" nil) - ;; (define-key worf-mode-map (kbd "M-[") 'worf-backward) - ;; (define-key worf-mode-map (kbd "M-]") 'worf-forward) - ) - -#+END_SRC - -** Task Management - -** Capture - -** Export PDF - -Install MacTex-basic and some tex packages - -#+BEGIN_SRC bash - - sudo tlmgr update --self - - sudo tlmgr install titlesec framed threeparttable wrapfig multirow enumitem bbding titling tabu mdframed tcolorbox textpos import varwidth needspace tocloft ntheorem environ trimspaces collection-fontsrecommended capt-of - -#+END_SRC - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; ;; allow for export=>beamer by placing - - ;; http://emacs-fu.blogspot.com/2011/04/nice-looking-pdfs-with-org-mode-and.html - ;; #+LaTeX_CLASS: beamer in org files - (unless (boundp 'org-export-latex-classes) - (setq org-export-latex-classes nil)) - (add-to-list 'org-export-latex-classes - ;; beamer class, for presentations - '("beamer" - "\\documentclass[11pt]{beamer}\n - \\mode<{{{beamermode}}}>\n - \\usetheme{{{{beamertheme}}}}\n - \\usecolortheme{{{{beamercolortheme}}}}\n - \\beamertemplateballitem\n - \\setbeameroption{show notes} - \\usepackage[utf8]{inputenc}\n - \\usepackage[T1]{fontenc}\n - \\usepackage{hyperref}\n - \\usepackage{color} - \\usepackage{listings} - \\lstset{numbers=none,language=[ISO]C++,tabsize=4, - frame=single, - basicstyle=\\small, - showspaces=false,showstringspaces=false, - showtabs=false, - keywordstyle=\\color{blue}\\bfseries, - commentstyle=\\color{red}, - }\n - \\usepackage{verbatim}\n - \\institute{{{{beamerinstitute}}}}\n - \\subject{{{{beamersubject}}}}\n" - - ("\\section{%s}" . "\\section*{%s}") - - ("\\begin{frame}[fragile]\\frametitle{%s}" - "\\end{frame}" - "\\begin{frame}[fragile]\\frametitle{%s}" - "\\end{frame}"))) - - ;; letter class, for formal letters - - (add-to-list 'org-export-latex-classes - - '("letter" - "\\documentclass[11pt]{letter}\n - \\usepackage[utf8]{inputenc}\n - \\usepackage[T1]{fontenc}\n - \\usepackage{color}" - - ("\\section{%s}" . "\\section*{%s}") - ("\\subsection{%s}" . "\\subsection*{%s}") - ("\\subsubsection{%s}" . "\\subsubsection*{%s}") - ("\\paragraph{%s}" . "\\paragraph*{%s}") - ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))) - - - (require 'ox-md) - (require 'ox-beamer) - - (setq org-latex-pdf-process - '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" - "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" - "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")) - - (setq TeX-parse-self t) - - (setq TeX-PDF-mode t) - (add-hook 'LaTeX-mode-hook - (lambda () - (LaTeX-math-mode) - (setq TeX-master t))) - -#+END_SRC - -** 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)"))) - + (defun sd/powerline-center-theme_revised () + "Setup a mode-line with major and minor modes centered." + (interactive) + (setq-default mode-line-format + '("%e" + (:eval + (let* ((active (powerline-selected-window-active)) + (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive)) + (mode-line (if active 'mode-line 'mode-line-inactive)) + (face1 (if active 'powerline-active1 'powerline-inactive1)) + (face2 (if active 'powerline-active2 'powerline-inactive2)) + (separator-left (intern (format "powerline-%s-%s" + (powerline-current-separator) + (car powerline-default-separator-dir)))) + (separator-right (intern (format "powerline-%s-%s" + (powerline-current-separator) + (cdr powerline-default-separator-dir)))) + (lhs (list (powerline-raw "%*" mode-line 'l) + ;; (powerline-buffer-size mode-line 'l) + (powerline-buffer-id mode-line-buffer-id 'l) + (powerline-raw " ") + (funcall separator-left mode-line face1) + (powerline-narrow face1 'l) + ;; (powerline-vc face1) + (sd/powerline-simpler-vc (powerline-vc face1)) + )) + (rhs (list (powerline-raw global-mode-string face1 'r) + (powerline-raw "%4l" face1 'r) + (powerline-raw ":" face1) + (powerline-raw "%3c" face1 'r) + (funcall separator-right face1 mode-line) + (powerline-raw " ") + (powerline-raw "%6p" mode-line 'r) + (powerline-hud face2 face1))) + (center (list (powerline-raw " " face1) + (funcall separator-left face1 face2) + (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode) + (powerline-raw erc-modified-channels-object face2 'l)) + (powerline-major-mode face2 'l) + (powerline-process face2) + (powerline-raw " :" face2) + (powerline-minor-modes face2 'l) + (powerline-raw " " face2) + (funcall separator-right face2 face1)))) + (concat (powerline-render lhs) + (powerline-fill-center face1 (/ (powerline-width center) 2.0)) + (powerline-render center) + (powerline-fill face1 (powerline-width rhs)) + (powerline-render rhs))))))) + + (sd/powerline-center-theme_revised) #+END_SRC -extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-emacs/#orgheadline94][Extend org-modes' esay templates]] +Fix the issue in mode line when showing triangle #+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (add-to-list 'org-structure-template-alist - '("E" "#+BEGIN_SRC emacs-lisp\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 - '("p" "#+BEGIN_SRC plantuml :file uml.png \n?\n#+END_SRC")) - + (setq ns-use-srgb-colorspace nil) #+END_SRC -* Magit - -[[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs. +set height in mode line #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package magit - :ensure t - :commands magit-status magit-blame) - + (custom-set-variables + '(powerline-height 14) + '(powerline-text-scale-factor 0.8)) + ;; 100/140 + (set-face-attribute 'mode-line nil :height 100) #+END_SRC @@ -776,8 +658,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) @@ -928,77 +810,462 @@ Occur search key bindings ;; C-. undefined #+END_SRC -* Eshell +* Org-mode Settings + +** Org-mode Basic setting + +Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package org + :ensure t + :init + (setq org-startup-indented t) + (setq org-hide-leading-starts t) + (setq org-src-fontify-natively t) + (setq org-src-tab-acts-natively t) + (setq org-confirm-babel-evaluate nil) + (setq org-use-speed-commands t) + (setq org-completion-use-ido t)) + + (org-babel-do-load-languages + 'org-babel-load-languages + '((python . t) + (C . t) + (perl . t) + (calc . t) + (latex . t) + (java . t) + (ruby . t) + (lisp . t) + (scheme . t) + (sh . t) + (sqlite . t) + (js . t))) + + ;; use current window for org source buffer editting + (setq org-src-window-setup 'current-window ) + +#+END_SRC + +** Org-bullets + +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 + (add-hook 'org-mode-hook + (lambda () + (org-bullets-mode t)))) + + (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆")) +#+END_SRC + +** Worf Mode + +[[https://github.com/abo-abo/worf][worf]] mode is an extension of vi-like binding for org-mode. +In =worf-mode=, it is mapping =[=, =]= as =worf-backward= and =worf-forward= in global, wich +cause we cannot input =[= and =]=, so here I unset this mappings. And redifined this two to +=M-[= and =M-]=. see this [[https://github.com/abo-abo/worf/issues/19#issuecomment-223756599][issue]] + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package worf + :ensure t + :commands worf-mode + :init (add-hook 'org-mode-hook 'worf-mode) + ;; :config + ;; (define-key worf-mode-map "[" nil) + ;; (define-key worf-mode-map "]" nil) + ;; (define-key worf-mode-map (kbd "M-[") 'worf-backward) + ;; (define-key worf-mode-map (kbd "M-]") 'worf-forward) + ) + +#+END_SRC + +** 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]], -Eshell alias +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) + (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. + +**** Capture Templates + +When a new taks needs to be added, categorize it as + +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 + +Install MacTex-basic and some tex packages + +#+BEGIN_SRC bash + + sudo tlmgr update --self + + sudo tlmgr install titlesec framed threeparttable wrapfig multirow enumitem bbding titling tabu mdframed tcolorbox textpos import varwidth needspace tocloft ntheorem environ trimspaces collection-fontsrecommended capt-of + +#+END_SRC + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;; ;; allow for export=>beamer by placing + + ;; http://emacs-fu.blogspot.com/2011/04/nice-looking-pdfs-with-org-mode-and.html + ;; #+LaTeX_CLASS: beamer in org files + (unless (boundp 'org-export-latex-classes) + (setq org-export-latex-classes nil)) + (add-to-list 'org-export-latex-classes + ;; beamer class, for presentations + '("beamer" + "\\documentclass[11pt]{beamer}\n + \\mode<{{{beamermode}}}>\n + \\usetheme{{{{beamertheme}}}}\n + \\usecolortheme{{{{beamercolortheme}}}}\n + \\beamertemplateballitem\n + \\setbeameroption{show notes} + \\usepackage[utf8]{inputenc}\n + \\usepackage[T1]{fontenc}\n + \\usepackage{hyperref}\n + \\usepackage{color} + \\usepackage{listings} + \\lstset{numbers=none,language=[ISO]C++,tabsize=4, + frame=single, + basicstyle=\\small, + showspaces=false,showstringspaces=false, + showtabs=false, + keywordstyle=\\color{blue}\\bfseries, + commentstyle=\\color{red}, + }\n + \\usepackage{verbatim}\n + \\institute{{{{beamerinstitute}}}}\n + \\subject{{{{beamersubject}}}}\n" + + ("\\section{%s}" . "\\section*{%s}") + + ("\\begin{frame}[fragile]\\frametitle{%s}" + "\\end{frame}" + "\\begin{frame}[fragile]\\frametitle{%s}" + "\\end{frame}"))) + + ;; letter class, for formal letters + + (add-to-list 'org-export-latex-classes + + '("letter" + "\\documentclass[11pt]{letter}\n + \\usepackage[utf8]{inputenc}\n + \\usepackage[T1]{fontenc}\n + \\usepackage{color}" + + ("\\section{%s}" . "\\section*{%s}") + ("\\subsection{%s}" . "\\subsection*{%s}") + ("\\subsubsection{%s}" . "\\subsubsection*{%s}") + ("\\paragraph{%s}" . "\\paragraph*{%s}") + ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))) + + + (require 'ox-md) + (require 'ox-beamer) + + (setq org-latex-pdf-process + '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" + "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f" + "pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")) + + (setq TeX-parse-self t) + + (setq TeX-PDF-mode t) + (add-hook 'LaTeX-mode-hook + (lambda () + (LaTeX-math-mode) + (setq TeX-master t))) + +#+END_SRC + +** others + +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 :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 + '("p" "#+BEGIN_SRC plantuml :file uml.png \n?\n#+END_SRC")) + +#+END_SRC + +* Magit +[[https://github.com/magit/magit][Magit]] is a very cool git interface on Emacs. +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 + :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 "D" 'magit-discard-file) + (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 + +* Eshell +*** 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 ((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) - (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")) + (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 @@ -1044,15 +1311,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) @@ -1061,26 +1327,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) @@ -1250,11 +1516,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) @@ -1347,6 +1612,25 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f #+END_SRC +** dired +=C-o= is defined as a global key for window operation, here unset it in dired mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (add-hook 'dired-mode-hook (lambda () + (local-unset-key (kbd "C-o")) + (local-set-key (kbd "o") 'dired-display-file))) +#+END_SRC + +** Info plus +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + ;(el-get-bundle info+ + ; :url "https://raw.githubusercontent.com/emacsmirror/emacswiki.org/master/info%2B.el" + ; (require 'info+)) +#+END_SRC + +** TODO bookmark + +** TODO Calendar + * Programming ** Languages