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