(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
** TODO bookmark
** TODO Calendar
-** TODO advice info
+** advice info
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(defun sd/info-mode ()
(interactive)
(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)
- ;; (add-hook 'Info-mode-hook (lambda ()
- ;; (define-key Info-mode-map "q" )))
+ ;; 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
** Languages