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

Display canonical_origin on the home page

Browse source
This commit is contained in:
Cadence Ember 2022-09-05 01:45:42 +12:00
parent 4815db4063
commit 68832059bd
Signed by untrusted user: cadence
GPG key ID: BC1C2C61CF521B17
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/page-home.rkt
View file

@ -1,6 +1,7 @@
#lang racket/base #lang racket/base
(require html-writing (require net/url
html-writing
web-server/http web-server/http
"xexpr-utils.rkt" "xexpr-utils.rkt"
"config.rkt") "config.rkt")
@ -31,7 +32,10 @@
,(apply format "~a: ~a" x)))) ,(apply format "~a: ~a" x))))
examples)) examples))
(h2 "How to use") (h2 "How to use")
(p "While browsing any page on Fandom, you can replace \"fandom.com\" in the address bar with \"breezewiki.com\" to see the BreezeWiki version of that page.") (p ,(format "While browsing any page on Fandom, you can replace \"fandom.com\" in the address bar with \"~a\" to see the BreezeWiki version of that page."
(if (config-true? 'canonical_origin)
(url-host (string->url (config-get 'canonical_origin)))
"breezewiki.com")))
(p "After that, you can click the links to navigate around the pages.") (p "After that, you can click the links to navigate around the pages.")
(p "To get back to Fandom, click the link that's at the bottom of the page."))) (p "To get back to Fandom, click the link that's at the bottom of the page.")))