emacs - compilation mode map

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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index b36f660..7d4aa83 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -518,16 +518,13 @@ set height in mode line
 #+END_SRC
 
 ** IDO-vertically
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (use-package ido-vertical-mode
     :ensure t
     :init
     (setq ido-vertical-define-keys 'C-n-C-p-up-and-down)
     :config
     (ido-vertical-mode 1))
-
 #+END_SRC
 
 ** SMEX
@@ -560,17 +557,18 @@ Use [[https://github.com/DarwinAwardWinner/ido-ubiquitous][ido-ubiquitous]] for
 #+END_SRC
 
 ** Ido-exit-target
-
 [[https://github.com/waymondo/ido-exit-target][ido-exit-target]] let you open file/buffer on =other-windows= when call =ido-switch-buffer=
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (use-package ido-exit-target
     :ensure t
     :init
-    (define-key ido-common-completion-map (kbd "C-j") #'ido-exit-target-split-window-right)
-    (define-key ido-common-completion-map (kbd "C-l") #'ido-exit-target-split-window-below))
-
+    (mapcar (lambda (map)
+              (define-key map (kbd "C-j") #'ido-exit-target-split-window-right)
+              (define-key map (kbd "C-k") #'ido-exit-target-split-window-below))
+            (list ido-buffer-completion-map
+                  ;; ido-common-completion-map
+                  ido-file-completion-map
+                  ido-file-dir-completion-map)))
 #+END_SRC
 
 * Normal Text Operation
@@ -1504,6 +1502,7 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex
     ("C-'" mode-line-other-buffer "last buffer" :exit t)
     ("m" man "man" :exit t)
     ("d" dired-jump "dired" :exit t)
+    ("b" ibuffer "ibuffer" :exit t)
     ("q" nil "quit")
     ("f" nil "quit"))
 
@@ -1785,21 +1784,37 @@ Color for Man-mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   ;; (el-get-bundle howardabrams/demo-it)
 
-  ;; (use-package org-tree-slide
-  ;;   :ensure t)
+  (use-package org-tree-slide
+    :ensure t)
 
   ;; (use-package yasnippet
   ;;   :ensure t)
 #+END_SRC
 
+** Presentation
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package org-tree-slide
+    :ensure
+    :config
+    ;; (define-key org-mode-map "\C-ccp" 'org-tree-slide-mode)
+    (define-key org-tree-slide-mode-map (kbd "<ESC>") 'org-tree-slide-content)
+    (define-key org-tree-slide-mode-map (kbd "<SPACE>") 'org-tree-slide-move-next-tree)
+    (define-key org-tree-slide-mode-map [escape] 'org-tree-slide-move-previous-tree))
+#+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 "..")))
+  (use-package dired
+    :config
+    (require 'dired-x)
+    (setq dired-omit-mode t)
+    (setq dired-omit-files (concat dired-omit-files "\\|^\\..+$"))
+    (add-hook 'dired-mode-hook (lambda ()
+                                 (define-key dired-mode-map (kbd "C-o") nil)
+                                 (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
+                                 (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+                                 (dired-omit-mode))))
 #+END_SRC
 
 Dired+
@@ -1914,27 +1929,26 @@ to call =compilation=  interactively.
 #+END_SRC
 
 ** Compile
-
 Set the environments vairables in compilation mode
-
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (use-package compile
     :commands compile
     :config
     (setq compilation-environment (cons "LC_ALL=C" compilation-environment)))
 
+  ;; super-r to compile
+  (with-eval-after-load "compile"
+    (define-key compilation-mode-map (kbd "C-o") nil)
+    (define-key compilation-mode-map (kbd "n") 'compilation-next-error)
+    (define-key compilation-mode-map (kbd "p") 'compilation-previous-error)
+    (define-key compilation-mode-map (kbd "r") #'recompile))
 #+END_SRC
 
 ** Auto-Insert
-
-Enable auto-insert mode
-
+*** Enable auto-insert mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
   (auto-insert-mode t)
   (setq auto-insert-query nil)
-
 #+END_SRC
 
 *** C++ Auto Insert