suzanne.soy/racket-pkg-website
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Avoid nested <form>s in search page

Browse Source
This commit is contained in:
Tony Garnock-Jones 2020-06-04 14:13:23 +02:00
parent 41d3a39efe
commit 020d9c47e8
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/site.rkt
View File

@ -1493,16 +1493,16 @@
0 10(text-input "tags" tags-input 0 10(text-input "tags" tags-input
#:placeholder #:placeholder
"tag1 tag2 tag3 ...")) "tag1 tag2 tag3 ..."))
,(form-group 2 10 (primary-button (glyphicon 'search) " Search")) ,(form-group 2 10 (primary-button (glyphicon 'search) " Search")))
(div ((class "search-results")) `(div ((class "search-results"))
,@(maybe-splice ,@(maybe-splice
(or (pair? tags) (not (equal? search-text ""))) (or (pair? tags) (not (equal? search-text "")))
(let ((package-name-list (package-search search-text tags))) (let ((package-name-list (package-search search-text tags)))
`(div `(div
(p ((class "package-count")) (p ((class "package-count"))
,(format "~a packages found" (length package-name-list))) ,(format "~a packages found" (length package-name-list)))
(p ((class "package-count") (id "todo-msg")) "") (p ((class "package-count") (id "todo-msg")) "")
,(package-summary-table package-name-list)))))))))) ,(package-summary-table package-name-list)))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;