X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d_2%2Fconfig.org;h=4c5d556b59a21fb8996ee04ff77f9d46c1135eed;hb=ce36563fc9c9eb17fad17e32c29da582d1c59f59;hp=682a935d8190769a0f59ee741887f6117f51dec2;hpb=bbeedaa42c70f9acc841d735e56145de299825d9;p=dotfiles.git diff --git a/emacs.d_2/config.org b/emacs.d_2/config.org index 682a935..4c5d556 100644 --- a/emacs.d_2/config.org +++ b/emacs.d_2/config.org @@ -8,15 +8,7 @@ Most config are just copied from [[https://github.com/howardabrams/dot-files][ho * Basic Settings -** Setting Path - -Set the system PATH environment - -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - - (setenv "PATH" (concat (getenv "PATH") ":/usr/local/bin")) - -#+END_SRC +** Setting loading Path Set the emacs load path @@ -53,11 +45,13 @@ Disable scroll bar, tool-bar and menu-bar (setq inhibit-startup-message t) (defalias 'yes-or-no-p 'y-or-n-p) - + (show-paren-mode 1) #+END_SRC -* Use-package +* Package Management Tools + +** Use-package Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages @@ -71,6 +65,20 @@ Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs p #+END_SRC +** El-get + +[[https://github.com/dimitri/el-get][El-get]] is package management tool, whicl allows to install external elisp package from any git repository not in mepla. +Check out [[http://tapoueh.org/emacs/el-get.html][el-get]]. + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package el-get + :ensure t + :init + (add-to-list 'load-path "~/.emacs.d/el-get")) + +#+END_SRC + * Color and Fonts Settings ** highlight current line @@ -93,6 +101,42 @@ Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs p #+END_SRC +** Font Setting + +syntax highlighting + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (global-font-lock-mode 1) + +#+END_SRC + +[[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (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 "Anonymous Pro") "Anonymous Pro") + ((x-list-fonts "M+ 1mn") "M+ 1mn")) + "The fixed width font based on what is installed, `nil' if not defined.")) + +#+END_SRC + +Setting the fonts + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (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-font 'default sd/fixed-font-family))) + +#+END_SRC + ** Color Theme Loading theme should be after all required loaded, refere [[https://github.com/jwiegley/use-package][:defer]] in =use-package= @@ -115,44 +159,128 @@ Loading theme should be after all required loaded, refere [[https://github.com/j #+END_SRC -syntax highlighting +Change the Org-mode colors #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (global-font-lock-mode 1) + (defun org-src-color-blocks-light () + "Colors the block headers and footers to make them stand out more for lighter themes" + (interactive) + (custom-set-faces + '(org-block-begin-line + ((t (:underline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) + '(org-block-background + ((t (:background "#FFFFEA")))) + '(org-block + ((t (:background "#FFFFEA")))) + '(org-block-end-line + ((t (:overline "#A7A6AA" :foreground "#008ED1" :background "#EAEAFF")))) + + '(mode-line-buffer-id ((t (:foreground "#005000" :bold t)))) + '(which-func ((t (:foreground "#008000")))))) + + (defun org-src-color-blocks-dark () + "Colors the block headers and footers to make them stand out more for dark themes" + (interactive) + (custom-set-faces + '(org-block-begin-line + ((t (:foreground "#008ED1" :background "#002E41")))) + '(org-block-background + ((t (:background "#000000")))) + '(org-block + ((t (:background "#000000")))) + '(org-block-end-line + ((t (:foreground "#008ED1" :background "#002E41")))) + + '(mode-line-buffer-id ((t (:foreground "black" :bold t)))) + '(which-func ((t (:foreground "green")))))) + + (org-src-color-blocks-dark) #+END_SRC -** Font Setting - -[[https://github.com/i-tu/Hasklig][Hasklig]] and Source Code Pro, defined fonts family - +improve color for org-mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent + (deftheme ha/org-theme "Sub-theme to beautify org mode") (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 "Anonymous Pro") "Anonymous Pro") - ((x-list-fonts "M+ 1mn") "M+ 1mn")) - "The fixed width font based on what is installed, `nil' if not defined.")) + (defvar sd/variable-font-tuple + (cond ((x-list-fonts "Source Sans Pro") '(:font "Source Sans Pro")) + ((x-list-fonts "Lucida Grande") '(:font "Lucida Grande")) + ((x-list-fonts "Verdana") '(:font "Verdana")) + ((x-family-fonts "Sans Serif") '(:family "Sans Serif")) + (nil (warn "Cannot find a Sans Serif Font. Install Source Sans Pro."))) + "My variable width font available to org-mode files and whatnot.")) + + (defun sd/org-color () + (let* ((sd/fixed-font-tuple (list :font sd/fixed-font-family)) + (base-font-color (face-foreground 'default nil 'default)) + (background-color (face-background 'default nil 'default)) + (primary-color (face-foreground 'mode-line nil)) + (secondary-color (face-background 'secondary-selection nil 'region)) + (base-height (face-attribute 'default :height)) + (headline `(:inherit default :weight bold :foreground ,base-font-color))) + (custom-theme-set-faces 'ha/org-theme + `(org-agenda-structure ((t (:inherit default :height 2.0 :underline nil)))) + `(org-verbatim ((t (:inherit 'fixed-pitched :foreground "#aef")))) + `(org-table ((t (:inherit 'fixed-pitched)))) + `(org-block ((t (:inherit 'fixed-pitched)))) + `(org-block-background ((t (:inherit 'fixed-pitched)))) + `(org-block-begin-line ((t (:inherit 'fixed-pitched)))) + `(org-block-end-line ((t (:inherit 'fixed-pitched)))) + `(org-level-8 ((t (,@headline ,@sd/variable-font-tuple)))) + `(org-level-7 ((t (,@headline ,@sd/variable-font-tuple)))) + `(org-level-6 ((t (,@headline ,@sd/variable-font-tuple)))) + `(org-level-5 ((t (,@headline ,@sd/variable-font-tuple)))) + `(org-level-4 ((t (,@headline ,@sd/variable-font-tuple + :height ,(round (* 1.1 base-height)))))) + `(org-level-3 ((t (,@headline ,@sd/variable-font-tuple + :height ,(round (* 1.25 base-height)))))) + `(org-level-2 ((t (,@headline ,@sd/variable-font-tuple + :height ,(round (* 1.5 base-height)))))) + `(org-level-1 ((t (,@headline ,@sd/variable-font-tuple + :height ,(round (* 1.75 base-height)))))) + `(org-document-title ((t (,@headline ,@sd/variable-font-tuple :height 1.5 :underline nil))))))) + #+END_SRC -Setting the fonts +* 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 - (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-font 'default sd/fixed-font-family))) + (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))) #+END_SRC -* Org-mode Settings - ** Org-bullets use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 charactes @@ -168,17 +296,24 @@ use [[https://github.com/sabof/org-bullets][org-bullets]] package to show utf-8 #+END_SRC -** Org-mode Basic setting +** Worf Mode -Always indents header, and hide header leading starts so that no need type =#+STATUP: indent= +[[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-]= #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (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) + (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 @@ -303,3 +438,69 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like #+END_SRC +** Save File Position + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (require 'saveplace) + (setq-default save-place t) + (setq save-place-forget-unreadable-files t) + (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)") + +#+END_SRC + +** Multi-term + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package multi-term + :ensure t) + +#+END_SRC + +** ace-link + +[[https://github.com/abo-abo/ace-link][ace-link]] is a package written by [[https://github.com/abo-abo][Oleh Krehel]]. It is convenient to jump to link in help mode, info-mode, etc +Type =o= to go to the link + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package ace-link + :ensure t + :init + (ace-link-setup-default)) + +#+END_SRC + +* Programming Languages + +** Emacs Lisp + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (use-package color-identifiers-mode + :ensure t + :init + (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode) + + :diminish color-identifiers-mode) + +#+END_SRC + +** Perl + +[[https://www.emacswiki.org/emacs/CPerlMode][CPerl mode]] has more features than =PerlMode= for perl programming. Alias this to =CPerlMode= + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + + (defalias 'perl-mode 'cperl-mode) + +#+END_SRC + +* Others + +** Shell pop mode + +** Smartparens mode + +***