Set the emacs load path
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
- (add-to-list 'load-path "~/.emacs.d/elisp")
-
+ ;; (add-to-list 'load-path "~/.emacs.d/elisp")
#+END_SRC
** Package Initialization
(tool-bar-mode 0)
(menu-bar-mode 1)
- (setq debug-on-error t)
+ ;; (setq debug-on-error t)
(setq inhibit-startup-message t)
(defalias 'yes-or-no-p 'y-or-n-p)
(height . 50)))
#+END_SRC
+Stop auto save
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (setq auto-save-default nil)
+
+ ;; restore last session
+ (desktop-save-mode t)
+#+END_SRC
+
* Package Management Tools
** Use-package
(auto-revert-mode . "")
;; default is Ind
(org-indent-mode . "")
+ ;; default is Fly
+ (flyspell-mode . "")
;; Major modes
(lisp-interaction-mode . "λ")
(hi-lock-mode . "")
;; enable flyspell check on comments and strings in progmamming modes
(add-hook 'prog-mode-hook 'flyspell-prog-mode)
+
+ ;; I don't use the default mappings
+ (with-eval-after-load 'flyspell
+ (define-key flyspell-mode-map (kbd "C-;") nil)
+ (define-key flyspell-mode-map (kbd "C-,") nil)
+ (define-key flyspell-mode-map (kbd "C-.") nil))
#+END_SRC
Make flyspell enabled for org-mode, see [[http://emacs.stackexchange.com/questions/9333/how-does-one-use-flyspell-in-org-buffers-without-flyspell-triggering-on-tangled][here]]
*** =M-g= prefix
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (global-set-key (kbd "M-g g") 'avy-goto-line)
+ (global-set-key (kbd "M-g j") 'avy-goto-line-below)
+ (global-set-key (kbd "M-g k") 'avy-goto-line-above)
+ (global-set-key (kbd "M-g w") 'avy-goto-word-1-below)
+ (global-set-key (kbd "M-g b") 'avy-goto-word-1-above)
(global-set-key (kbd "M-g e") 'avy-goto-word-0)
- (global-set-key (kbd "M-g w") 'avy-goto-word-1)
- (global-set-key (kbd "M-g c") 'avy-goto-char-timer)
- (global-set-key (kbd "M-g f") 'avy-goto-char-in-line)
+ (global-set-key (kbd "M-g f") 'avy-goto-char-timer)
+ (global-set-key (kbd "M-g c") 'avy-goto-char-in-line)
;; M-g TAB move-to-column
;; M-g ESC Prefix Command
;; C-7
;; C-Space
-
-
-
-
-
-
-
#+END_SRC
** =Super= bindings for file, buffer and windows
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
;; use current window for org source buffer editting
(setq org-src-window-setup 'current-window )
+ (define-key org-mode-map (kbd "C-'") nil)
#+END_SRC
** Org-bullets
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(use-package magit
:ensure t
+ :init
+ ;; don't ask me to confirm the unsaved change
+ (setq magit-save-repository-buffers nil)
:commands magit-status magit-blame
:config
(dolist (map (list magit-status-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 "D" 'magit-discard)
+ (define-key map "O" 'magit-discard-file)
(define-key map "n" nil)
(define-key map "p" nil)
(define-key map "v" 'recenter-top-bottom)
#+END_SRC
*** Font Zoom
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra sd/font-zoom (global-map "<f2>")
-
+ (defhydra sd/font-zoom (global-map "<f2>")
"zoom"
("g" text-scale-increase "in")
("l" text-scale-decrease "out"))
("o" delete-other-windows "one" :exit t)
("C-o" ido-switch-buffer "buf" :exit t)
("C-k" sd/delete-current-window "del" :exit t)
+ ("'" other-window "other" :exit t)
("a" ace-window "ace")
("s" ace-swap-window "swap")
("d" ace-delete-window "ace-one" :exit t)
*** hydra misc
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra sd/hydra-misc ()
+ (defhydra sd/hydra-misc (:color red :columns nil)
"Miscellaneous Commands"
- ("e" eshell "eshell" :color red :exit t)
+ ("e" eshell "eshell" :exit t)
("p" (lambda ()
(interactive)
- (if (sd/buffer-exist "*Packages*")
+ (if (not (eq nil (get-buffer "*Packages*")))
(switch-to-buffer "*Packages*")
(package-list-packages)))
- "list-package" :color red :exit t)
- ("g" magit-status "git-status" :color red :exit t))
+ "list-package" :exit t)
+ ("g" magit-status "git-status" :exit t)
+ ("'" mode-line-other-buffer "last buffer" :exit t)
+ ("C-'" mode-line-other-buffer "last buffer" :exit t)
+ ("m" man "man" :exit t)
+ ("d" dired-jump "dired" :exit t)
+ ("q" nil "quit")
+ ("f" nil "quit"))
+
+ (global-set-key (kbd "C-'") 'sd/hydra-misc/body)
#+END_SRC
*** hydra launcher
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- (defhydra hydra-launcher (:color blue :columns 2)
+ (defhydra sd/hydra-launcher (:color blue :columns 2)
"Launch"
- ("h" man "man")
- ("s" eshell "eshell")
- ("p" package-list-packages "Package")
+ ("e" emms "emms" :exit t)
("q" nil "cancel"))
#+END_SRC
#+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+
(unless (> (length (window-list)) 1)
(split-window-right))
(other-window 1)
- (info)))
+ ;; (info)
+ ))
- (global-set-key (kbd "C-h i") 'sd/info-mode)
+ ;; (global-set-key (kbd "C-h i") 'sd/info-mode)
;; open Info buffer in other window instead of current window
- (defadvice Info (before my-info activate)
+ (defadvice info (before my-info (&optional file buf) activate)
(sd/info-mode))
(defadvice Info-exit (after my-info-exit activate)
(sd/delete-current-window))
#+END_SRC
+** TODO Man mode
+Color for Man-mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (add-hook 'Man-mode-hook (lambda ()
+ ;; (interactive)
+ ;; (setenv "GROFF_NO_SRG")))
+#+END_SRC
+
+** TODO swiper to occur
+
+** TODO UTF8
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (set-language-environment "UTF-8")
+ ;; (set-default-coding-systems 'utf-8)
+#+END_SRC
+
+** Demo It
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; (el-get-bundle howardabrams/demo-it)
+
+ ;; (use-package org-tree-slide
+ ;; :ensure t)
+
+ ;; (use-package yasnippet
+ ;; :ensure t)
+#+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)))
+
+ (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+#+END_SRC
+
+Dired+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package dired+
+ :ensure t
+ :init
+ (setq diredp-hide-details-initially-flag nil)
+ :config
+ (define-key dired-mode-map (kbd "j") 'diredp-next-line)
+ (define-key dired-mode-map (kbd "k") 'diredp-previous-line)
+ (define-key dired-mode-map (kbd "g") 'dired-goto-file))
+#+END_SRC
+
* Programming
** Languages
;; (gnus-group-select-group "INBOX")))
#+END_SRC
+* Blog
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+#+END_SRC
+
* key
- passion
- vision