Single key commands

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="
+                                         ""]))
     )
   )