emacs - change some keybindings

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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 041cf06..e7e50e1 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -520,7 +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 '("⦿" "â\9cª" "â\9a«" "â\97\89" "â\97\8b" "â\96º" "â\97\86"))
+  (setq org-bullets-bullet-list '("⦿" "✪" "◉" "○" "►" "◆"))
 #+END_SRC
 
 ** Worf Mode
@@ -642,6 +642,7 @@ Logging Stuff
   (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
@@ -720,7 +721,6 @@ Setting agenda files and the agenda view
   (setq org-agenda-show-all-dates t)
 #+END_SRC
 
-
 ** Export PDF
 
 Install MacTex-basic and some tex packages
@@ -835,6 +835,20 @@ extend org-mode's easy templates, refer to [[http://coldnew.github.io/coldnew-em
 
 #+END_SRC
 
+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
+  (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
 
 ** IDO
@@ -1024,8 +1038,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)
 
@@ -1191,7 +1205,6 @@ Eshell alias
 Quickly start eshll 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 eshell-x ()
     (insert "exit")
     (eshell-send-input)
@@ -1221,32 +1234,29 @@ Quickly start eshll in split window below, refer [[http://www.howardism.org/Tech
           (insert (concat "ls"))
           (eshell-send-input)))))
 
-  ;; (global-set-key (kbd "M-`") (lambda ()
-  ;;                               (interactive)
-  ;;                               (if (buffer-name))))
-
+  (global-unset-key (kbd "M-`"))
+  (global-set-key (kbd "M-`") #'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 "<f2>")
 
-  (defhydra sd/font-zoom (global-map "<f2>")
     "zoom"
     ("g" text-scale-increase "in")
     ("l" text-scale-decrease "out"))
-
 #+END_SRC
 
 *** Windmove Splitter
@@ -1292,15 +1302,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)
@@ -1309,26 +1318,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)
     ("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)
@@ -1498,11 +1507,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)