use correct string concatenation method

This commit is contained in:
Aidan Hahn 2019-07-16 20:10:10 -07:00
parent 1360406d5a
commit a5c8be2651
No known key found for this signature in database
GPG key ID: 327711E983899316
4 changed files with 6 additions and 7 deletions

View file

@ -1 +0,0 @@
ink@Magellan.6427:1563239860

View file

@ -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"))

View file

@ -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)))

View file

@ -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)