diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-27 16:08:39 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:25 +0100 |
| commit | a89a4b152fda1c6346e82ea92af498fcfbc53089 (patch) | |
| tree | 6319dfaa7ae1a4af5d1250a564abd90f14c19976 /module/vulgar | |
| parent | Remove unused 'color-if'. (diff) | |
| download | calp-a89a4b152fda1c6346e82ea92af498fcfbc53089.tar.gz calp-a89a4b152fda1c6346e82ea92af498fcfbc53089.tar.xz | |
Add proper text calendar.
Previously the program `cal` was used, this was slow and unreliable.
Diffstat (limited to 'module/vulgar')
| -rw-r--r-- | module/vulgar/components.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm deleted file mode 100644 index 74420f18..00000000 --- a/module/vulgar/components.scm +++ /dev/null @@ -1,17 +0,0 @@ -(define-module (vulgar components) - :use-module (datetime) - :use-module (hnh util) - :export (display-calendar-header!)) - -(define (display-calendar-header! date) - (let ((day (number->string (day date))) - (month (number->string (month date))) - (year (number->string (year date)))) - ;; BSD cal only supports setting highlighted day explicitly for - ;; testing the functionality. This seems to at least give me - ;; an (almost) working display, albeit ugly. - (if (file-exists? "/usr/bin/ncal") - (system* "ncal" "-3" "-H" (date->string date) - month year) - (system* "cal" "-3" day month year)))) - |