emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add helm-based org searching commands

Browse source
This commit is contained in:
Henrik Lissner 2015-11-21 19:26:17 -05:00
parent 31291af29d
commit a1b57eda3a
5 changed files with 36 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/lib/defuns-helm.el
View file

@ -90,5 +90,19 @@
(interactive "<a><!>")
(if bang (helm-multi-swoop-all search) (helm-swoop :$query search)))
;;;###autoload
(defun narf/helm-org-search (&optional directory)
(interactive)
(require 'helm-ag)
(require 'helm-deft)
(let ((dir (or directory org-directory)))
(let ((helm-deft-dir-list `(,dir))
(default-directory dir)
(helm-ag--default-directory dir))
(helm :sources `(,(if directory
'helm-source-deft-fn
'helm-source-projectile-files-list)
helm-source-do-ag)))))
(provide 'defuns-helm)
;;; defuns-helm.el ends here