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

[feature request] Add option to capture a new heading right from helm-org-ql buffer #238

Open
wants to merge 1 commit into
base: master
Choose a base branch
from
Open

[feature request] Add option to capture a new heading right from helm-org-ql buffer #238

Changes from all commits
Commits
Show all changes
1 commit
Select commit
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
35 changes: 34 additions & 1 deletion helm-org-ql.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -89,6 +89,17 @@ Based on `helm-map'.")
:type '(alist :key-type (string :tag "Description")
:value-type (function :tag "Command")))

(defcustom helm-org-ql-create-new t
"When non-nil, allow creating new heading using the search query.

New heading will be added using `org-capture' according to
`helm-org-ql-create-new-capture-template'."
:type 'boolean)
(defcustom helm-org-ql-create-new-capture-template nil
"Capture template used to create a new heading.

When non-nil, it should be a string associated with a template in `org-capture-templates'."
:type '(choice boolean string))
;;;; Commands

;;;###autoload
Expand Down Expand Up @@ -125,7 +136,11 @@ Is transformed into this query:
(let ((boolean (if current-prefix-arg 'or boolean))
(helm-input-idle-delay helm-org-ql-input-idle-delay))
(helm :prompt (format "Query (boolean %s): " (-> boolean symbol-name upcase))
:sources (helm-org-ql-source buffers-files :name name))))
:sources (let ((main-source (helm-org-ql-source buffers-files :name name)))
(if helm-org-ql-create-new
(list main-source
(helm-org-ql-create-new-source))
main-source)))))

;;;###autoload
(defun helm-org-ql-agenda-files ()
Expand Down Expand Up @@ -196,6 +211,24 @@ Is transformed into this query:
:keymap helm-org-ql-map
:action helm-org-ql-actions))

(defun helm-org-ql-create-new-source ()
"Helm source used to capture new headings."
(helm-build-sync-source "Create new"
:candidates
(lambda ()
(if (string-empty-p helm-pattern)
(list "New note")
(list (format "New note: \"%s\"" (string-clean-whitespace helm-pattern)))))
:match #'identity
:match-dynamic t
:nohighlight t
:action
'(("New note" . (lambda (_)
(progn
(org-link-store-props :annotation helm-pattern)
(let ((org-capture-link-is-already-stored t))
(org-capture nil helm-org-ql-create-new-capture-template))))))))

(defun helm-org-ql--heading (window-width)
"Return string for Helm for heading at point.
WINDOW-WIDTH should be the width of the Helm window."
Expand Down