diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:03:49 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:03:49 +0200 |
| commit | 8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe (patch) | |
| tree | 37e49d78df0916efcb0d547e0b28b63247cfec3d /module/html/html.scm | |
| parent | Change event-length => event-length/day. (diff) | |
| download | calp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.gz calp-8f4fbcd493e28c86c598efcecdb6dc79d8fe0bfe.tar.xz | |
Rename module vcalendar => vcomponent.
Diffstat (limited to '')
| -rw-r--r-- | module/html/html.scm | 12 |
1 files changed, 5 insertions, 7 deletions
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))) |