(auto-revert-mode . "")
;; default is Ind
(org-indent-mode . "")
+ ;; default is Fly
+ (flyspell-mode . "")
;; Major modes
(lisp-interaction-mode . "λ")
(hi-lock-mode . "")
(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
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)
** 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