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 (defn main-loop
"updates UI with data from Signald" "updates UI with data from Signald"
[content] [content]
(update mainWindow content) (update-window mainWindow content)
(recur (get-next-update))) (recur (str (get-next-update))))
(defn -main (defn -main
"packs and shows main window with signald version string" "packs and shows main window with signald version string"
[& args] [& args]
()) (main-loop "whisper is online"))

View file

@ -15,5 +15,5 @@
(defn get-next-update (defn get-next-update
"Retrieves and parses next line of incoming data from signald" "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)) :height 40))
;; UI Functions ;; UI Functions
(defn update (defn update-window
"Updates WINDOW to display additional content: CONTENT" "Updates WINDOW to display additional content: CONTENT"
[window content] [window content]
(config! window :content (config! window :content
(concat (:content window) content)) (str (:content window) content "\n"))
window) window)