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

Fix: Saving of org-ql-view views

Browse source 
It didn't seem that calling custom-save-all was necessary in the past,
but it appears that it is now.

Closes #378.

Reported-by: Pentaquark1 <https://github.com/Pentaquark1>
This commit is contained in:
Adam Porter 2023-10-19 21:50:30 -05:00
parent 4476759dc9
commit 09c3591504
3 changed files with 40 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql-view.el
View file

@ -352,7 +352,8 @@ update search arguments."
(yes-or-no-p (format "Overwrite view \"%s\"?" name)))
(setf (map-elt org-ql-views name nil #'equal) plist)
(customize-set-variable 'org-ql-views org-ql-views)
(customize-mark-to-save 'org-ql-views))))
(customize-mark-to-save 'org-ql-views)
(custom-save-all))))
(defun org-ql-view-delete ()
"Delete current view (with confirmation)."
@ -362,7 +363,8 @@ update search arguments."
(--remove (equal (car it) org-ql-view-title)
org-ql-views))
(customize-set-variable 'org-ql-views org-ql-views)
(customize-mark-to-save 'org-ql-views)))
(customize-mark-to-save 'org-ql-views)
(custom-save-all)))
(defun org-ql-view-customize ()
"Customize view at point in `org-ql-view-sidebar' buffer."