artemis
/
breezewiki
forked from cadence/breezewiki
1
0
Fork 0
Code Issues Pull Requests 2 Packages Projects Releases Wiki Activity

Make top banner less flashy, add to all instances

This commit is contained in:
Cadence Ember 2023-03-21 00:02:16 +13:00
parent 04735851be
commit d1c348a853
Signed by untrusted user: cadence
GPG Key ID: BC1C2C61CF521B17
1 changed files with 14 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/application-globals.rkt
View File

@ -198,30 +198,21 @@
(λ (v) (u-proxy-url v)) (λ (v) (u-proxy-url v))
(head-data^-icon-url head-data)))))) (head-data^-icon-url head-data))))))
(body (@ (class ,(head-data^-body-class head-data))) (body (@ (class ,(head-data^-body-class head-data)))
,(if (config-true? 'instance_is_official) ,(let ([extension-eligible?
(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")))] (cond/var
[extension-eligible? [(not req) #f]
(cond/var (var ua-pair (assq 'user-agent (request-headers req)))
[(not req) #f] [(not ua-pair) #f]
(var ua-pair (assq 'user-agent (request-headers req))) (var ua (string-downcase (cdr ua-pair)))
[(not ua-pair) #f] ;; everyone pretends to be chrome, so we do it in reverse
(var ua (string-downcase (cdr ua-pair))) ;; this excludes common browsers that don't support the extension
;; everyone pretends to be chrome, so we do it in reverse [#t (and (not (string-contains? ua "edge/"))
;; this excludes common browsers that don't support the extension (not (string-contains? ua "mobile")))])])
[#t (and (not (string-contains? ua "edge/")) (if extension-eligible?
(not (string-contains? ua "edg/"))
(not (string-contains? ua "mobile")))])])
`(div (@ (class "bw-top-banner")) `(div (@ (class "bw-top-banner"))
,balloon (div (@ (class "bw-top-banner-rainbow"))
(div "Try " (a (@ (href "https://getindie.wiki/") (target "_blank")) "our affiliated browser extension") " - redirect to BreezeWiki automatically!\n"))
"BreezeWiki is back! Most major wikis are available.\n" ""))
,(if extension-eligible?
'(div (@ (class "bw-top-banner-rainbow"))
"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))
"")
(div (@ (class "main-container")) (div (@ (class "main-container"))
(div (@ (class "fandom-community-header__background tileHorizontally header"))) (div (@ (class "fandom-community-header__background tileHorizontally header")))
(div (@ (class "page")) (div (@ (class "page"))