gered/toascii
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

only accept lowercase characters in names

Browse source
This commit is contained in:
Gered 2014-04-06 14:40:40 -04:00
parent f0405c574a
commit 4bac1e1761
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/toascii/models/art.clj
View file

@ -9,7 +9,7 @@
(defn valid-name? [name] (defn valid-name? [name]
(if-not (nil? name) (if-not (nil? name)
(re-matches #"[A-Za-z0-9\-]+" name))) (re-matches #"[a-z0-9\-]+" name)))
(defn search [query] (defn search [query]
) )
@ -28,3 +28,9 @@
(throw (new Exception "Invalid name"))) (throw (new Exception "Invalid name")))
(let [prepped-ascii (prep-ascii-art s)] (let [prepped-ascii (prep-ascii-art s)]
(db/add-ascii-art name prepped-ascii ip))) (db/add-ascii-art name prepped-ascii ip)))
(add
"heLllo"
" _ _ _ \n | |__ ___ | | | | ___ \n | '_ \\ / _ \\ | | | | / _ \\ \n | | | | | __/ | | | | | (_) |\n |_| |_| \\___| |_| |_| \\___/ \n "
"127.0.0.1")