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

UI for /jsonp/update API

Browse Source
This commit is contained in:
Tony Garnock-Jones 2015-10-02 17:03:20 -04:00
parent 41f26c320b
commit c9384e4cf9
1 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/site.rkt
View File

@ -75,6 +75,7 @@
[("search") search-page] [("search") search-page]
[("package" (string-arg)) package-page] [("package" (string-arg)) package-page]
[("package" (string-arg) "edit") edit-package-page] [("package" (string-arg) "edit") edit-package-page]
[("update-my-packages") update-my-packages-page]
[("not-found") not-found-page] [("not-found") not-found-page]
[("create") edit-package-page] [("create") edit-package-page]
[("login") login-page] [("login") login-page]
@ -195,12 +196,15 @@
(format "author:~a" (format "author:~a"
(session-email session)))))) (session-email session))))))
,(glyphicon 'user) " My packages")) ,(glyphicon 'user) " My packages"))
(li ((class "divider")) (li ((class "divider")))
(li (a ((href ,(named-url update-my-packages-page)))
,(glyphicon 'refresh) " Rescan all my packages"))
(li ((class "divider")))
(li (a ((href (li (a ((href
,(login-or-register-url ,(login-or-register-url
requested-url requested-url
(named-url logout-page)))) (named-url logout-page))))
,(glyphicon 'log-out) " Log out")))))))])) ,(glyphicon 'log-out) " Log out"))))))]))
(current-session session) (current-session session)
(bootstrap-cookies (bootstrap-cookies
(if session (if session
@ -1244,6 +1248,20 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (update-my-packages-page request)
(authentication-wrap/require-login
#:request request
(jsonp-rpc! "/jsonp/update" '())
(bootstrap-response "Refresh All My Packages"
`(div
(p "All packages where you are listed as an author are now being rescanned.")
(p "The results will be available after the next index refresh, which is "
"scheduled for " ,(utc->string (/ (next-fetch-deadline) 1000))))
`(ul (li (a ((href ,(main-page-url)))
"Return to the package index"))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (search-page request) (define (search-page request)
(parameterize ((bootstrap-active-navigation nav-search) (parameterize ((bootstrap-active-navigation nav-search)
(bootstrap-page-scripts '("/searchbox.js"))) (bootstrap-page-scripts '("/searchbox.js")))