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 ;;;; Commands
;;;###autoload ;;;###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. "Display results in BUFFERS-FILES for an `org-ql' query using Helm.
Interactively, search the current buffer. Interactively, search the current buffer.
@ -128,7 +129,7 @@ Is transformed into this query:
"AND")) "AND"))
:sources :sources
;; Expansion of `helm-build-sync-source' macro. ;; 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 :candidates #'(lambda nil
(let* ((query (helm-org-ql--input-to-query helm-pattern no-and)) (let* ((query (helm-org-ql--input-to-query helm-pattern no-and))
(window-width (window-width (helm-window)))) (window-width (window-width (helm-window))))
@ -150,14 +151,15 @@ Is transformed into this query:
(defun helm-org-ql-agenda-files () (defun helm-org-ql-agenda-files ()
"Search agenda files with `helm-org-ql', which see." "Search agenda files with `helm-org-ql', which see."
(interactive) (interactive)
(helm-org-ql (org-agenda-files))) (helm-org-ql (org-agenda-files) nil "helm-org-ql-agenda-files"))
;;;###autoload ;;;###autoload
(defun helm-org-ql-org-directory () (defun helm-org-ql-org-directory ()
"Search Org files in `org-directory' with `helm-org-ql'." "Search Org files in `org-directory' with `helm-org-ql'."
(interactive) (interactive)
(helm-org-ql (directory-files org-directory 'full (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) (defun helm-org-ql-show-marker (marker)
"Show heading at MARKER." "Show heading at MARKER."