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

Added tabbed panel for different article trees based upon search criteria.

Browse Source
This commit is contained in:
Robert C. Martin 2022-05-23 10:40:57 -05:00
parent 3d47f54b10
commit 7878c578ce
2 changed files with 227 additions and 222 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/more_speech/nostr/events.clj
View File

@ -34,10 +34,13 @@
process-name-event)
(defn make-event-agent [event-agent-map]
(agent (merge event-agent-map
{:chronological-text-events []
(agent (merge {:chronological-text-events []
:text-event-map {}
})))
:nicknames {}
:keys {}
:read-event-ids #{}
}
event-agent-map)))
(defn add-read-event [event-state id]
(update event-state :read-event-ids conj id))

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

@ -27,9 +27,11 @@
(let [main-frame (frame :title "More Speech" :size [1000 :by 1000])
article-area (article-panel/make-article-area)
header-tree (article-tree/make-article-tree event-agent main-frame)
header-tab-panel (tabbed-panel :tabs [{:title "All"
:content (scrollable header-tree)}])
relay-panel (relay-panel/make-relay-panel)
header-panel (left-right-split (scrollable relay-panel)
(scrollable header-tree))
header-tab-panel)
article-panel (border-panel :north (article-panel/make-article-info-panel)
:center (scrollable article-area)
:south (article-panel/make-control-panel event-agent header-tree))