use correct string concatenation method
This commit is contained in:
parent
1360406d5a
commit
a5c8be2651
4 changed files with 6 additions and 7 deletions
|
|
@ -1 +0,0 @@
|
|||
ink@Magellan.6427:1563239860
|
||||
|
|
@ -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"))
|
||||
|
|
|
|||
|
|
@ -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)))
|
||||
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue