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

notes example

Browse source
This commit is contained in:
Michiel Borkent 2020-03-29 14:46:43 +02:00
parent 7837700452
commit 3fd6dbd1f5
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
examples/notes.clj
View file

@ -12,8 +12,6 @@
(def notes-file (io/file (System/getProperty "user.home") ".notes" "notes.txt")) (def notes-file (io/file (System/getProperty "user.home") ".notes" "notes.txt"))
(io/make-parents notes-file) (io/make-parents notes-file)
;; ensure file exists
(.createNewFile notes-file)
(def file-lock (Object.)) (def file-lock (Object.))
(defn write-note! [note] (defn write-note! [note]
@ -62,7 +60,8 @@
[:title "Notes"]] [:title "Notes"]]
[:body [:body
[:h1 "Notes"] [:h1 "Notes"]
[:pre (slurp notes-file)] [:pre (when (.exists notes-file)
(slurp notes-file))]
[:form {:action "/" :method "post"} [:form {:action "/" :method "post"}
[:input {:type "text" :name "note"}] [:input {:type "text" :name "note"}]
[:input {:type "submit" :value "Submit"}]]]]))] [:input {:type "submit" :value "Submit"}]]]]))]