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

Change: (-view--plist, -view-save) Factor out plist code

Browse source 
In preparation for bookmark support.
This commit is contained in:
Adam Porter 2020-11-02 20:12:31 -06:00
parent 65cc3fc24e
commit 57708e6cc1
1 changed files with 14 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

20
org-ql-view.el
View file

@ -343,12 +343,10 @@ update search arguments."
"Save current `org-ql-search' buffer to `org-ql-views'." "Save current `org-ql-search' buffer to `org-ql-views'."
(interactive) (interactive)
(let* ((name (read-string "Save view as: " org-ql-view-title)) (let* ((name (read-string "Save view as: " org-ql-view-title))
(plist (list :buffers-files org-ql-view-buffers-files ;; Bind `org-ql-view-title' to the name that was read, in case
:query org-ql-view-query ;; it's different, which `org-ql-view--plist' will pick up.
:sort org-ql-view-sort (org-ql-view-title name)
:narrow org-ql-view-narrow (plist (org-ql-view--plist (current-buffer))))
:super-groups org-ql-view-super-groups
:title name)))
(when (or (not (map-elt org-ql-views name nil)) (when (or (not (map-elt org-ql-views name nil))
(yes-or-no-p (format "Overwrite view \"%s\"?" name))) (yes-or-no-p (format "Overwrite view \"%s\"?" name)))
(setf (map-elt org-ql-views name nil #'equal) plist) (setf (map-elt org-ql-views name nil #'equal) plist)
@ -374,6 +372,16 @@ update search arguments."
;;;; Functions ;;;; Functions
(defun org-ql-view--plist (buffer)
"Return plist describing Org QL View in BUFFER."
(with-current-buffer buffer
(list :buffers-files org-ql-view-buffers-files
:query org-ql-view-query
:sort org-ql-view-sort
:narrow org-ql-view-narrow
:super-groups org-ql-view-super-groups
:title org-ql-view-title)))
(defun org-ql-view--list-buffer () (defun org-ql-view--list-buffer ()
"Return view list buffer." "Return view list buffer."
(with-current-buffer (get-buffer-create "*Org QL View List*") (with-current-buffer (get-buffer-create "*Org QL View List*")