luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Notes app improvement

Browse source
This commit is contained in:
Michiel Borkent 2020-03-28 15:47:28 +01:00
parent 6ab803f10c
commit 5f6b26e7f3
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
examples/notes.clj
View file

@ -41,14 +41,15 @@
(str
"<!DOCTYPE html>\n"
(html
(list [:head
[:title "Notes"]]
[:body
[:h1 "Notes"]
[:pre (slurp notes-file)]]
[:form {:action "/" :method "post"}
[:input {:type "text" :name "note"}]
[:input {:type "submit" :value "Submit"}]]))))
[:html
[:head
[:title "Notes"]]
[:body
[:h1 "Notes"]
[:pre (slurp notes-file)]
[:form {:action "/" :method "post"}
[:input {:type "text" :name "note"}]
[:input {:type "submit" :value "Submit"}]]]])))
;; run the server
(with-open [server-socket (let [s (new ServerSocket 8080)]