emacs - dired+

[dotfiles.git] / emacs.d / config.org

diff --git a/emacs.d/config.org b/emacs.d/config.org
index f2325bd..7fdcd45 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -93,6 +93,14 @@ Set default window size
           (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
@@ -350,6 +358,8 @@ clean mode line, Refer to [[https://www.masteringemacs.org/article/hiding-replac
       (auto-revert-mode . "")
       ;; default is Ind
       (org-indent-mode . "")
+      ;; default is  Fly
+      (flyspell-mode . "")
       ;; Major modes
       (lisp-interaction-mode . "λ")
       (hi-lock-mode . "")
@@ -598,6 +608,12 @@ Stolen from [[https://github.com/redguardtoo/emacs.d/blob/master/lisp/init-spell
 
   ;; 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]]
@@ -619,6 +635,15 @@ Make flyspell enabled for org-mode, see [[http://emacs.stackexchange.com/questio
         (if (and b e (< (point) e)) (setq rlt nil)))
       (setq ad-return-value rlt)))
 #+END_SRC
+
+*** Expand-region
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package expand-region
+    :ensure t
+    :config
+    (global-set-key (kbd "C-=") 'er/expand-region))
+#+END_SRC
+
 ** Motion
 *** Avy
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -630,11 +655,13 @@ Make flyspell enabled for org-mode, see [[http://emacs.stackexchange.com/questio
 
 *** =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
@@ -710,13 +737,6 @@ Use =ESC= to exit minibuffer. Also I map =Super-h= the same as =C-g=
   ;; C-7
 
   ;; C-Space
-
-
-
-
-
-
-
 #+END_SRC
 
 ** =Super= bindings for file, buffer and windows
@@ -929,7 +949,6 @@ use the prefix =M-s= for searching in buffers
 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
@@ -959,6 +978,7 @@ Always indents header, and hide header leading starts so that no need type =#+ST
   ;; 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
@@ -1285,6 +1305,9 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
 #+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
@@ -1293,7 +1316,8 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github
                        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)
@@ -1375,10 +1399,8 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
 #+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"))
@@ -1451,6 +1473,7 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
     ("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)
@@ -1469,25 +1492,31 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
 
 *** 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
 
@@ -1707,14 +1736,6 @@ 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+
@@ -1725,6 +1746,64 @@ Play Go in Emacs, gnugo xpm refert [[https://github.com/okanotor/dotemacs/blob/f
 ** TODO bookmark
 
 ** TODO Calendar
+** advice info
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (defun sd/info-mode ()
+    (interactive)
+    (unless (equal major-mode 'Info-mode)
+      (unless (> (length (window-list)) 1)
+        (split-window-right))
+      (other-window 1)
+      ;; (info)
+      ))
+
+  ;; (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 (&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
+
+* 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
 
@@ -2080,6 +2159,11 @@ See [[https://www.emacswiki.org/emacs/GnusWindowLayout][GnusWindowLayout]]
   ;;                               (gnus-group-select-group "INBOX")))
 #+END_SRC
 
+* Blog
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+
+#+END_SRC
+
 * key
 - passion
 - vision