kimendisch/pronomen.lol
0
0
Fork 0
Code Issues Pull Requests Projects Activity

re-organize examples and contact

Browse Source
This commit is contained in:
Thel Seraphim 2015-03-14 01:06:59 -07:00
parent 8274656847
commit 05615d20ed
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/pronouns/pages.clj
View File

@ -47,18 +47,24 @@
(defn about-block [] (defn about-block []
[:div {:class "about"} [:div {:class "about"}
[:p "Full usage:"] [:p "Full usage: "
[:p
[:tt "http://pronoun.is/subject-pronoun/object-pronoun/possessive-determiner/possessive-pronoun/reflexive"] [:tt "http://pronoun.is/subject-pronoun/object-pronoun/possessive-determiner/possessive-pronoun/reflexive"]
" displays examples of your pronouns. If we have a good guess we'll let you use just the first one or two."] " displays examples of your pronouns."]
[:p "Quick examples:"] [:p "This is a bit unwieldy. If we have a good guess we'll let you use just the first one or two."]])
[:p "My name is Thel Seraphim, my " [:a {:href "http://pronoun.is/she"} "pronoun.is/she"] "."]
[:p "My name is Morgan, my " [:a {:href "http://pronoun.is/ze/zir"} "pronoun.is/ze/zir"] "."]])
(defn contact-block [] (defn contact-block []
(let [twitter-name (fn [handle] [:a {:href (str "https://www.twitter.com/" handle)} (str "@" handle)])] (let [twitter-name (fn [handle] [:a {:href (str "https://www.twitter.com/" handle)} (str "@" handle)])]
[:div {:class "contact"} [:div {:class "contact"}
[:p "Written by " (twitter-name "morganastra") " and " (twitter-name "thelseraphim") ". " [:p
"Written by "
(twitter-name "morganastra")
", whose "
[:a {:href "http://pronoun.is/ze/zir"} "pronoun.is/ze/zir"]
" and "
(twitter-name "thelseraphim")
", whose "
[:a {:href "http://pronoun.is/she"} "pronoun.is/she"]
". "
"Visit the project on " [:a {:href "https://github.com/witch-house/pronoun.is"} "github!"]]])) "Visit the project on " [:a {:href "https://github.com/witch-house/pronoun.is"} "github!"]]]))