colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[Emacs] Multi line org-window-habit

Browse Source
This commit is contained in:
Ivan Malison 2023-08-30 22:56:34 -06:00
parent cacf468ca9
commit 9814baed9e
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
dotfiles/emacs.d/load.d/org-window-habit.el
View File

@ -102,20 +102,28 @@
;; Align time based on the smallest duration type and its value ;; Align time based on the smallest duration type and its value
(cond (cond
((eq smallest-duration-type :seconds) ((eq smallest-duration-type :seconds)
(encode-time (* smallest-duration-value (floor second smallest-duration-value)) minute hour day month year)) (encode-time
(* smallest-duration-value (floor second smallest-duration-value)) minute
hour day month year))
((eq smallest-duration-type :minutes) ((eq smallest-duration-type :minutes)
(encode-time 0 (* smallest-duration-value (floor minute smallest-duration-value)) hour day month year)) (encode-time
0 (* smallest-duration-value
(floor minute smallest-duration-value)) hour day month year))
((eq smallest-duration-type :hours) ((eq smallest-duration-type :hours)
(encode-time 0 0 (* smallest-duration-value (floor hour smallest-duration-value)) day month year)) (encode-time
0 0 (* smallest-duration-value (floor hour smallest-duration-value))
day month year))
((eq smallest-duration-type :days) ((eq smallest-duration-type :days)
(let* ((aligned-day (- day (1- smallest-duration-value)))) (let* ((aligned-day (- day (1- smallest-duration-value))))
(encode-time 0 0 0 aligned-day month year))) (encode-time 0 0 0 aligned-day month year)))
((eq smallest-duration-type :months) ((eq smallest-duration-type :months)
(encode-time 0 0 0 1 (* smallest-duration-value (floor month smallest-duration-value)) year)) (encode-time 0 0 0 1
(* smallest-duration-value (floor month smallest-duration-value))
year))
((eq smallest-duration-type :years) ((eq smallest-duration-type :years)
(let* ((aligned-year (- year (1- smallest-duration-value)))) (let* ((aligned-year (- year (1- smallest-duration-value))))