diff --git a/src/pronouns/pages.clj b/src/pronouns/pages.clj index d052942..ca35870 100644 --- a/src/pronouns/pages.clj +++ b/src/pronouns/pages.clj @@ -101,18 +101,20 @@ " just the first one or two."]]) (defn contact-block [] - (let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle) - (str "@" handle)))] [:div {:class "section contact"} - [:p "Written by " - (twitter-name "morganastra") - ", whose " - (href "https://pronoun.lol/she" "pronoun.lol/she")] - [:p "pronoun.lol is free software under the " - (href "https://www.gnu.org/licenses/agpl.html" "AGPLv3") - "! visit the project on " - (href "https://github.com/witch-house/pronoun.lol" "github")] - [:p "<3"]])) + [:p "Written by morganastra (" + (href "https://pronoun.lol/she" "pronoun.lol/she") + ")"] + [:p "pronoun.lol is free software under the " + (href "https://www.gnu.org/licenses/agpl.html" "AGPLv3") + "! visit the project on " + (href "https://git.tjdev.de/kimendisch/pronoun.lol" "Git")] + [:p "Hosted by Kim Endisch (" + (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 [] [:footer (usage-block) (contact-block)])