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

Merge pull request #15 from witch-house/master

Browse Source 
Master
This commit is contained in:
thelseraphim 2015-03-14 01:54:26 -07:00
commit 398d0e1958
2 changed files with 34 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
resources/pronouns.css
View File

@ -11,6 +11,13 @@ body {
border:4px solid #eeeeee; border:4px solid #eeeeee;
} }
.title {
font: large;
margin: 8px;
padding: 4px 6px 4px 6px;
border:4px solid #eeeeee;
}
.about { .about {
font: large; font: large;
margin: 8px; margin: 8px;

40
src/pronouns/pages.clj
View File

@ -31,10 +31,14 @@
[subject reflexive] [subject reflexive]
(render-sentence (wrap-pronoun (s/capitalize subject)) " threw the frisbee to " (wrap-pronoun reflexive) ".")) (render-sentence (wrap-pronoun (s/capitalize subject)) " threw the frisbee to " (wrap-pronoun reflexive) "."))
(defn title-block [title]
[:div {:class "title"}
[:h1 title]])
(defn examples-block (defn examples-block
[subject object possessive-determiner possessive-pronoun reflexive] [subject object possessive-determiner possessive-pronoun reflexive]
[:div {:class "examples"} [:div {:class "examples"}
[:p [:h1 "Here are some usage examples for my pronouns:"]] [:p [:h2 "Here are some usage examples for my pronouns:"]]
(subject-example subject) (subject-example subject)
(object-example object) (object-example object)
(posessive-determiner-example subject possessive-determiner) (posessive-determiner-example subject possessive-determiner)
@ -43,32 +47,40 @@
(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!"]]]))
(defn format-pronoun-examples (defn format-pronoun-examples
[subject object possessive-determiner possessive-pronoun reflexive] [subject object possessive-determiner possessive-pronoun reflexive]
(let [title "Pronoun Island: English Language Examples"]
(html (html
[:html [:html
[:head [:head
[:title "Pronoun Island: Examples"] [:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]] [:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body [:body
(title-block title)
(examples-block subject object possessive-determiner possessive-pronoun reflexive) (examples-block subject object possessive-determiner possessive-pronoun reflexive)
(about-block) (about-block)
(contact-block)]])) (contact-block)]])))
(defn parse-pronouns-with-lookup [pronouns-string pronouns-table] (defn parse-pronouns-with-lookup [pronouns-string pronouns-table]
@ -87,15 +99,17 @@
[:li [:a {:href link} label]])) [:li [:a {:href link} label]]))
(defn front [pronouns-table] (defn front [pronouns-table]
(let [links (map make-link (sort pronouns-table))] (let [links (map make-link (sort pronouns-table))
title "Pronoun Island"]
(html (html
[:html [:html
[:head [:head
[:title "Pronoun Island"] [:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]] [:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body [:body
(title-block title)
[:div {:class "table"} [:div {:class "table"}
[:p "pronoun.is is a www site for showing people how to use pronouns"] [:p "pronoun.is is a www site for showing people how to use pronouns in English."]
[:p "here are some pronouns the site knows about:"] [:p "here are some pronouns the site knows about:"]
[:ul links]]] [:ul links]]]
(contact-block)]))) (contact-block)])))