From edaf758b80fed1f5f14cd4b192e661c8863e84bc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 23 Aug 2020 23:22:10 +0200 Subject: Move html modules under calp. --- module/html/view/small-calendar.scm | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 module/html/view/small-calendar.scm (limited to 'module/html/view/small-calendar.scm') diff --git a/module/html/view/small-calendar.scm b/module/html/view/small-calendar.scm deleted file mode 100644 index e6378176..00000000 --- a/module/html/view/small-calendar.scm +++ /dev/null @@ -1,19 +0,0 @@ -(define-module (html view small-calendar) - :use-module ((html components) :select (xhtml-doc include-css)) - :use-module ((html caltable) :select (cal-table)) - :use-module ((datetime) :select (month- month+ remove-day date->string)) - ) - -(define-public (render-small-calendar month standalone) - (define table (cal-table - start-date: month - end-date: (remove-day (month+ month)) - next-start: month+ - prev-start: month- - )) - (if standalone - (xhtml-doc - (head (title ,(date->string month "~1")) - ,(include-css "/static/smallcal.css")) - (body ,table)) - table)) -- cgit v1.2.3