From 5f6b26e7f31abe3c92eb3d6b306d9861adbfd389 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sat, 28 Mar 2020 15:47:28 +0100 Subject: [PATCH] Notes app improvement --- examples/notes.clj | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/examples/notes.clj b/examples/notes.clj index 977f8e30..6634ce37 100755 --- a/examples/notes.clj +++ b/examples/notes.clj @@ -41,14 +41,15 @@ (str "\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)]