zo/pronoun.fyi
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rearrange p tags to get examples to show up in site preview per #56

Browse Source
This commit is contained in:
Morgan Astra 2016-09-21 16:25:33 -07:00
parent 65866ca391
commit 4fc7685f16
1 changed files with 18 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/pronouns/pages.clj
View File

@ -69,38 +69,33 @@
sub-obj sub-obj
" pronouns")] " pronouns")]
[:div {:class "section examples"} [:div {:class "section examples"}
[:p [:h2 header-str]] [:h2 header-str]
(subject-example subject) [:p (subject-example subject)
(object-example object) (object-example object)
(posessive-determiner-example subject possessive-determiner) (posessive-determiner-example subject possessive-determiner)
(possessive-pronoun-example possessive-pronoun) (possessive-pronoun-example possessive-pronoun)
(reflexive-example subject reflexive)])) (reflexive-example subject reflexive)]]))
(defn about-block [] (defn about-block []
[:div {:class "section about"} [:div {:class "section about"}
[:p "Full usage: " [:p "Full usage: "
[: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."] " displays examples of your pronouns."]
[:p "This is a bit unwieldy. If we have a good guess we'll let you use just the first one or two."]]) [:p "This is a bit unwieldy. If we have a good guess we'll let you use just the first one or two."]])
(defn contact-block [] (defn contact-block []
(let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle) (let [twitter-name (fn [handle] (href (str "https://www.twitter.com/" handle)
(str "@" handle)))] (str "@" handle)))]
[:div {:class "section contact"} [:footer {:class "section contact"}
[:p [:p "Written by "
"Written by " (twitter-name "morganastra")
(twitter-name "morganastra") ", whose "
", whose " (href "http://pronoun.is/ze/zir?or=she" "pronoun.is/ze/zir?or=she")]
(href "http://pronoun.is/ze/zir?or=she" "pronoun.is/ze/zir?or=she") [:p "pronoun.is is free software under the "
[:br] (href "https://www.gnu.org/licenses/agpl.html" "AGPLv3")
[:br] "! visit the project on "
"pronoun.is is free software under the " (href "https://github.com/witch-house/pronoun.is" "github")]
(href "https://www.gnu.org/licenses/agpl.html" "AGPLv3") [:p "<3"]]))
"! visit the project on "
(href "https://github.com/witch-house/pronoun.is" "github")
[:br]
[:br]
"<3"]]))
(defn format-pronoun-examples (defn format-pronoun-examples