Add: Ranger-config, several rebindings to match rest of config

abangratz · Nov 7, 2018 · 09619c1 · 09619c1
1 parent e3802f9
commit 09619c1
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 7 deletions.
diff --git a/layers/config/README.org b/layers/config/README.org
@@ -30,13 +30,14 @@ Redone bindings are disabled by default. Turn on with ~redo-bindings?~ in
 
 ** Evil and Core
 
-| Key Binding | Function               |
-|-------------+------------------------|
-| ~Q~         | config/execute-q-macro |
-| ~H~         | evil-first-non-blank   |
-| ~L~         | evil-end-of-line       |
-| ~0~         | evil-jump-item         |
-| ~s~         | avy-goto-char-timer    |
+| Key Binding | Function             |
+|-------------+----------------------|
+| ~Q~         | evil-execute-q-macro |
+| ~H~         | evil-first-non-blank |
+| ~L~         | evil-end-of-line     |
+| ~0~         | evil-jump-item       |
+| ~s~         | avy-goto-char-timer  |
+| ~_~         | ranger               |
 
 ** Navigation and Windows
 
@@ -76,3 +77,12 @@ Redone bindings are disabled by default. Turn on with ~redo-bindings?~ in
 | ~C-RET~     | ivy-call                |
 | ~C-SPC~     | ivy-dispatching-done    |
 | ~C-S-SPC~   | ivy-dispatching-call    |
+
+** Ranger
+
+| Key Binding | Function                     |
+|-------------+------------------------------|
+| ~n~         | dired-create-directory       |
+| ~E~         | wdired-change-to-wdired-mode |
+| ~C-j~       | ranger-travel                |
+| ~C-e~       | ranger-pop-eshell            |
diff --git a/layers/config/local/ranger-config/ranger-config.el b/layers/config/local/ranger-config/ranger-config.el
@@ -0,0 +1,16 @@
+(require 'macros)
+(require 'ranger)
+
+(provide 'ranger-config)
+
+;;; ranger-config
+
+(setq ranger-deer-show-details nil)
+
+(evil-global-set-key 'normal "_" 'ranger)
+
+(bind-keys :map ranger-mode-map
+           ("n"   . dired-create-directory)
+           ("E"   . wdired-change-to-wdired-mode)
+           ("C-j" . ranger-travel)
+           ("C-e" . ranger-pop-eshell))
diff --git a/layers/config/packages.el b/layers/config/packages.el
@@ -16,6 +16,7 @@
         (ivy-config    :location local)
         (mu4e-config   :location local)
         (org-config    :location local)
+        (ranger-config :location local)
 
         ;; Elsewhere-owned packages for languages
         (clojure-config :location local)
@@ -116,6 +117,10 @@
   (use-package org-config
     :after org macros))
 
+(defun config/init-ranger-config ()
+  (use-package ranger-config
+    :after ranger macros))
+
 ;;;; Languages
 
 (defun config/init-clojure-config ()
@@ -189,6 +194,7 @@
 
               ;; A - applications
               ("ad" deer)
+              ("ar" ranger)
 
               ;; B - buffers
               ("b." spacemacs/buffer-transient-state/body)