From e9916d203773091fedfe2fdbcfb06c724ee0f7d5 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 9 Dec 2015 17:10:12 -0500 Subject: [PATCH] Convenience helm defuns --- core/lib/defuns-helm.el | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/core/lib/defuns-helm.el b/core/lib/defuns-helm.el index 420c943fc..724552847 100644 --- a/core/lib/defuns-helm.el +++ b/core/lib/defuns-helm.el @@ -68,5 +68,26 @@ (interactive "") (if bang (helm-multi-swoop-all search) (helm-swoop :$query search))) +;;;###autoload +(defun narf/helm-projectile-in-emacsd () + (interactive) + (in! narf-emacs-dir (helm-projectile-find-file))) + +;;;###autoload +(defun narf/helm-buffers-dwim (&optional all-p) + "Displays open buffers in current project. If ALL-P, then show all open +buffers." + (if (and (not all-p) (narf/project-p)) + (helm-projectile-switch-to-buffer) + (helm-buffers-list))) + +;;;###autoload +(defun narf/helm-org-find-files () + (interactive) + (in! org-directory + (let ((helm-ff-skip-boring-files t)) + (helm-find-files-1 org-directory)))) + + (provide 'defuns-helm) ;;; defuns-helm.el ends here