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

Tidy: Docstring and tasks

Browse source
This commit is contained in:
Adam Porter 2019-06-07 21:53:20 -05:00
parent c5599a6030
commit b11a3ea3cf
1 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

13
org-ql.el
View file

@ -28,11 +28,12 @@
(defvar org-ql--today nil) (defvar org-ql--today nil)
(defvar org-ql-cache (make-hash-table :weakness 'key) (defvar org-ql-cache (make-hash-table :weakness 'key)
;; IIUC, setting weakness to `key' means that, when a buffer is closed, its entries will be ;; IIUC, setting weakness to `key' means that, when a buffer is closed,
;; removed from this table at the next GC. ;; its entries will be removed from this table at the next GC.
"Query cache, keyed by buffer. Each value is a list of the "Query cache, keyed by buffer.
buffer's modified tick and another hash table, keyed by arguments Each value is a list of the buffer's modified tick and another
passed to `org-ql--select-cached'.") hash table, keyed by arguments passed to
`org-ql--select-cached'.")
;;;; Macros ;;;; Macros
@ -72,6 +73,8 @@ buffer. In this case, ACTION should return an Org element."
:sort ',sort)) :sort ',sort))
(defmacro org-ql--flet (fns &rest body) (defmacro org-ql--flet (fns &rest body)
;; FIXME: Docstring.
;; MAYBE: Use `noflet'.
(declare (indent defun) (debug (listp body))) (declare (indent defun) (debug (listp body)))
`(cl-letf ,(cl-loop for (fn target) in fns `(cl-letf ,(cl-loop for (fn target) in fns
collect `((symbol-function ',fn) collect `((symbol-function ',fn)