cadence/breezewiki
2
4
Fork 4
Code Issues Pull requests 1 Releases Wiki Activity

Use default siteinfo when online wiki not found

Browse source
This commit is contained in:
Cadence Ember 2024-05-04 18:01:50 +12:00
parent d2765c2a78
commit 0fd0efc3f2
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/data.rkt
View file

@ -62,11 +62,13 @@
("siprop" . "general|rightsinfo")
("format" . "json")
("formatversion" . "2"))))
(cond [(= (easy:response-status-code res) 200)
(define data (easy:response-json res))
(siteinfo^ (jp "/query/general/sitename" data)
(second (regexp-match #rx"/wiki/(.*)" (jp "/query/general/base" data)))
(license^ (jp "/query/rightsinfo/text" data)
(jp "/query/rightsinfo/url" data)))]))
(jp "/query/rightsinfo/url" data)))]
[else siteinfo-default])]))
(define/memoize (head-data-getter wikiname) #:hash hash
;; data will be stored here, can be referenced by the memoized closure