From 8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 18:03:49 +0200
Subject: Rename module vcalendar => vcomponent.

---
 module/html/html.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'module/html/html.scm')

diff --git a/module/html/html.scm b/module/html/html.scm
index d7a52a53..44745ba0 100644
--- a/module/html/html.scm
+++ b/module/html/html.scm
@@ -2,14 +2,12 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-41)
   #:use-module (srfi srfi-41 util)
-  #:use-module (vcalendar)
-  #:use-module (vcalendar datetime)
+  #:use-module (vcomponent)
+  #:use-module (vcomponent datetime)
   #:use-module (util)
   #:use-module (util tree)
   #:use-module (srfi srfi-19)
-  #:use-module (srfi srfi-19 util)
-
-  )
+  #:use-module (srfi srfi-19 util))
 
 (define-stream (group-stream in-stream)
   (define (ein? day) (lambda (e) (event-in? e (date->time-utc day))))
@@ -56,9 +54,9 @@
                         ;; smaller event.
                       (sort* lst time>? (lambda (e) (event-length/day e start-of-day))))))
 
+;; This should only be used on time intervals, never on absolute times.
+;; For that see @var{date->decimal-hour}.
 (define (time->decimal-hour time)
-  "This should only be used on time intervals,
-never on absolute times. For that see date->decimal-hour"
   (exact->inexact (/ (time-second time)
                      3600)))
 
-- 
cgit v1.2.3