diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-28 23:42:48 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | fe703d074ae30c39458d8a1a206b807df38411d0 (patch) | |
tree | f13d6069207d4c6888da40a07803c46ba8656df9 /module | |
parent | Move 'validate-event' into only module using it. (diff) | |
download | calp-fe703d074ae30c39458d8a1a206b807df38411d0.tar.gz calp-fe703d074ae30c39458d8a1a206b807df38411d0.tar.xz |
Minor documentation improvements.
Diffstat (limited to 'module')
-rw-r--r-- | module/calp/html/caltable.scm | 1 | ||||
-rw-r--r-- | module/datetime.scm | 1 | ||||
-rw-r--r-- | module/web/http/dav.scm | 5 |
3 files changed, 5 insertions, 2 deletions
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm index bdbcf55f..f408c7d9 100644 --- a/module/calp/html/caltable.scm +++ b/module/calp/html/caltable.scm @@ -38,6 +38,7 @@ (date->string date "~Y-~m-~d.html")) ;; (<date> → sxml-attributes) → <date> → sxml + ;; TODO rename this since tables aren't used any more. (define (td attr) (lambda (date) `(a (@ ,@(attr date)) diff --git a/module/datetime.scm b/module/datetime.scm index 53eb35c6..9bede1f1 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -894,6 +894,7 @@ Returns -1 on failure" (string->datetime str)) (define (parse-freeform-date str) + ;; TODO as-date? (parse-iso-datetime str)) (define (date->sexp d) diff --git a/module/web/http/dav.scm b/module/web/http/dav.scm index dc50b680..0d604cdf 100644 --- a/module/web/http/dav.scm +++ b/module/web/http/dav.scm @@ -1,6 +1,7 @@ ;;; Commentary: -;;; This is a simple WedDAV client. -;;; TODO figure out what it's used for. +;;; This is a simple WedDAV and CalDAV client. +;;; It's used in calp to implement the CalDAV storage backend, as well as +;;; testing our server implementation. ;;; Code: (define-module (web http dav) |