Fix: Add autoloads

Fixes #36.  Thanks to Akira Komamura (@akirak).
This commit is contained in:
Akira Komamura 2019-08-31 23:40:49 -05:00 committed by Adam Porter
parent 42947aa2df
commit 3a5e4a1e11
3 changed files with 11 additions and 0 deletions

View file

@ -120,6 +120,7 @@ e.g. `org-ql-search' as desired."
;; TODO: DRY these two macros.
;;;###autoload
(cl-defmacro org-ql-agenda (&rest args)
"Display an agenda-like buffer of entries in FILES that match QUERY.
@ -286,11 +287,13 @@ TITLE: An optional string displayed in the header."
(customize-set-variable 'org-ql-views org-ql-views)
(customize-mark-to-save 'org-ql-views)))
;;;###autoload
(defun org-ql-view (&optional view)
"Choose and display a view stored in `org-ql-views'."
(interactive (list (completing-read "View: " (mapcar #'car org-ql-views))))
(call-interactively (alist-get view org-ql-views nil nil #'string=)))
;;;###autoload
(cl-defun org-ql-view-recent-items
(&key days type
(files (org-agenda-files))
@ -392,6 +395,7 @@ after the block."
insert)
(insert "\n")))
;;;###autoload
(defalias 'org-ql-block 'org-ql-agenda-block)
(defun org-ql-agenda--header-line-format (buffers-files query &optional title)