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

REF clean up some useless things

This commit is contained in:
Nathan Dwarshuis 2022-04-23 23:44:26 -04:00
parent 7b9dd12d52
commit f7490eac64
1 changed files with 6 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
local/lib/org-x/org-x-dag.el
View File

@ -2185,12 +2185,12 @@ Return value is a list like (BUFFER NON-BUFFER)."
(-> (org-x-dag->selected-date) (-> (org-x-dag->selected-date)
(org-x-dag-date->dlp-ids))) (org-x-dag-date->dlp-ids)))
(defun org-x-dag-goal-count-tasks (id) ;; (defun org-x-dag-goal-count-tasks (id)
(->> (org-x-dag-id->children id) ;; (->> (org-x-dag-id->children id)
(-mapcat #'org-x-dag-id->all-buffer-children) ;; (-mapcat #'org-x-dag-id->all-buffer-children)
;; TODO this isn't very efficient, looking up children twice ;; ;; TODO this isn't very efficient, looking up children twice
(-remove #'org-x-dag-id->buffer-children) ;; (-remove #'org-x-dag-id->buffer-children)
(length))) ;; (length)))
;; AGENDA LINE FORMATTING ;; AGENDA LINE FORMATTING
@ -2291,7 +2291,6 @@ encountered will be returned."
('year (* 12 value)) ('year (* 12 value))
('month value) ('month value)
(_ (if islongp (_ (if islongp
;; TODO make these messages not suck
(pcase unit (pcase unit
('week (* 7 1440 value)) ('week (* 7 1440 value))
('day (* 1440 value)) ('day (* 1440 value))
@ -2832,7 +2831,6 @@ FUTURE-LIMIT in a list."
;; agenda/calendar ;; agenda/calendar
;; TODO add conflict resolution to this
(defun org-x-dag-itemize-agenda (files sel-date) (defun org-x-dag-itemize-agenda (files sel-date)
(let ((todayp (org-x-dag-date= (org-x-dag-current-date) sel-date))) (let ((todayp (org-x-dag-date= (org-x-dag-current-date) sel-date)))
(cl-flet* (cl-flet*
@ -4189,31 +4187,6 @@ FUTURE-LIMIT in a list."
;; agenda helper functions/macros ;; agenda helper functions/macros
;; (defmacro org-x-dag-with-raw-headline (agenda-line &rest body)
;; "Execute BODY on original headline referred to with AGENDA-LINE."
;; (declare (indent 1))
;; `(-when-let (marker (get-text-property 1 'org-marker ,agenda-line))
;; (with-current-buffer (marker-buffer marker)
;; (goto-char marker)
;; ,@body)))
;; (defun org-x-dag-mk-super-agenda-pred (body)
;; "Return a predicate function with BODY.
;; The function will be a lambda form that takes one argument, the
;; current agenda line, and executes BODY at the point in the
;; original buffer pointed at by the agenda line."
;; `(lambda (agenda-line)
;; (org-x-dag-with-raw-headline agenda-line ,@body)))
;; (defmacro org-x-dag-def-super-agenda-pred (name &rest body)
;; "Make super agenda predicate form with NAME and BODY.
;; Key-pairs at the end of BODY will be interpreted as a plist to append
;; to the end of the predicate form."
;; (declare (indent 1))
;; (-let* (((pred-body plist) (--split-with (not (keywordp it)) body))
;; (pred (org-x-dag-mk-super-agenda-pred pred-body)))
;; `(quote (:name ,name :pred ,pred ,@plist))))
(defun org-x-dag-agenda-run-series (name files cmds) (defun org-x-dag-agenda-run-series (name files cmds)
(declare (indent 2)) (declare (indent 2))
(catch 'exit (catch 'exit