blob: 408522796340ca8caa9afdb18104b9a777bfa491 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(define-module (calp html util)
:use-module (calp util))
(define-public (date-link date)
((@ (datetime) date->string) date "~Y-~m-~d"))
;; Generate an html id for an event.
;; TODO? same event placed multiple times, when spanning multiple cells
(define-public html-id
(let ((id (make-object-property)))
(lambda (ev)
(or (id ev)
(set/r! (id ev) (symbol->string (gensym "__html_id_")))))))
|