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

Use a keymap for the org-ql-view export functionality

Browse source
This commit is contained in:
Omar Antolín 2023-12-18 13:35:04 -06:00 • committed by Adam Porter
parent 121af5c5d5
commit 0552aa8b93
1 changed files with 25 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

21
org-ql-completing-read.el
View file

@ -114,6 +114,17 @@ value, or nil."
;;;;; Completing read
(defun org-ql-export-view ()
"Create `org-ql-view' buffer from current minibuffer org-ql search."
(interactive)
(user-error "Must be run from within an `org-ql-completing-read' session"))
(defvar org-ql-completing-read-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "C-c C-e") #'org-ql-export-view)
map)
"Keymap active during `org-ql-completing-read' minibuffer sessions.")
;;;###autoload
(cl-defun org-ql-completing-read
(buffers-files &key query-prefix query-filter
@ -325,9 +336,8 @@ single predicate)."
(selected
(minibuffer-with-setup-hook
(lambda ()
(let ((map (make-sparse-keymap)))
(define-key
map (kbd "C-c C-e")
(use-local-map (make-composed-keymap org-ql-completing-read-map (current-local-map))))
(cl-letf* (((symbol-function 'org-ql-export-view)
(lambda ()
(interactive)
(run-at-time 0 nil
@ -337,8 +347,9 @@ single predicate)."
(if (fboundp 'minibuffer-quit-recursive-edit)
(minibuffer-quit-recursive-edit)
(abort-recursive-edit))))
(use-local-map (make-composed-keymap map (current-local-map)))))
(completing-read prompt #'collection nil t))))
((symbol-function 'embark-export)
(symbol-function 'org-ql-export-view)))
(completing-read prompt #'collection nil t)))))
;; (debug-message "SELECTED:%S KEYS:%S" selected (hash-table-keys table))
(or (gethash selected table)
;; If there are completions in the table, but none of them exactly match the user input