diff options
Diffstat (limited to 'ravi-init-navigation.el')
| -rw-r--r-- | ravi-init-navigation.el | 45 |
1 files changed, 40 insertions, 5 deletions
diff --git a/ravi-init-navigation.el b/ravi-init-navigation.el index 86f094e..5da6353 100644 --- a/ravi-init-navigation.el +++ b/ravi-init-navigation.el @@ -24,6 +24,29 @@ ;;; Code: +(use-package region-bindings-mode + :init (region-bindings-mode-enable) + :config + (progn + (region-bindings-mode-enable) + + ;; The macro 'bind-key does not seem to work for region-bindings-mode-map + + (define-key region-bindings-mode-map "f" 'forward-word) + (define-key region-bindings-mode-map "b" 'backward-word) + + ;; HJKL cluster to replace arrow keys + (define-key region-bindings-mode-map "h" 'backward-char) + (define-key region-bindings-mode-map "l" 'forward-char) + (define-key region-bindings-mode-map "j" 'previous-line) + (define-key region-bindings-mode-map "k" 'next-line) + + ;; Most of the time, we mark regions to copy + (define-key region-bindings-mode-map "w" 'kill-ring-save) + ) + :ensure t + ) + (use-package ace-jump-mode :bind ("M-h" . ace-jump-mode) :ensure t @@ -47,6 +70,18 @@ ("C-c C-<" . mc/mark-all-like-this)) :init (setq mc/list-file (ravi/emacs-file "past/mc-lists.el")) + :config + (progn + (define-key region-bindings-mode-map "a" 'mc/mark-all-like-this) + (define-key region-bindings-mode-map "p" 'mc/mark-previous-like-this) + (define-key region-bindings-mode-map "n" 'mc/mark-next-like-this) + (define-key region-bindings-mode-map "m" 'mc/mark-more-like-this-extended) + ) + :ensure t + ) + +(use-package god-mode + :bind (("<escape>" . god-local-mode)) :ensure t ) @@ -107,14 +142,14 @@ ;; Suggest word at point if possible (defun webjump-read-string (prompt) (let* ((prompt (concat prompt (if (word-at-point) (concat " (default: " (word-at-point) ")")) ": ")) - (input (read-string prompt))) - (if (webjump-null-or-blank-string-p input) (word-at-point) input))) + (input (read-string prompt))) + (if (webjump-null-or-blank-string-p input) (word-at-point) input))) ;; C++ reference (add-to-list 'webjump-sites - '("cpp" . [simple-query "en.cppreference.com" - "http://en.cppreference.com/mwiki/index.php?title=Special:Search&search=" - ""])) + '("cpp" . [simple-query "en.cppreference.com" + "http://en.cppreference.com/mwiki/index.php?title=Special:Search&search=" + ""])) ) ) |