Simple period comments display.

This commit is contained in:
Dominik Pantůček 2023-03-27 17:35:13 +02:00
parent 1a14fd2bc4
commit 0a688fc057
2 changed files with 9 additions and 5 deletions

View file

@ -110,8 +110,10 @@
(map
(lambda (p)
(list
(month->string (period-since p))
(month->string (period-before p))))
(string-append (month->string (period-since p)) " "
(or (period-scomment p) ""))
(string-append (month->string (period-before p)) " "
(or (period-bcomment p) ""))))
v))
#:col-border #t)))
(else