From fa01f515e278d3b8d0c8af20d0668fb7baa98d6a Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Tue, 21 Jul 2020 18:59:25 -0400 Subject: feat(web/panettone): The start of a very simple issue tracker Initial commit for Panettone, a very simple issue tracker for TVL. In its current state this launches a web server with authenticates with our ldap server, and supports listing and creating issues via static html pages and simple forms. We've been needing an issue tracker for a while now, but none of the options out there seem very good - or there are some good ones, but they're AGPL licensed and we don't want to deal with them. Rather than muck around with Trac or Bugzilla, we've decided to write our own. Change-Id: I704f0996d15199329bbd5450f3d959046bf13973 Reviewed-on: https://cl.tvl.fyi/c/depot/+/1337 Tested-by: BuildkiteCI Reviewed-by: tazjin --- lisp/klatre/klatre.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp') diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp index 231e72b64f..b20d1ab528 100644 --- a/lisp/klatre/klatre.lisp +++ b/lisp/klatre/klatre.lisp @@ -73,7 +73,7 @@ separated by SEP." ;;; String handling ;;; -(defconstant +dottime-format+ +(defparameter dottime-format '((:year 4) #\- (:month 2) #\- (:day 2) #\T (:hour 2) #\ยท (:min 2) "+00") ; TODO(grfn): Allow passing offset @@ -83,7 +83,7 @@ separated by SEP." "Return TIMESTAMP formatted as dottime, using a +00 offset" (check-type timestamp local-time:timestamp) (local-time:format-timestring nil timestamp - :format +dottime-format+ + :format dottime-format :timezone local-time:+utc-zone+)) (comment -- cgit 1.4.1