Evalprime/breezewiki
1
0
Fork 0
forked from cadence/breezewiki
Code Pull requests Activity

Extension now available on Chrome

Browse source
This commit is contained in:
Cadence Ember 2023-02-10 14:53:15 +13:00
parent 4cbe6fe289
commit c8401c972c
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/application-globals.rkt
View file

@ -200,14 +200,21 @@
(body (@ (class ,(head-data^-body-class head-data)))
,(if (config-true? 'instance_is_official)
(let ([balloon '(img (@ (src "/static/three-balloons.png") (class "bw-balloon") (title "Image Source: pngimg.com/image/4955 | License: CC BY-NC 4.0 | Modifications: Resized") (width "52") (height "56")))]
[extension-eligible? (and req (assq 'user-agent (request-headers req)) (string-contains? (string-downcase (cdr (assq 'user-agent (request-headers req)))) "firefox/"))])
[extension-eligible?
(and req (let* ([ua-pair (assq 'user-agent (request-headers req))]
[ua (string-downcase (cdr ua-pair))])
;; everyone pretends to be chrome, so we do it in reverse
;; this excludes common browsers that don't support the extension
(and (not (string-contains? ua "edge/"))
(not (string-contains? ua "edg/"))
(not (string-contains? ua "mobile")))))])
`(div (@ (class "bw-top-banner"))
,balloon
(div
"BreezeWiki is back! Most major wikis are available.\n"
,(if extension-eligible?
'(div (@ (class "bw-top-banner-rainbow"))
"Try " (a (@ (href "https://getindie.wiki/")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
"Try " (a (@ (href "https://getindie.wiki/") (target "_blank")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n")
"")
"As always, " (a (@ (href "https://docs.breezewiki.com/Reporting_Bugs.html")) "please go here") " to report problems, suggest features, or talk about the project.")
,balloon))