ndwarshuis
/
emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

FIX byte compile errors

This commit is contained in:
Nathan Dwarshuis 2021-04-03 00:22:46 -04:00
parent 776c88de7a
commit e6ef289c08
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
local/lib/org-x/org-x.el
View File

@ -195,7 +195,7 @@ to REF-TIME. Returns nil if no timestamp is found."
(defun org-x-is-expired-date-headline-p () (defun org-x-is-expired-date-headline-p ()
(org-x-heading-compare-timestamp (org-x-heading-compare-timestamp
(lambda () (-some-> (org-entry-get nil "X-EXPIRE") (lambda () (-some-> (org-entry-get nil "X-EXPIRE")
(org-2ft ts))))) (org-2ft)))))
(defun org-x-is-expired-dtl-headline-p () (defun org-x-is-expired-dtl-headline-p ()
(org-x-heading-compare-timestamp (org-x-heading-compare-timestamp
@ -305,13 +305,13 @@ to REF-TIME. Returns nil if no timestamp is found."
(defun org-x-headline-has-context-p () (defun org-x-headline-has-context-p ()
"Return t if heading has a context." "Return t if heading has a context."
(let ((tags (org-get-tags-at))) (let ((tags (org-get-tags)))
(or (> (length (org-x-filter-list-prefix "#" tags)) 0) (or (> (length (org-x-filter-list-prefix "#" tags)) 0)
(> (length (org-x-filter-list-prefix "@" tags)) 0)))) (> (length (org-x-filter-list-prefix "@" tags)) 0))))
(defun org-x-headline-has-tag-p (tag) (defun org-x-headline-has-tag-p (tag)
"Return t if heading has tag TAG." "Return t if heading has tag TAG."
(member tag (org-get-tags-at))) (member tag (org-get-tags)))
;; relational testing ;; relational testing
@ -519,7 +519,7 @@ function will simply return the point of the next headline."
"Skip headings that have tags in POS-TAGS-LIST and not in NEG-TAGS-LIST." "Skip headings that have tags in POS-TAGS-LIST and not in NEG-TAGS-LIST."
(save-restriction (save-restriction
(widen) (widen)
(let ((heading-tags (org-get-tags-at))) (let ((heading-tags (org-get-tags)))
(if (and (or (not pos-tags-list) (if (and (or (not pos-tags-list)
(cl-intersection pos-tags-list heading-tags :test 'equal)) (cl-intersection pos-tags-list heading-tags :test 'equal))
(not (cl-intersection neg-tags-list heading-tags :test 'equal))) (not (cl-intersection neg-tags-list heading-tags :test 'equal)))
@ -931,8 +931,8 @@ N is the number of clones to produce."
(append it (org-x--headline-repeat-shifted n shift new)) (append it (org-x--headline-repeat-shifted n shift new))
it))) it)))
(let ((post (org-ml-parse-this-subtree))) (let ((post (org-ml-parse-this-subtree)))
(org-ml-match-do* '(section property-drawer) (org-ml-fold it) post) (org-ml-match-do '(section property-drawer) (lambda (it) (org-ml-fold it)) post)
(org-ml-match-do* '(headline) (org-ml-fold it) post)))) (org-ml-match-do '(headline) (lambda (it) (org-ml-fold it)) post))))
;; (defun org-x-clone-subtree-with-time-shift-toplevel (n) ;; (defun org-x-clone-subtree-with-time-shift-toplevel (n)
;; "Go to the last item underneath an iterator and clone using ;; "Go to the last item underneath an iterator and clone using
@ -1159,7 +1159,7 @@ If BACK is t seek backward, else forward. Ignore blank lines."
(defun org-x-agenda-filter-make-matcher-prop (defun org-x-agenda-filter-make-matcher-prop
(filter type &rest args) (filter type &rest _args)
"Return matching matcher form for FILTER and TYPE where TYPE is not "Return matching matcher form for FILTER and TYPE where TYPE is not
in the regular `org-agenda-filter-make-matcher' function. This is in the regular `org-agenda-filter-make-matcher' function. This is
intended to be uses as :before-until advice and will return nil if intended to be uses as :before-until advice and will return nil if
@ -1254,9 +1254,8 @@ H is a string like +prop or -prop"
(advice-add #'org-tags-view :around #'org-x-tags-view-advice) (advice-add #'org-tags-view :around #'org-x-tags-view-advice)
(defun org-x-set-creation-time (&optional always &rest args) (defun org-x-set-creation-time (&optional _always &rest _args)
"Set the creation time property of the current heading. "Set the creation time property of the current heading."
Applies only to todo entries unless ALWAYS is t."
(let ((np (->> (float-time) (let ((np (->> (float-time)
(org-ml-unixtime-to-time-long) (org-ml-unixtime-to-time-long)
(org-ml-build-timestamp!) (org-ml-build-timestamp!)
@ -1316,7 +1315,7 @@ and slow."
;; be refactored/reused as a separate function ;; be refactored/reused as a separate function
(cl-flet (cl-flet
((archive ((archive
(atime afile apath acat atodo atags target headline) (atime afile _apath acat atodo atags target headline)
(let* ((level-shift (-some-> (org-ml-get-property :level headline) (let* ((level-shift (-some-> (org-ml-get-property :level headline)
(1-) (1-)
(-))) (-)))