cadence
/
breezewiki
3
4
Fork 4
Code Issues Pull Requests 1 Releases Wiki Activity

Use default siteinfo when online wiki not found

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/data.rkt
View File

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