nostr/more-speech
1
0
Fork 0
mirror of https://github.com/unclebob/more-speech.git synced 2024-09-30 10:30:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use tree for header window. Render tree elements, and thread the articles. Pretty easy.

Browse Source
This commit is contained in:
Robert C. Martin 2022-04-28 12:46:01 -05:00
parent 855a2461ac
commit 36e2b00852
2 changed files with 57 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/more_speech/nostr/protocol.clj
View File

@ -98,7 +98,7 @@
(defn get-events [event-agent send-chan]
(let [conn (connect-to-relay (get relays 0) event-agent)
id "more-speech"
date (make-date "04/25/2022")
date (make-date "04/1/2022")
]
(prn date (format-time date))
(unsubscribe conn id)

84
src/more_speech/ui/swing/main_window.clj
View File

@ -4,50 +4,78 @@
[more-speech.ui.formatters :as formatters]
[more-speech.nostr.events :as events]
[clojure.string :as string])
(:use [seesaw core font])
(:use [seesaw core font tree])
(:import (javax.swing SwingUtilities Timer)))
(declare display-jframe action-event draw-events)
(declare display-jframe action-event draw-events load-header-tree render-event)
(defn setup-jframe [event-agent output-channel]
(SwingUtilities/invokeLater #(display-jframe event-agent output-channel)))
(defn display-jframe [event-agent output-channel]
(let [frame (frame :title "More Speech" :size [1000 :by 1000])
text-area (text :multi-line? true :font "MONOSPACED-PLAIN-14")
header-tree (tree :renderer (partial render-event event-agent))
timer (Timer. 100 nil)]
(listen frame :window-closing (fn [_]
(.stop timer)
(async/>!! output-channel [:closed])
(.dispose frame)))
(listen timer :action (fn [_] (draw-events text-area event-agent)))
(config! frame :content (scrollable text-area))
(listen timer :action
(fn [_] (when (:update @event-agent)
(config! header-tree
:model (load-header-tree @event-agent))
(send event-agent events/updated))))
(config! frame :content (scrollable header-tree))
(show! frame)
(.start timer)))
(declare format-events append-event format-event)
(declare has-children? get-children)
(defn draw-events [text-area event-agent]
(prn "tick")
(when (:update @event-agent)
(defn load-header-tree [event-state]
(simple-tree-model
(partial has-children? event-state)
(partial get-children event-state)
(map first (:chronological-text-events event-state))
)
)
(defn has-children? [event-state node]
(if (seqable? node)
true
(let [event-id node
event (get (:text-event-map event-state) event-id)
references (:references event)
ref-count (count references)]
(pos-int? ref-count))))
(defn get-children [event-state node]
(if (seqable? node)
node
(let [event-id node
event-map (:text-event-map event-state)
event (get event-map event-id)
references (:references event)]
(sort-by #(:created-at (get event-map %)) references))))
(defn format-event [nicknames {:keys [pubkey created-at content] :as event}]
(if (nil? event)
"nil"
(let [name (get nicknames pubkey (util/num->hex-string pubkey))
name (formatters/abbreviate name 20)
time (formatters/format-time created-at)
content (string/replace content \newline \~)
content (formatters/abbreviate content 50)]
(format "%20s %s %s\n" name time content))))
(defn render-event [event-agent widget info]
(config! widget :font "COURIER-PLAIN-14")
(if (seqable? (:value info))
(text! widget "Articles")
(let [event-state @event-agent
formatted-events (format-events event-state)]
(text! text-area formatted-events)
(send event-agent events/updated))))
(defn format-events [{:keys [chronological-text-events nicknames text-event-map]}]
(let [header-ids (map first chronological-text-events)
headers (map #(get text-event-map %) header-ids)]
(reduce #(append-event nicknames %1 %2) "" headers)))
(defn append-event [nicknames formatted-events event]
(str formatted-events (format-event nicknames event)))
(defn format-event [nicknames {:keys [pubkey created-at content]}]
(let [name (get nicknames pubkey (util/num->hex-string pubkey))
name (formatters/abbreviate name 20)
time (formatters/format-time created-at)
content (string/replace content \newline \~)
content (formatters/abbreviate content 50)]
(format "%20s %s %s\n" name time content)))
nicknames (:nicknames event-state)
event-map (:text-event-map event-state)
event-id (:value info)
event (get event-map event-id)]
(text! widget (format-event nicknames event)))
))