ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

.emacs.d/site-lisp/quick-edit-mode.el

Browse source
This commit is contained in:
Tom Willemsen 2012-10-03 02:50:41 +02:00
parent 2745411925
commit 5943855ab5
1 changed files with 30 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
.emacs.d/site-lisp/quick-edit-mode.el
View file

@ -26,32 +26,49 @@
(defvar quick-edit-map (defvar quick-edit-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(define-key map "n" 'next-line)
(define-key map "p" 'previous-line)
(define-key map "f" 'forward-char)
(define-key map "b" 'backward-char)
(define-key map "e" 'oni:move-end-of-dwim)
(define-key map "a" 'oni:move-beginning-of-dwim)
(define-key map "V" 'scroll-down-command)
(define-key map "v" 'scroll-up-command)
(define-key map "/" 'undo) (define-key map "/" 'undo)
(define-key map "w" 'oni:kill-region-or-backward-char) (define-key map "0" 'delete-window)
(define-key map "d" 'oni:kill-region-or-forward-char) (define-key map "1" 'delete-other-windows)
(define-key map "k" 'oni:kill-region-or-line) (define-key map "2" 'split-window-below)
(define-key map "3" 'split-window-right)
(define-key map "K" 'kill-whole-line) (define-key map "K" 'kill-whole-line)
(define-key map "V" 'scroll-down-command)
(define-key map "a" 'oni:move-beginning-of-dwim)
(define-key map "b" 'backward-char)
(define-key map "d" 'oni:kill-region-or-forward-char)
(define-key map "e" 'oni:move-end-of-dwim)
(define-key map "f" 'forward-char)
(define-key map "j" 'newline-and-indent) (define-key map "j" 'newline-and-indent)
(define-key map "k" 'oni:kill-region-or-line)
(define-key map "n" 'next-line)
(define-key map "o" 'other-window)
(define-key map "p" 'previous-line)
(define-key map "v" 'scroll-up-command)
(define-key map "w" 'oni:kill-region-or-backward-char)
(define-key map (kbd "C-b") 'electric-buffer-list)
(define-key map (kbd "C-g") 'quick-edit-mode)
(define-key map (kbd "RET") 'quick-edit-mode) (define-key map (kbd "RET") 'quick-edit-mode)
map) map)
"Keymap for quick-edit-mode.") "Keymap for quick-edit-mode.")
(defun qe-locally-disable ()
"Disable quick-edit mode in the minibuffer"
(when (eq overriding-local-map quick-edit-map)
(setq-local overriding-local-map nil)))
;;;###autoload ;;;###autoload
(define-minor-mode quick-edit-mode (define-minor-mode quick-edit-mode
"Quickly edit stuff." "Quickly edit stuff."
:lighter " qe" :lighter " qe"
:global t :global t
(if quick-edit-mode (if quick-edit-mode
(progn
(setq overriding-local-map quick-edit-map) (setq overriding-local-map quick-edit-map)
(setq overriding-local-map nil))) (add-hook 'minibuffer-setup-hook 'qe-locally-disable)
(add-hook 'special-mode-hook 'qe-locally-disable))
(setq overriding-local-map nil)
(remove-hook 'minibuffer-setup-hook 'qe-locally-disable)
(remove-hook 'special-mode-hook 'qe-locally-disable)))
(provide 'quick-edit-mode) (provide 'quick-edit-mode)
;;; quick-edit-mode.el ends here ;;; quick-edit-mode.el ends here