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

Make nicer

Browse source
This commit is contained in:
Adam Porter 2018-01-03 11:16:14 -06:00
parent 1976319ed8
commit fc64ec78bd
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
org-agenda-ng.el
View file

@ -56,10 +56,10 @@
;;;; Commands
(cl-defun org-agenda-ng--agenda (&key files pred)
(unless files
(setq files (buffer-file-name (current-buffer))))
(unless (listp files)
(setq files (list files)))
(setq files (cl-typecase files
(null (list (buffer-file-name (current-buffer))))
(list files)
(string (list files))))
(mapc 'find-file-noselect files)
(let* ((org-use-tag-inheritance t)
(entries (-flatten