summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/web/view/html.scm111
1 files changed, 57 insertions, 54 deletions
diff --git a/mumi/web/view/html.scm b/mumi/web/view/html.scm
index da3b519..f6ab518 100644
--- a/mumi/web/view/html.scm
+++ b/mumi/web/view/html.scm
@@ -399,6 +399,61 @@ failed to process associated messages.")
((? number? n)
(list (number->string n)))))))))
'()))))
+ (define comment-box
+ `(div
+ (@ (class "comment-box"))
+ (a (@ (id "comment")))
+ (div
+ (@ (class "avatar")
+ (style "background-color:#bc80bd")) "?")
+ (div
+ (@ (class "message"))
+ (div
+ (@ (class "card"))
+ ,@(if (mailer-enabled?)
+ `((form
+ (@ (action ,(format #f "/issue/~a/comment"
+ (number->string id)))
+ (enctype "multipart/form-data")
+ (method "POST"))
+ (input (@ (style "display:none")
+ (name "validation")
+ (placeholder "Please leave this empty.")) "")
+ (input (@ (type "hidden")
+ (name "timestamp")
+ (value ,(timestamp!))) "")
+ (div
+ (@ (class "card-header"))
+ (div (@ (class "from"))
+ (input (@ (class "address form-control")
+ (name "from")
+ (required "required")
+ (placeholder "Your name")) "")))
+ (div
+ (@ (class "body card-body"))
+ (textarea (@ (name "text")
+ (required "required")
+ (class "form-control")
+ (placeholder "Please input your comment..."))
+ ""))
+ (div
+ (@ (class "card-footer"))
+ (button (@ (class "btn btn-primary")
+ (type "submit"))
+ "Send"))))
+ `((div
+ (@ (class "card-header"))
+ (div (@ (class "from"))
+ (span (@ (class "address")) "Your comment")))
+ (div
+ (@ (class "body card-body"))
+ (p "Comments via the web interface are not currently
+supported. To comment on this conversation "
+ (a (@ (href ,(string-append "mailto:"
+ (number->string id) "@" (%config 'debbugs-domain)
+ "?subject=" (bug-subject* bug))))
+ ,(string-append "send email to "
+ (number->string id) "@" (%config 'debbugs-domain)))))))))))
(define (show-message message-number message previous-subject)
`((div (@ (class "mb-5"))
(a (@ (id ,(number->string message-number))))
@@ -453,6 +508,7 @@ failed to process associated messages.")
(@ (class "col-11 offset-1 text-center"))
(div (@ (class "badge badge-primary closed")) "Closed"))))
'())))
+
(if (null? messages) #f
(layout
#:title (bug-subject* bug)
@@ -491,60 +547,7 @@ failed to process associated messages.")
msgs
(cons (bug-subject* bug)
(map subject msgs))))
- (div
- (@ (class "comment-box"))
- (a (@ (id "comment")))
- (div
- (@ (class "avatar")
- (style "background-color:#bc80bd")) "?")
- (div
- (@ (class "message"))
- (div
- (@ (class "card"))
- ,@(if (mailer-enabled?)
- `((form
- (@ (action ,(format #f "/issue/~a/comment"
- (number->string id)))
- (enctype "multipart/form-data")
- (method "POST"))
- (input (@ (style "display:none")
- (name "validation")
- (placeholder "Please leave this empty.")) "")
- (input (@ (type "hidden")
- (name "timestamp")
- (value ,(timestamp!))) "")
- (div
- (@ (class "card-header"))
- (div (@ (class "from"))
- (input (@ (class "address form-control")
- (name "from")
- (required "required")
- (placeholder "Your name")) "")))
- (div
- (@ (class "body card-body"))
- (textarea (@ (name "text")
- (required "required")
- (class "form-control")
- (placeholder "Please input your comment..."))
- ""))
- (div
- (@ (class "card-footer"))
- (button (@ (class "btn btn-primary")
- (type "submit"))
- "Send"))))
- `((div
- (@ (class "card-header"))
- (div (@ (class "from"))
- (span (@ (class "address")) "Your comment")))
- (div
- (@ (class "body card-body"))
- (p "Comments via the web interface are not currently
-supported. To comment on this conversation "
- (a (@ (href ,(string-append "mailto:"
- (number->string id) "@" (%config 'debbugs-domain)
- "?subject=" (bug-subject* bug))))
- ,(string-append "send email to "
- (number->string id) "@" (%config 'debbugs-domain)))))))))))))))))
+ ,comment-box)))))))
(define (list-of-bugs bugs)
"Return table rows for all BUGS."