mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(web/panettone): Fix more calls to (id nil) in new issue form

Browse source 
Change-Id: Id514d80e00005b7b7eb2f305e92af33ca70d6964
Reviewed-on: https://cl.tvl.fyi/c/depot/+/1594
Tested-by: BuildkiteCI
Reviewed-by: lukegb <lukegb@tvl.fyi>
This commit is contained in:
Griffin Smith 2020-08-03 09:27:43 -04:00 committed by glittershark
parent 708e94532d
commit 117e7316a0
1 changed files with 33 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
web/panettone/src/panettone.lisp
View file

@ -224,16 +224,16 @@
(render/issue-list :issues issues))))
(defun render/issue-form (&optional issue message)
(let ((editing (and issue (id issue))))
(render ()
(:header
(:h1
(who:esc
(if (and issue (id issue))
"Edit Issue" "New Issue"))))
(if editing "Edit Issue" "New Issue"))))
(:main
(render/alert message)
(:form :method "post"
:action (if (id issue)
:action (if editing
(format nil "/issues/~A"
(id issue))
"/issues")
@ -243,19 +243,22 @@
:id "subject"
:name "subject"
:placeholder "Subject"
:value (subject issue)))
:value (when editing
(subject issue))))
(:div
(:textarea :name "body"
:placeholder "Description"
:rows 10
(who:esc (body issue))))
(who:esc
(when editing
(body issue)))))
(:input :type "submit"
:value
(if (id issue)
(if editing
"Save Issue"
"Create Issue"))))))
"Create Issue")))))))
(defun render/new-comment (issue-id)
(who:with-html-output (*standard-output*)