diff options
| -rw-r--r-- | init.el | 6 | ||||
| -rw-r--r-- | lisp/km-helm.el | 18 |
2 files changed, 23 insertions, 1 deletions
@@ -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 |