diff --git a/.#README.md b/.#README.md deleted file mode 120000 index 192ca7b..0000000 --- a/.#README.md +++ /dev/null @@ -1 +0,0 @@ -ink@Magellan.6427:1563239860 \ No newline at end of file diff --git a/src/whisper/core.clj b/src/whisper/core.clj index bc2815b..5fb48fb 100644 --- a/src/whisper/core.clj +++ b/src/whisper/core.clj @@ -6,10 +6,10 @@ (defn main-loop "updates UI with data from Signald" [content] - (update mainWindow content) - (recur (get-next-update))) + (update-window mainWindow content) + (recur (str (get-next-update)))) (defn -main "packs and shows main window with signald version string" [& args] - ()) + (main-loop "whisper is online")) diff --git a/src/whisper/signald.clj b/src/whisper/signald.clj index 90b91c3..48fc625 100644 --- a/src/whisper/signald.clj +++ b/src/whisper/signald.clj @@ -15,5 +15,5 @@ (defn get-next-update "Retrieves and parses next line of incoming data from signald" [] - (:data (json/read-str (.sigdRead readLine) :key-fn keyword))) + (map :data (json/read-str (. sigdRead readLine) :key-fn keyword))) diff --git a/src/whisper/ui.clj b/src/whisper/ui.clj index 8e90808..ff4bfe6 100644 --- a/src/whisper/ui.clj +++ b/src/whisper/ui.clj @@ -10,9 +10,9 @@ :height 40)) ;; UI Functions -(defn update +(defn update-window "Updates WINDOW to display additional content: CONTENT" [window content] (config! window :content - (concat (:content window) content)) + (str (:content window) content "\n")) window)