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

ENH get rid of old config variables

This commit is contained in:
Nathan Dwarshuis 2022-05-01 18:47:40 -04:00
parent 33ea4772ae
commit 2bde087155
1 changed files with 9 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2711,7 +2711,7 @@ FUTURE-LIMIT in a list."
(defun org-x-dag-itemize-iterators (files) (defun org-x-dag-itemize-iterators (files)
(org-x-dag-with-unmasked-action-ids files (org-x-dag-with-unmasked-action-ids files
(pcase it-local (pcase it-local
(`(:sp-proj . ,status-data) (`(:sp-iter . ,status-data)
(let ((status (car status-data))) (let ((status (car status-data)))
(when (memq status '(:iter-empty :iter-active)) (when (memq status '(:iter-empty :iter-active))
(let ((tags (org-x-dag-id->tags it))) (let ((tags (org-x-dag-id->tags it)))
@ -4528,12 +4528,8 @@ review phase)"
(org-super-agenda-groups (org-super-agenda-groups
'((:auto-map '((:auto-map
(lambda (line) (lambda (line)
(-let* ((i (get-text-property 1 'x-is-standalone line)) (-let* ((i (get-text-property 1 'x-is-standalone line)))
(s (get-text-property 1 'x-status line)) (if i "2. Standalone" "1. Subproject"))))))))))
(s* (if (and (not i) (eq s :inert)) :active s))
((level1 subtitle) (if i '(1 "α") '(0 "σ")))
(p (alist-get s* nd/org-headline-task-status-priorities)))
(org-x-dag-org-mapper-title level1 p s* subtitle))))))))))
(defun org-x-dag-agenda-projects () (defun org-x-dag-agenda-projects ()
"Show the projects agenda view." "Show the projects agenda view."
@ -4577,15 +4573,12 @@ review phase)"
(org-x-dag-agenda-show-nodes "Iterators" #'org-x-dag-itemize-iterators files (org-x-dag-agenda-show-nodes "Iterators" #'org-x-dag-itemize-iterators files
`((org-agenda-sorting-strategy '(category-keep)) `((org-agenda-sorting-strategy '(category-keep))
(org-super-agenda-groups (org-super-agenda-groups
;; TODO this is wrong `((:auto-map
',(nd/org-def-super-agenda-automap (lambda (line)
(cl-case (org-x-headline-get-iterator-status) (let ((s (get-text-property 1 'x-status line)))
(:uninit "0. Uninitialized") (pcase s
(:project-error "0. Project Error") (:iter-empty "1. Empty")
(:unscheduled "0. Unscheduled") (:iter-active "2. Active")))))))))))
(:empt "1. Empty")
(:actv "2. Active")
(t "3. Other"))))))))
(defun org-x-dag-agenda-errors () (defun org-x-dag-agenda-errors ()
"Show the critical errors agenda view." "Show the critical errors agenda view."