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

remove superfluous println calls

Browse Source
This commit is contained in:
Morgan Astra 2016-09-20 16:02:48 -07:00
parent 06f82d6837
commit 364552f49a
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/pronouns/pages.clj
View File

@ -92,12 +92,15 @@
(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")
". " [:br]
[:br]
"pronoun.is is free software under the " "pronoun.is is free software under the "
(href "https://www.gnu.org/licenses/agpl.html" "AGPLv3") (href "https://www.gnu.org/licenses/agpl.html" "AGPLv3")
", visit the project on " "! visit the project on "
(href "https://github.com/witch-house/pronoun.is" "github") (href "https://github.com/witch-house/pronoun.is" "github")
","]])) [:br]
[:br]
"<3"]]))
(defn format-pronoun-examples (defn format-pronoun-examples
@ -118,7 +121,6 @@
(defn lookup-pronouns [pronouns-string] (defn lookup-pronouns [pronouns-string]
(let [inputs (s/split pronouns-string #"/") (let [inputs (s/split pronouns-string #"/")
n (count inputs)] n (count inputs)]
(println *pronouns-table*)
(if (>= n 5) (if (>= n 5)
(take 5 inputs) (take 5 inputs)
(u/table-lookup inputs *pronouns-table*)))) (u/table-lookup inputs *pronouns-table*))))

1
src/pronouns/web.clj
View File

@ -52,7 +52,6 @@
(try (handler req) (try (handler req)
(catch Exception e (catch Exception e
(binding [*out* *err*] (binding [*out* *err*]
(println e)
{:status 500 {:status 500
:headers {"Content-Type" "text/html"} :headers {"Content-Type" "text/html"}
:body (slurp (io/resource "500.html"))}))))) :body (slurp (io/resource "500.html"))})))))