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

FIX date mismatch when making weekly plan

This commit is contained in:
Nathan Dwarshuis 2022-05-08 16:44:25 -04:00
parent 8316f2ef93
commit 0469fa492b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -318,7 +318,7 @@ Must be an integer from 0 - 6, with 0 = Sunday.")
(format "D%02d" day)) (format "D%02d" day))
(defun org-x-dag-format-offset-tag (offset) (defun org-x-dag-format-offset-tag (offset)
(format "d%d" day)) (format "d%d" offset))
(defun org-x-dag-quarter-tags-to-date (tags) (defun org-x-dag-quarter-tags-to-date (tags)
(-let (((y q) (reverse tags))) (-let (((y q) (reverse tags)))
@ -3369,7 +3369,7 @@ FUTURE-LIMIT in a list."
(defun org-x-dag-wkp-empty () (defun org-x-dag-wkp-empty ()
(->> (-iterate #'1+ 0 7) (->> (-iterate #'1+ 0 7)
(--annotate (mod (+ org-x-dag-weekday-start it) 7)) (--annotate (mod (+ org-x-dag-weekday-start it) 7))
(--map (org-x-dag-build-day-of-week-headline (cdr it) (car it) nil)))) (--map (org-x-dag-build-day-of-week-headline (car it) (cdr it) nil))))
;;; stateful buffer function ;;; stateful buffer function
@ -3602,11 +3602,11 @@ FUTURE-LIMIT in a list."
(-let* (((y m d) (org-x-dag-date-to-week-start date)) (-let* (((y m d) (org-x-dag-date-to-week-start date))
(path (org-x-dag->planning-file :weekly)) (path (org-x-dag->planning-file :weekly))
(find-year (-partial #'org-x-dag-headlines-find-year y)) (find-year (-partial #'org-x-dag-headlines-find-year y))
(find-month (-partial #'org-x-dag-headlines-find-month d)) (find-month (-partial #'org-x-dag-headlines-find-month m))
(find-day (-partial #'org-x-dag-headlines-find-day d)) (find-day (-partial #'org-x-dag-headlines-find-day d))
(build-year (-partial #'org-x-dag-build-year-headline y)) (build-year (-partial #'org-x-dag-build-year-headline y))
(build-month (-partial #'org-x-dag-build-month-headline m)) (build-month (-partial #'org-x-dag-build-month-headline m))
(build-day (-partial #'org-x-dag-build-day-headline d))) (build-day (-partial #'org-x-dag-build-day-headline date)))
(org-x-dag-headline-set-nested path headlines (org-x-dag-headline-set-nested path headlines
`((,find-year ,build-year) `((,find-year ,build-year)
(,find-month ,build-month) (,find-month ,build-month)