blob: 0ba14304b5a287a25626444d66ccd63ec41a5eeb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
(ns pronouns.pages
(:require [clojure.string :as s]
[pronouns.util :as u]
[hiccup.core :refer :all]))
(defn wrap-pronoun
[pronoun]
[:b pronoun])
(defn render-sentence [& content]
[:p [:span.sentence content]]
)
(defn subject-example
[subject]
(render-sentence (wrap-pronoun (s/capitalize subject)) " went to the park."))
(defn object-example
[object]
(render-sentence "I went with " (wrap-pronoun object) "."))
(defn posessive-determiner-example
[subject possessive-determiner]
(render-sentence (wrap-pronoun (s/capitalize subject)) " brought " (wrap-pronoun possessive-determiner) " frisbee."))
(defn possessive-pronoun-example
[possessive-pronoun]
(render-sentence "At least I think it was " (wrap-pronoun possessive-pronoun) "."))
(defn reflexive-example
[subject 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
[subject object possessive-determiner possessive-pronoun reflexive]
[:div {:class "examples"}
[:p [:h2 "Here are some usage examples for my pronouns:"]]
(subject-example subject)
(object-example object)
(posessive-determiner-example subject possessive-determiner)
(possessive-pronoun-example possessive-pronoun)
(reflexive-example subject reflexive)])
(defn about-block []
[:div {:class "about"}
[:p "Full usage: "
[:tt "http://pronoun.is/subject-pronoun/object-pronoun/possessive-determiner/possessive-pronoun/reflexive"]
" 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."]])
(defn contact-block []
(let [twitter-name (fn [handle] [:a {:href (str "https://www.twitter.com/" handle)} (str "@" handle)])]
[:div {:class "contact"}
[: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!"]]]))
(defn format-pronoun-examples
[subject object possessive-determiner possessive-pronoun reflexive]
(let [title "Pronoun Island: Examples"]
(html
[:html
[:head
[:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body
(title-block title)
(examples-block subject object possessive-determiner possessive-pronoun reflexive)
(about-block)
(contact-block)]])))
(defn parse-pronouns-with-lookup [pronouns-string pronouns-table]
(let [inputs (s/split pronouns-string #"/")
n (count inputs)]
(if (>= n 5)
(take 5 inputs)
(u/table-lookup inputs pronouns-table))))
;; we could choose to display the entire row for the label.
;; currently the first two entries are enough to disambiguate the
;; pronouns -- will that always be true?
(defn make-link [row]
(let [link (str "/" (s/join "/" row))
label (str (first row) "/" (first (rest row)))]
[:li [:a {:href link} label]]))
(defn front [pronouns-table]
(let [links (map make-link (sort pronouns-table))
title "Pronoun Island"]
(html
[:html
[:head
[:title title]
[:link {:rel "stylesheet" :href "/pronouns.css"}]]
[:body
(title-block title)
[:div {:class "table"}
[:p "pronoun.is is a www site for showing people how to use pronouns"]
[:p "here are some pronouns the site knows about:"]
[:ul links]]]
(contact-block)])))
(defn not-found []
(str "We couldn't find those pronouns in our database, please ask us to "
"add them, or issue a pull request at "
"https://github.com/witch-house/pronoun.is/blob/master/resources/pronouns.tab"))
(defn pronouns [path pronouns-table]
(let [pronouns (parse-pronouns-with-lookup path pronouns-table)]
(if pronouns
(apply format-pronoun-examples pronouns)
(not-found))))
|
