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

Add: skip-subtrees option

Browse source
This commit is contained in:
Akira Komamura 2020-01-04 10:51:33 +09:00
parent 091a732a88
commit f9a80225e2
3 changed files with 38 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

6
org-ql-view.el
View file

@ -87,6 +87,7 @@ Based on `org-agenda-mode-map'.")
(defvar-local org-ql-view-query nil)
(defvar-local org-ql-view-sort nil)
(defvar-local org-ql-view-narrow nil)
(defvar-local org-ql-view-skip-subtrees nil)
(defvar-local org-ql-view-super-groups nil)
(defvar-local org-ql-view-title nil)
@ -218,12 +219,13 @@ Interactively, prompt for NAME."
(select-window window))
(cl-typecase view
(function (call-interactively view))
(list (-let* (((&plist :buffers-files :query :sort :narrow :super-groups :title) view)
(list (-let* (((&plist :buffers-files :query :sort :narrow :super-groups :title :skip-subtrees) view)
(super-groups (cl-typecase super-groups
(symbol (symbol-value super-groups))
(list super-groups))))
(org-ql-search buffers-files query
:super-groups super-groups :narrow narrow :sort sort :title title
:skip-subtrees skip-subtrees
:buffer org-ql-view-buffer))))))
;;;###autoload
@ -287,6 +289,7 @@ update search arguments."
:sort org-ql-view-sort
:narrow org-ql-view-narrow
:super-groups org-ql-view-super-groups
:skip-subtrees org-ql-view-skip-subtrees
:title org-ql-view-title))
(org-ql-view-buffer (current-buffer)))
(if prompt
@ -309,6 +312,7 @@ update search arguments."
:query org-ql-view-query
:sort org-ql-view-sort
:narrow org-ql-view-narrow
:skip-subtrees org-ql-view-skip-subtrees
:super-groups org-ql-view-super-groups
:title name)))
(map-put org-ql-views name plist #'equal)