emacs - Info mode, using defadvice instead of add-hook

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

diff --git a/emacs.d/config.org b/emacs.d/config.org
index f2325bd..aebc41c 100644 (file)
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -619,6 +619,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
@@ -1725,6 +1734,26 @@ 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
 
 * Programming