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

::back-count. clojure-spec cleanup complete.

Browse Source
This commit is contained in:
Robert C. Martin 2023-06-24 08:48:04 -05:00
parent c9cf43a32e
commit d1d24f8c8e
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/more_speech/mem.clj
View File

@ -40,7 +40,6 @@
(s/def ::frame #(instance? JFrame %)) ;The main frame
(s/def ::selected-event ::id) ;The id of the currently selected event
(s/def ::selected-tab ::tab-index) ;index of the selected tab within :tabs-list
(s/def ::back-count int?)
(s/def ::send-chan #(= clojure.core.async.impl.channels.ManyToManyChannel (type %)))
;map, by id, of all displayed nodes in the tabs.
@ -49,9 +48,6 @@
;map, by id -- so far unseen -- holding a collection of all known events that reference that id -- i.e. the orphans.
(s/def ::orphaned-replies (s/map-of ::id (s/coll-of ::id)))
;list, in order, of the last selected events. Holds the tab index and the id
(s/def ::event-history (s/coll-of (s/tuple ::tab-index ::id) :kind vector?))
(s/def ::article-window-event-id ::id) ;id of article in the article window.
(s/def ::refresh-main-window boolean?) ;when true, main window refreshes once.
(s/def ::relay-manager-frame #(instance? JFrame %)) ;the frame if the relay manager is up.
@ -63,6 +59,15 @@
(s/def ::article-panel (s/keys :req-un [::event-type/event]))
;list, in order, of the last selected events. Holds the tab index and the id
(s/def ::event-history (s/coll-of (s/tuple ::tab-index ::id) :kind vector?))
;used for managing the back and forward buttons.
;back-count is the number of steps backwards we are in the event-history.
;backing-up is true if the last event selection was because of going back or forward.
(s/def ::back-count int?)
(s/def ::backing-up boolean?)
(s/def ::mem (s/keys :req-un [::relay-type/relays
::pubkey
::keys]
@ -79,7 +84,6 @@
::event-history
::event-counter-type/event-counter
::user-configuration-type/user-configuration
::back-count
::send-chan
::article-window-event-id
::refresh-main-window
@ -88,7 +92,7 @@
::article-panel
::tabs-window-type/tabs-window
::user-window-type/user-window
::back-count
::backing-up]))
(def memory (atom nil))