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

Docs: Improve example

Browse source 
I should add this command to the package, this is really useful.
This commit is contained in:
Adam Porter 2019-08-13 22:35:53 -05:00
parent 0a69207759
commit 31405d91cc
1 changed files with 14 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

22
examples.org
View file

@ -5,7 +5,7 @@
:TOC: this :TOC: this
:END: :END:
- [[#stored-views-command][Stored views command]] - [[#stored-views-command][Stored views command]]
- [[#show-entries-with-timestamps-in-the-last-n-days][Show entries with timestamps in the last N days]] - [[#show-entries-with-recent-timestamps][Show entries with recent timestamps]]
- [[#stuck-projects-block-agenda][Stuck projects block agenda]] - [[#stuck-projects-block-agenda][Stuck projects block agenda]]
- [[#listing-bills-coming-due][Listing bills coming due]] - [[#listing-bills-coming-due][Listing bills coming due]]
@ -36,11 +36,11 @@ This defines a simple list of stored views and a command to easily access them w
(:auto-category t))))))) (:auto-category t)))))))
#+END_SRC #+END_SRC
* Show entries with timestamps in the last N days * Show entries with recent timestamps
#+BEGIN_SRC elisp #+BEGIN_SRC elisp
(cl-defun org-ql-agenda-last-days (days &optional (type 'ts)) (cl-defun org-ql-agenda-recent-items (days &optional (type 'ts))
"Show entries from previous DAYS days with timestamps of TYPE. "Show items from previous DAYS days with timestamps of TYPE.
TYPE may be `ts', `ts-active', `ts-inactive', `clocked', TYPE may be `ts', `ts-active', `ts-inactive', `clocked',
`closed', `deadline', `planning', or `scheduled'." `closed', `deadline', `planning', or `scheduled'."
(interactive (list (read-number "Days: ") (interactive (list (read-number "Days: ")
@ -53,16 +53,22 @@ This defines a simple list of stored views and a command to easily access them w
;; Formatting isn't required, but it looks better in the header than a struct. ;; Formatting isn't required, but it looks better in the header than a struct.
ts-format))) ts-format)))
(org-ql-search (org-agenda-files) (org-ql-search (org-agenda-files)
`(,type :from ,from :to ,(ts-format (ts-now)))))) `(,type :from ,from :to ,(ts-format (ts-now)))
:title "Recent items"
:sort '(date priority todo)
:groups '((:todo "DONE")
(:category "log" :tag "log")
(:auto-parent t)
(:auto-todo t)))))
;; Show entries with any timestamp from last 7 days: ;; Show entries with any timestamp from last 7 days:
(org-ql-agenda-last-days 7) (org-ql-agenda-recent-items 7)
;; Show entries clocked in last 7 days: ;; Show entries clocked in last 7 days:
(org-ql-agenda-last-days 30 'clocked) (org-ql-agenda-recent-items 30 'clocked)
;; Show entries closed in last 7 days: ;; Show entries closed in last 7 days:
(org-ql-agenda-last-days 30 'closed) (org-ql-agenda-recent-items 30 'closed)
#+END_SRC #+END_SRC
* Stuck projects block agenda * Stuck projects block agenda