diff options
Diffstat (limited to '')
-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)))) - |