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

notes example: don't open browser

Browse source
This commit is contained in:
Michiel Borkent 2020-03-29 13:51:45 +02:00
parent af8c786c31
commit 313971d0d7
1 changed files with 1 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
examples/notes.clj
View file

@ -2,7 +2,6 @@
(import (java.net ServerSocket)) (import (java.net ServerSocket))
(require '[clojure.java.io :as io] (require '[clojure.java.io :as io]
'[clojure.java.shell :refer [sh]]
'[clojure.string :as str]) '[clojure.string :as str])
(def debug? true) (def debug? true)
@ -17,12 +16,6 @@
;; ensure notes file exists ;; ensure notes file exists
(spit notes-file "" :append true) (spit notes-file "" :append true)
;; we wait for the server to accept connections and then open a browser
(def accepting (promise))
(future
@accepting
(sh "open" "http://localhost:8080"))
;; hiccup-like ;; hiccup-like
(defn html [v] (defn html [v]
(cond (vector? v) (cond (vector? v)
@ -107,7 +100,7 @@
;; run the server ;; run the server
(with-open [server-socket (let [s (new ServerSocket 8080)] (with-open [server-socket (let [s (new ServerSocket 8080)]
(deliver accepting true) (println "Server started on port 8080.")
s) s)
client-socket (.accept server-socket)] client-socket (.accept server-socket)]
(loop [] (loop []