From a89a4b152fda1c6346e82ea92af498fcfbc53089 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 27 Oct 2023 16:08:39 +0200 Subject: Add proper text calendar. Previously the program `cal` was used, this was slow and unreliable. --- module/vulgar/components.scm | 17 ----------------- 1 file changed, 17 deletions(-) delete mode 100644 module/vulgar/components.scm (limited to 'module/vulgar') 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)))) - -- cgit v1.2.3