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

Fix: Add autoload magic comments

Browse source
This commit is contained in:
Akira Komamura 2019-08-25 13:48:42 +09:00
parent 77aa32cfe6
commit 80e739f044
2 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
org-ql-agenda.el
View file

@ -100,6 +100,7 @@ e.g. `org-ql-search' as desired."
;; FIXME: DRY these two macros. ;; FIXME: DRY these two macros.
;;;###autoload
(cl-defmacro org-ql-agenda (&rest args) (cl-defmacro org-ql-agenda (&rest args)
"Display an agenda-like buffer of entries in FILES that match QUERY. "Display an agenda-like buffer of entries in FILES that match QUERY.
@ -260,11 +261,13 @@ TITLE: An optional string displayed in the header."
(customize-set-variable 'org-ql-views org-ql-views) (customize-set-variable 'org-ql-views org-ql-views)
(customize-mark-to-save 'org-ql-views))) (customize-mark-to-save 'org-ql-views)))
;;;###autoload
(defun org-ql-view (&optional view) (defun org-ql-view (&optional view)
"Choose and display a view stored in `org-ql-views'." "Choose and display a view stored in `org-ql-views'."
(interactive (list (completing-read "View: " (mapcar #'car org-ql-views)))) (interactive (list (completing-read "View: " (mapcar #'car org-ql-views))))
(call-interactively (alist-get view org-ql-views nil nil #'string=))) (call-interactively (alist-get view org-ql-views nil nil #'string=)))
;;;###autoload
(cl-defun org-ql-view-recent-items (days &optional (type 'ts) (files (org-agenda-files))) (cl-defun org-ql-view-recent-items (days &optional (type 'ts) (files (org-agenda-files)))
"Show items in FILES from last DAYS days with timestamps of TYPE. "Show items in FILES from last DAYS days with timestamps of TYPE.
TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or
@ -336,6 +339,7 @@ TYPE may be `ts', `ts-active', `ts-inactive', `clocked', or
(org-agenda-finalize) (org-agenda-finalize)
(goto-char (point-min))))) (goto-char (point-min)))))
;;;###autoload
(defun org-ql-agenda-block (query) (defun org-ql-agenda-block (query)
"Insert items for QUERY into current buffer. "Insert items for QUERY into current buffer.
QUERY should be an `org-ql' query form. Like other agenda block QUERY should be an `org-ql' query form. Like other agenda block
@ -361,6 +365,7 @@ the `match' item in the custom command form."
org-agenda-finalize-entries org-agenda-finalize-entries
insert))) insert)))
;;;###autoload (autoload 'org-ql-block "org-ql-agenda")
(defalias 'org-ql-block 'org-ql-agenda-block) (defalias 'org-ql-block 'org-ql-agenda-block)
(defun org-ql-agenda--header-line-format (buffers-files query &optional title) (defun org-ql-agenda--header-line-format (buffers-files query &optional title)

3
org-ql.el
View file

@ -120,6 +120,7 @@ match."
(push (list :name ',pred-name :fn ',fn-name :docstring ,docstring :args ',args) org-ql-predicates) (push (list :name ',pred-name :fn ',fn-name :docstring ,docstring :args ',args) org-ql-predicates)
(cl-defun ,fn-name ,args ,docstring ,@body)))) (cl-defun ,fn-name ,args ,docstring ,@body))))
;;;###autoload
(cl-defmacro org-ql (buffers-or-files query &key sort narrow action) (cl-defmacro org-ql (buffers-or-files query &key sort narrow action)
"Expands into a call to `org-ql-select' with the same arguments. "Expands into a call to `org-ql-select' with the same arguments.
For convenience, arguments should be unquoted." For convenience, arguments should be unquoted."
@ -135,6 +136,7 @@ For convenience, arguments should be unquoted."
(define-hash-table-test 'org-ql-hash-test #'equal (lambda (args) (define-hash-table-test 'org-ql-hash-test #'equal (lambda (args)
(sxhash-equal (prin1-to-string args)))) (sxhash-equal (prin1-to-string args))))
;;;###autoload
(cl-defun org-ql-select (buffers-or-files query &key action narrow sort) (cl-defun org-ql-select (buffers-or-files query &key action narrow sort)
"Return items matching QUERY in BUFFERS-OR-FILES. "Return items matching QUERY in BUFFERS-OR-FILES.
@ -227,6 +229,7 @@ non-nil."
((pred functionp) (sort items sort)) ((pred functionp) (sort items sort))
(_ (user-error "SORT must be either nil, or one or a list of the defined sorting methods (see documentation)"))))) (_ (user-error "SORT must be either nil, or one or a list of the defined sorting methods (see documentation)")))))
;;;###autoload
(cl-defun org-ql-query (&key (select 'element-with-markers) from where narrow order-by) (cl-defun org-ql-query (&key (select 'element-with-markers) from where narrow order-by)
"Like `org-ql-select', but arguments are named more like a SQL query. "Like `org-ql-select', but arguments are named more like a SQL query.