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

WIP: Fix byte compilation warnings

Browse source
This commit is contained in:
Adam Porter 2022-07-18 07:19:22 -05:00
parent 32ff0d3432
commit a20bba775a
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
taxy-org-ql-view.el
View file

@ -26,6 +26,7 @@
;;;; Requirements ;;;; Requirements
(require 'cl-lib)
(require 'map) (require 'map)
(require 'seq) (require 'seq)
@ -86,7 +87,8 @@ Inherited by level-specific faces.")
;;;;; Columns ;;;;; Columns
(taxy-magit-section-define-column-definer "org-ql-view") (eval-and-compile
(taxy-magit-section-define-column-definer "org-ql-view"))
(org-ql-view-define-column "Category" (:max-width nil :align 'right) (org-ql-view-define-column "Category" (:max-width nil :align 'right)
(or (org-with-point-at (org-element-property :org-hd-marker item) (or (org-with-point-at (org-element-property :org-hd-marker item)
@ -150,15 +152,16 @@ Inherited by level-specific faces.")
;;;; Taxy keys ;;;; Taxy keys
(eval-and-compile
(taxy-define-key-definer taxy-org-ql-view-define-key (taxy-define-key-definer taxy-org-ql-view-define-key
taxy-org-ql-view-keys "taxy-org-ql--key" taxy-org-ql-view-keys "taxy-org-ql--key"
"Define a `taxy-org-ql-view' key function by NAME having BODY taking ARGS. "Define a `taxy-org-ql-view' key function by NAME having BODY taking ARGS.
Within BODY, `item' is bound to the `org-element' element Within BODY, `item' is bound to the `org-element' element being
being tested. tested.
Defines a function named `taxy-org-ql--predicate-NAME', and adds Defines a function named `taxy-org-ql--predicate-NAME', and adds
an entry to `taxy-org-ql-view-keys' mapping NAME to the new an entry to `taxy-org-ql-view-keys' mapping NAME to the new
function symbol.") function symbol."))
(taxy-org-ql-view-define-key heading (&rest strings) (taxy-org-ql-view-define-key heading (&rest strings)
"Return STRINGS that ITEM's heading matches." "Return STRINGS that ITEM's heading matches."