Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Run `helm-org-ql--heading' as :filtered-candidate-transformer #162

Open
wants to merge 8 commits into
base: master
Choose a base branch
from
Open

Run `helm-org-ql--heading' as :filtered-candidate-transformer #162

Changes from 1 commit
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
8f51fe9
Revert "Change: (olp, olps) Optimize multiple args with heading query"
yantar92 Dec 4, 2020
6bfe8d5
Merge branch 'master' of github.com:alphapapa/org-ql
yantar92 Dec 4, 2020
7ecb80f
Run `helm-org-ql--heading' as :filtered-candidate-transformer
yantar92 Dec 7, 2020
555ae98
Use spaces for indentation
yantar92 Dec 7, 2020
8ba81a4
Scope window-width lexically and do not check for candidate type
yantar92 Dec 7, 2020
cf17e36
Merge branch 'master' into feature/helm-org-ql/filtered-candidate-tra…
yantar92 Dec 12, 2020
d5c6491
Merge branch 'master' of github.com:alphapapa/org-ql
yantar92 Dec 12, 2020
85ccc3c
Merge branch 'master' into feature/helm-org-ql/filtered-candidate-tra…
yantar92 Dec 12, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 10 additions & 4 deletions helm-org-ql.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -178,21 +178,27 @@ Is transformed into this query:
"Return Helm source named NAME that searches BUFFERS-FILES with `helm-org-ql'."
;; Expansion of `helm-build-sync-source' macro.
(helm-make-source name 'helm-source-sync
:filtered-candidate-transformer (lambda (candidates _)
yantar92 marked this conversation as resolved.
Show resolved Hide resolved
(let ((window-width (window-width (helm-window))))
yantar92 marked this conversation as resolved.
Show resolved Hide resolved
yantar92 marked this conversation as resolved.
Show resolved Hide resolved
(mapcar (lambda (marker)
(unless (markerp marker) (user-error "Unexpected candidate for `helm-org-ql-source'"))
yantar92 marked this conversation as resolved.
Show resolved Hide resolved
(org-with-point-at marker
(helm-org-ql--heading window-width)))
candidates)))
:candidates (lambda ()
(let* ((query (org-ql--query-string-to-sexp helm-pattern))
(window-width (window-width (helm-window))))
(let* ((query (org-ql--query-string-to-sexp helm-pattern)))
(when query
(with-current-buffer (helm-buffer-get)
(setq helm-org-ql-buffers-files buffers-files))
(ignore-errors
;; Ignore errors that might be caused by partially typed queries.
(org-ql-select buffers-files query
:action `(helm-org-ql--heading ,window-width))))))
:action `(point-marker))))))
:match #'identity
:fuzzy-match nil
:multimatch nil
:nohighlight t
:volatile t
:match-dynamic t
:keymap helm-org-ql-map
:action helm-org-ql-actions))

Expand Down