aboutsummaryrefslogtreecommitdiff
path: root/module/html/view/calendar/week.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-23 23:22:10 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-23 23:22:10 +0200
commitedaf758b80fed1f5f14cd4b192e661c8863e84bc (patch)
tree9baf17c11a6254e81f29a1c473e5eb86c072aa79 /module/html/view/calendar/week.scm
parentAdd rendering of standalone small-cal. (diff)
downloadcalp-edaf758b80fed1f5f14cd4b192e661c8863e84bc.tar.gz
calp-edaf758b80fed1f5f14cd4b192e661c8863e84bc.tar.xz
Move html modules under calp.
Diffstat (limited to '')
-rw-r--r--module/calp/html/view/calendar/week.scm (renamed from module/html/view/calendar/week.scm)12
1 files changed, 6 insertions, 6 deletions
diff --git a/module/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm
index 34e8eeb4..ca6aa9f8 100644
--- a/module/html/view/calendar/week.scm
+++ b/module/calp/html/view/calendar/week.scm
@@ -1,18 +1,18 @@
-(define-module (html view calendar week)
+(define-module (calp html view calendar week)
:use-module (util)
:use-module (srfi srfi-1)
:use-module (srfi srfi-41)
:use-module (datetime)
- :use-module (html view calendar shared)
- :use-module (html config)
- :use-module (html util)
+ :use-module (calp html view calendar shared)
+ :use-module (calp html config)
+ :use-module (calp html util)
:use-module (vcomponent)
:use-module ((vcomponent datetime)
:select (long-event?
event-length/day
event-zero-length?
events-between))
- :use-module ((html vcomponent)
+ :use-module ((calp html vcomponent)
:select (make-block) )
:use-module ((vcomponent group)
:select (group-stream get-groups-between))
@@ -46,7 +46,7 @@
,@(for event in (stream->list
(events-between start-date end-date events))
- ((@ (html vcomponent ) popup) event (string-append "popup" (html-id event))))
+ ((@ (calp html vcomponent ) popup) event (string-append "popup" (html-id event))))
)))))