From fe703d074ae30c39458d8a1a206b807df38411d0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 28 Oct 2023 23:42:48 +0200 Subject: Minor documentation improvements. --- module/calp/html/caltable.scm | 1 + module/datetime.scm | 1 + module/web/http/dav.scm | 5 +++-- 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")) ;; ( → sxml-attributes) → → 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) -- cgit v1.2.3