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

Docs: Add example org-ql-agenda-last-days

Browse source
This commit is contained in:
Adam Porter 2019-08-13 17:19:01 -05:00
parent 6b9b985c1e
commit 62e948619a
1 changed files with 29 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
examples.org
View file

@ -1,5 +1,34 @@
* Examples * Examples
** Show entries with timestamps in the last N days
#+BEGIN_SRC elisp
(cl-defun org-ql-agenda-last-days (days &optional (type 'ts))
"Show entries from previous DAYS days with timestamps of TYPE.
TYPE may be `ts', `ts-active', `ts-inactive', `clocked',
`closed', `deadline', `planning', or `scheduled'."
(interactive (list (read-number "Days: ")
(->> '(ts ts-active ts-inactive clocked closed deadline planning scheduled)
(completing-read "Timestamp type: ")
intern)))
(let ((from (->> (ts-now)
(ts-adjust 'day (* -1 days))
(ts-apply :hour 0 :minute 0 :second 0)
;; Formatting isn't required, but it looks better in the header than a struct.
ts-format)))
(org-ql-search (org-agenda-files)
`(,type :from ,from :to ,(ts-now)))))
;; Show entries with any timestamp from last 7 days:
(org-ql-agenda-last-days 7)
;; Show entries clocked in last 7 days:
(org-ql-agenda-last-days 30 'clocked)
;; Show entries closed in last 7 days:
(org-ql-agenda-last-days 30 'closed)
#+END_SRC
** Listing bills coming due ** Listing bills coming due
This uses the example in the readme file, but maps across the elements returned by ~org-ql~ to present a simple list of titles and deadlines. This uses the example in the readme file, but maps across the elements returned by ~org-ql~ to present a simple list of titles and deadlines.