helm: Add below variants for buffers and files

2 files changed, 23 insertions, 1 deletions

diff --git a/init.el b/init.el
index 2a91f78..e12f18a 100644
--- a/init.el
+++ b/init.el
@@ -1204,14 +1204,18 @@
   :init
   (after 'helm-files
     (bind-keys :map helm-find-files-map
+               ("C-c b" . km/helm-find-file-below)
                ("C-c x" . km/helm-ff-org-open-file)
                ("C-c C-o" . km/helm-display-file)))
   (after 'helm-locate
     (bind-keys :map helm-generic-files-map
+               ("C-c b" . km/helm-find-file-below)
                ("C-c x" . km/helm-ff-org-open-file)
                ("C-c C-o" . km/helm-display-file)))
   (after 'helm-buffers
-    (define-key helm-buffer-map (kbd "C-c C-o") #'km/helm-display-buffer)))
+    (bind-keys :map helm-buffer-map
+               ("C-c b" . km/helm-display-buffer-below)
+               ("C-c C-o" . km/helm-display-buffer))))
 
 (use-package helm-mode
   :diminish helm-mode
diff --git a/lisp/km-helm.el b/lisp/km-helm.el
index 9be507a..b8d2dc0 100644
--- a/lisp/km-helm.el
+++ b/lisp/km-helm.el
@@ -44,5 +44,23 @@
   (with-helm-alive-p
     (helm-exit-and-execute-action #'org-open-file)))
 
+;;;###autoload
+(defun km/helm-display-buffer-below ()
+  (interactive)
+  (with-helm-alive-p
+    (helm-exit-and-execute-action
+     (lambda (b)
+       (display-buffer b '(display-buffer-below-selected))))))
+
+;;;###autoload
+(defun km/helm-find-file-below ()
+  (interactive)
+  (with-helm-alive-p
+    (helm-exit-and-execute-action
+     (lambda (f)
+       (select-window
+        (display-buffer (find-file-noselect f)
+                        '(display-buffer-below-selected)))))))
+
 (provide 'km-helm)
 ;;; km-helm.el ends here