jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change: (helm-org-ql, etc.) Name source for command

Browse source
This commit is contained in:
Adam Porter 2019-09-10 15:40:47 -05:00
parent d336554e9c
commit a8e8e76df9
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
helm-org-ql.el
View file

@ -91,7 +91,8 @@ Based on `helm-map'.")
;;;; Commands
;;;###autoload
(cl-defun helm-org-ql (buffers-files &optional (no-and current-prefix-arg))
(cl-defun helm-org-ql (buffers-files
&optional (no-and current-prefix-arg) (name "helm-org-ql"))
"Display results in BUFFERS-FILES for an `org-ql' query using Helm.
Interactively, search the current buffer.
@ -128,7 +129,7 @@ Is transformed into this query:
"AND"))
:sources
;; Expansion of `helm-build-sync-source' macro.
(helm-make-source "helm-org-ql-agenda-files" 'helm-source-sync
(helm-make-source name 'helm-source-sync
:candidates #'(lambda nil
(let* ((query (helm-org-ql--input-to-query helm-pattern no-and))
(window-width (window-width (helm-window))))
@ -150,14 +151,15 @@ Is transformed into this query:
(defun helm-org-ql-agenda-files ()
"Search agenda files with `helm-org-ql', which see."
(interactive)
(helm-org-ql (org-agenda-files)))
(helm-org-ql (org-agenda-files) nil "helm-org-ql-agenda-files"))
;;;###autoload
(defun helm-org-ql-org-directory ()
"Search Org files in `org-directory' with `helm-org-ql'."
(interactive)
(helm-org-ql (directory-files org-directory 'full
(rx ".org" eos))))
(rx ".org" eos))
nil "helm-org-ql-org-directory"))
(defun helm-org-ql-show-marker (marker)
"Show heading at MARKER."