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 | |
parent | Move 'validate-event' into only module using it. (diff) | |
download | calp-fe703d074ae30c39458d8a1a206b807df38411d0.tar.gz calp-fe703d074ae30c39458d8a1a206b807df38411d0.tar.xz |
Minor documentation improvements.
-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 | ||||
-rw-r--r-- | tests/unit/vcomponent/annoying-events.scm | 2 |
4 files changed, 7 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) diff --git a/tests/unit/vcomponent/annoying-events.scm b/tests/unit/vcomponent/annoying-events.scm index 0fa81adb..a21a5f79 100644 --- a/tests/unit/vcomponent/annoying-events.scm +++ b/tests/unit/vcomponent/annoying-events.scm @@ -1,3 +1,5 @@ +;;; TODO these aren't unit tests, but rather basic integration tests + (define-module (test annoying-events) :use-module (srfi srfi-64) :use-module (srfi srfi-88) |