💬 update branding

This commit is contained in:
DrMaxNix 2024-05-03 11:48:04 +02:00
parent 610bba0ff9
commit ace5e4a390

View File

@ -101,18 +101,20 @@
" just the first one or two."]]) " just the first one or two."]])
(defn contact-block [] (defn contact-block []
(let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle)
(str "@" handle)))]
[:div {:class "section contact"} [:div {:class "section contact"}
[:p "Written by " [:p "Written by morganastra ("
(twitter-name "morganastra") (href "https://pronoun.lol/she" "pronoun.lol/she")
", whose " ")"]
(href "https://pronoun.lol/she" "pronoun.lol/she")] [:p "pronoun.lol is free software under the "
[:p "pronoun.lol is free software under the " (href "https://www.gnu.org/licenses/agpl.html" "AGPLv3")
(href "https://www.gnu.org/licenses/agpl.html" "AGPLv3") "! visit the project on "
"! visit the project on " (href "https://git.tjdev.de/kimendisch/pronoun.lol" "Git")]
(href "https://github.com/witch-house/pronoun.lol" "github")] [:p "Hosted by Kim Endisch ("
[:p "<3"]])) (href "https://pronoun.lol/they" "pronoun.lol/they")]
[:p (href "https://www.tjdev.de/imprint" "Imprint")
" | "
(href "https://www.tjdev.de/privacy" "Privacy Policy")]
[:p "<3"]])
(defn footer-block [] (defn footer-block []
[:footer (usage-block) (contact-block)]) [:footer (usage-block) (contact-block)])