From 80e739f044b59bf280c7391e9a46fd34bb91aa33 Mon Sep 17 00:00:00 2001
From: Akira Komamura <akira.komamura@gmail.com>
Date: Sun, 25 Aug 2019 13:48:42 +0900
Subject: [PATCH] Fix: Add autoload magic comments

---
 org-ql-agenda.el | 5 +++++
 org-ql.el        | 3 +++
 2 files changed, 8 insertions(+)

diff --git a/org-ql-agenda.el b/org-ql-agenda.el
index 4406f642..1eb9d886 100644
--- a/org-ql-agenda.el
+++ b/org-ql-agenda.el
@@ -100,6 +100,7 @@ e.g. `org-ql-search' as desired."
 
 ;; FIXME: DRY these two macros.
 
+;;;###autoload
 (cl-defmacro org-ql-agenda (&rest args)
   "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-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 (days &optional (type 'ts) (files (org-agenda-files)))
   "Show items in FILES from last DAYS days with timestamps of TYPE.
 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)
       (goto-char (point-min)))))
 
+;;;###autoload
 (defun org-ql-agenda-block (query)
   "Insert items for QUERY into current buffer.
 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
          insert)))
 
+;;;###autoload (autoload 'org-ql-block "org-ql-agenda")
 (defalias 'org-ql-block 'org-ql-agenda-block)
 
 (defun org-ql-agenda--header-line-format (buffers-files query &optional title)
diff --git a/org-ql.el b/org-ql.el
index 39139855..e67e60ce 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -120,6 +120,7 @@ match."
        (push (list :name ',pred-name :fn ',fn-name :docstring ,docstring :args ',args) org-ql-predicates)
        (cl-defun ,fn-name ,args ,docstring ,@body))))
 
+;;;###autoload
 (cl-defmacro org-ql (buffers-or-files query &key sort narrow action)
   "Expands into a call to `org-ql-select' with the same arguments.
 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)
                                                     (sxhash-equal (prin1-to-string args))))
 
+;;;###autoload
 (cl-defun org-ql-select (buffers-or-files query &key action narrow sort)
   "Return items matching QUERY in BUFFERS-OR-FILES.
 
@@ -227,6 +229,7 @@ non-nil."
       ((pred functionp) (sort items sort))
       (_ (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)
   "Like `org-ql-select', but arguments are named more like a SQL query.