fix spelling mistake :(

This commit is contained in:
ndwarshuis 2018-11-20 22:19:05 -05:00
parent 540ac5f271
commit 93b197a68f
1 changed files with 4 additions and 4 deletions

View File

@ -1219,7 +1219,7 @@ Returns t if heading has certain relationship to other headings
(defmacro nd/compare-statuscodes (op sc1 sc2 sc-list) (defmacro nd/compare-statuscodes (op sc1 sc2 sc-list)
`(,op (position ,sc1 ,sc-list) (position ,sc2 ,sc-list))) `(,op (position ,sc1 ,sc-list) (position ,sc2 ,sc-list)))
(defun nd/decend-into-project (allowed-statuscodes trans-tbl get-task-status) (defun nd/descend-into-project (allowed-statuscodes trans-tbl get-task-status)
(let ((project-status (first allowed-statuscodes)) (let ((project-status (first allowed-statuscodes))
(breaker-status (car (last allowed-statuscodes))) (breaker-status (car (last allowed-statuscodes)))
(previous-point)) (previous-point))
@ -1270,7 +1270,7 @@ Returns t if heading has certain relationship to other headings
;; these require descending into the project subtasks ;; these require descending into the project subtasks
((equal keyword "CANC") ((equal keyword "CANC")
(nd/decend-into-project (nd/descend-into-project
'(:archivable :complete) '(:archivable :complete)
'((:stuck . 1) '((:stuck . 1)
(:held . 1) (:held . 1)
@ -1285,7 +1285,7 @@ Returns t if heading has certain relationship to other headings
(nd/is-archivable-heading-p)) 0 1)))) (nd/is-archivable-heading-p)) 0 1))))
((equal keyword "DONE") ((equal keyword "DONE")
(nd/decend-into-project (nd/descend-into-project
'(:archivable :complete :done-incomplete) '(:archivable :complete :done-incomplete)
'((:stuck . 2) '((:stuck . 2)
(:held . 2) (:held . 2)
@ -1300,7 +1300,7 @@ Returns t if heading has certain relationship to other headings
2)))) 2))))
((equal keyword "TODO") ((equal keyword "TODO")
(nd/decend-into-project (nd/descend-into-project
'(:undone-complete :stuck :held :waiting :active) '(:undone-complete :stuck :held :waiting :active)
'((:complete . 0) '((:complete . 0)
(:archivable . 0) (:archivable . 0)