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

Scope window-width lexically and do not check for candidate type

Browse source
This commit is contained in:
Ihor Radchenko 2020-12-07 15:07:23 +08:00
parent 555ae98eb8
commit 8ba81a4441
1 changed files with 22 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

13
helm-org-ql.el
View file

@ -177,14 +177,13 @@ Is transformed into this query:
(cl-defun helm-org-ql-source (buffers-files &key (name "helm-org-ql"))
"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 _)
(let ((window-width (window-width (helm-window))))
(mapcar (lambda (marker)
(unless (markerp marker) (user-error "Unexpected candidate for `helm-org-ql-source'"))
(org-with-point-at marker
(helm-make-source name 'helm-source-sync
:filtered-candidate-transformer (lambda (candidate-markers _)
(mapcar (lambda (candidate-marker)
(org-with-point-at candidate-marker
(helm-org-ql--heading window-width)))
candidates)))
candidate-markers))
:candidates (lambda ()
(let* ((query (org-ql--query-string-to-sexp helm-pattern)))
(when query
@ -200,7 +199,7 @@ Is transformed into this query:
:nohighlight t
:match-dynamic t
:keymap helm-org-ql-map
:action helm-org-ql-actions))
:action helm-org-ql-actions)))
(defun helm-org-ql--heading (window-width)
"Return string for Helm for heading at point.