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

Fix: (org-dblock-write:org-ql) cl-minusp

Browse source
This commit is contained in:
Adam Porter 2020-11-10 00:27:35 -06:00
parent 8e6aae95a0
commit c0a10ba96a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-ql-search.el
View file

@ -286,7 +286,7 @@ For example, an org-ql dynamic block header could look like:
:order-by sort))) :order-by sort)))
(when take (when take
(setf elements (cl-etypecase take (setf elements (cl-etypecase take
((and integer (satisfies minusp)) (-take-last (abs take) elements)) ((and integer (satisfies cl-minusp)) (-take-last (abs take) elements))
(integer (-take take elements))))) (integer (-take take elements)))))
(cl-labels ((format-element (cl-labels ((format-element
(element) (string-join (cl-loop for column in columns (element) (string-join (cl-loop for column in columns