From d26d16dc7d70077d47089756fb30fe4b6e3808d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 24 Apr 2019 01:08:06 +0200
Subject: Add 'from' and 'to' flags to HTML.

---
 module/srfi/srfi-19/util.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'module/srfi/srfi-19/util.scm')

diff --git a/module/srfi/srfi-19/util.scm b/module/srfi/srfi-19/util.scm
index e4014a68..ea8e2f7f 100644
--- a/module/srfi/srfi-19/util.scm
+++ b/module/srfi/srfi-19/util.scm
@@ -117,3 +117,9 @@ attribute set to 0. Can also be seen as \"Start of day\""
 
 (define-public (time-max a b)
   (if (time<? a b) b a))
+
+
+;; TODO possibly put this in some form of parser module.
+;; TODO actually allow many form date form.
+(define-public (parse-freeform-date str)
+  (string->date str "~Y-~m-~d"))
-- 
cgit v1.2.3