WIP: Fix byte compilation warnings

This commit is contained in:
Adam Porter 2022-07-18 07:19:22 -05:00
parent 32ff0d3432
commit a20bba775a

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
(taxy-define-key-definer taxy-org-ql-view-define-key (eval-and-compile
taxy-org-ql-view-keys "taxy-org-ql--key" (taxy-define-key-definer taxy-org-ql-view-define-key
"Define a `taxy-org-ql-view' key function by NAME having BODY taking ARGS. taxy-org-ql-view-keys "taxy-org-ql--key"
Within BODY, `item' is bound to the `org-element' element "Define a `taxy-org-ql-view' key function by NAME having BODY taking ARGS.
being tested. Within BODY, `item' is bound to the `org-element' element being
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."