mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 02:21:02 +00:00
Fix a few random bugs.
This commit is contained in:
parent
a74aa922c4
commit
5ee857b1fe
@ -82,7 +82,7 @@
|
||||
:else npub))
|
||||
(catch Exception e
|
||||
(log-pr 2 'get-author-name (.getMessage e))
|
||||
npub)))
|
||||
(str "<" npub "invalid>"))))
|
||||
|
||||
(defn replace-nostr-references [s]
|
||||
(let [padded-content (str " " s " ")
|
||||
|
@ -109,9 +109,9 @@
|
||||
(fn [_e]
|
||||
(trust id)
|
||||
(dispose! profile-frame)
|
||||
(future (show-user-profile id))))
|
||||
(future (show-user-profile id)))))
|
||||
(pack! profile-frame)
|
||||
(show! profile-frame))))
|
||||
(show! profile-frame)))
|
||||
|
||||
(defn show-user-profile [id]
|
||||
(when-let [profile (gateway/get-profile (get-db) id)]
|
||||
|
@ -81,7 +81,8 @@
|
||||
(defn repaint-main-window []
|
||||
(let [frame (get-mem :frame)]
|
||||
(when (some? frame)
|
||||
(.repaint frame))))
|
||||
(invoke-later (repaint! frame)))
|
||||
))
|
||||
|
||||
(defn setup-main-timer []
|
||||
(let [main-timer (Timer. "main timer")
|
||||
|
@ -84,7 +84,7 @@
|
||||
tab-label (label :text tab-name)
|
||||
_ (listen tab-label :mouse-pressed tab-menu)
|
||||
header-tree (make-header-tree tab-name)
|
||||
scrollable-header-tree (scrollable header-tree)
|
||||
scrollable-header-tree (scrollable header-tree :hscroll :never)
|
||||
search-bar (make-search-bar tab-name)
|
||||
tab-window (top-bottom-split search-bar scrollable-header-tree)
|
||||
]
|
||||
@ -155,6 +155,7 @@
|
||||
child (DefaultMutableTreeNode. event-id)]
|
||||
(.insertNodeInto model child root insertion-point)
|
||||
(.makeVisible tree (TreePath. (.getPath child)))
|
||||
;(.scrollPathToVisible tree (.getSelectionPath tree))
|
||||
(update-mem [:node-map event-id] conj child)))
|
||||
|
||||
(defn add-event-to-tab [tab event]
|
||||
|
Loading…
Reference in New Issue
Block a user