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

Exclude system tags when editing a package

Browse Source
This commit is contained in:
Tony Garnock-Jones 2014-11-09 17:39:26 -05:00
parent c08d89b66f
commit a791c435c1
2 changed files with 18 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/site.rkt
View File

@ -53,7 +53,8 @@
[("create") edit-package-page]
[("logout") logout-page]
[("json" "search-completions") json-search-completions]
[("json" "tag-completions") json-tag-completions]
[("json" "tag-search-completions") json-tag-search-completions]
[("json" "formal-tags") json-formal-tags]
))
(define (on-continuation-expiry request)
@ -787,6 +788,7 @@
(bootstrap-response (if has-old-name?
(format "Edit package ~a" old-name)
"Create a new package")
#:body-class "package-form"
(if error-message
`(div ((class "alert alert-danger"))
,(glyphicon 'exclamation-sign) " " ,error-message)
@ -1070,6 +1072,7 @@
[(pregexp #px"!(.*)" (list _ tag)) (list (string->symbol tag) #f)]
[tag (list (string->symbol tag) #t)])))
(bootstrap-response "Search Package Index"
#:body-class "search-page"
`(form ((class "form-horizontal")
(role "form"))
,(form-group 0 2 (label "q" "Search terms")
@ -1098,7 +1101,12 @@
(lambda (response-port)
(write-json (set->list completions) response-port))))
(define (json-tag-completions request)
(define (json-tag-search-completions request)
(response/output #:mime-type #"application/json"
(lambda (response-port)
(write-json (set->list (all-tags)) response-port))))
(define (json-formal-tags request)
(response/output #:mime-type #"application/json"
(lambda (response-port)
(write-json (set->list (all-formal-tags)) response-port))))

13
static/site.js
View File

@ -35,10 +35,13 @@ $(document).ready(function () {
$("table.sortable").tablesorter();
if ($("#tags").length) {
$.getJSON("/json/tag-completions", function (tagCompletions) {
tagCompletions.sort();
PkgSite.multiTermComplete(PkgSite.preventTabMovingDuringSelection($("#tags")),
tagCompletions);
});
$.getJSON((document.body.className === "package-form")
? "/json/formal-tags"
: "/json/tag-search-completions",
function (completions) {
completions.sort();
PkgSite.multiTermComplete(PkgSite.preventTabMovingDuringSelection($("#tags")),
completions);
});
}
});