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
|
(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"))
|
||||||
|
|
|
||||||
|
|
@ -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)))
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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)
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue