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

Fix: (org-ql-view-bookmark-handler) Bookmark destructuring

Browse source 
See #147.  Thanks to @tpeacock19 for reporting.
This commit is contained in:
Adam Porter 2020-11-16 21:16:09 -06:00
parent 2a010f29c1
commit 50ba441415
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-view.el
View file

@ -569,9 +569,10 @@ dates in the past, and negative for dates in the future."
;; FIXME: `pcase-let*' is easier to use to destructure this, but if I use ;; FIXME: `pcase-let*' is easier to use to destructure this, but if I use
;; that, I want to use map 2.1 for the extra convenience, but I can't force ;; that, I want to use map 2.1 for the extra convenience, but I can't force
;; that to be installed into the makem.sh sandbox, so I just use `-let*' here. ;; that to be installed into the makem.sh sandbox, so I just use `-let*' here.
(-let* ((org-ql-view-plist (car (bookmark-get-bookmark-record bookmark))) (-let* ((record (bookmark-get-bookmark-record bookmark))
((&alist 'org-ql-view-plist) record)
((&plist :buffers-files :query :super-groups :narrow :sort :title) ((&plist :buffers-files :query :super-groups :narrow :sort :title)
(cdr org-ql-view-plist)) org-ql-view-plist)
(super-groups (cl-etypecase super-groups (super-groups (cl-etypecase super-groups
(symbol (symbol-value super-groups)) (symbol (symbol-value super-groups))
(list super-groups)))) (list super-groups))))