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

🏗️ update project name

Browse Source
This commit is contained in:
DrMaxNix 2024-05-03 11:40:30 +02:00
parent fd81d145da
commit 610bba0ff9
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/pronouns/pages.clj
View File

@ -120,7 +120,7 @@
(defn format-pronoun-examples (defn format-pronoun-examples
[pronoun-declensions] [pronoun-declensions]
(let [sub-objs (map #(s/join "/" (take 2 %)) pronoun-declensions) (let [sub-objs (map #(s/join "/" (take 2 %)) pronoun-declensions)
title (str "Pronoun Island: " (prose-comma-list sub-objs) " examples") title (str "Pronoun LOL: " (prose-comma-list sub-objs) " examples")
examples (map #(apply examples-block %) pronoun-declensions)] examples (map #(apply examples-block %) pronoun-declensions)]
(html (html
[:html [:html
@ -160,7 +160,7 @@
(defn front [] (defn front []
(let [abbreviations (take 6 (u/abbreviate @pronouns-table)) (let [abbreviations (take 6 (u/abbreviate @pronouns-table))
links (map make-link abbreviations) links (map make-link abbreviations)
title "Pronoun Island" title "Pronoun LOL"
description "Pronoun.lol is a website for personal pronoun usage examples."] description "Pronoun.lol is a website for personal pronoun usage examples."]
(html (html
[:html [:html
@ -185,7 +185,7 @@
(defn all-pronouns [] (defn all-pronouns []
(let [abbreviations (u/abbreviate @pronouns-table) (let [abbreviations (u/abbreviate @pronouns-table)
links (map make-link abbreviations) links (map make-link abbreviations)
title "Pronoun Island"] title "Pronoun LOL"]
(html (html
[:html [:html
[:head [:head
@ -201,7 +201,7 @@
(footer-block)]))) (footer-block)])))
(defn not-found [path] (defn not-found [path]
(let [title "Pronoun Island: English Language Examples" (let [title "Pronoun LOL: English Language Examples"
or-re #"/[oO][rR]/"] or-re #"/[oO][rR]/"]
(html (html
[:html [:html