From 5ee857b1fe3827c9af12d475fbebe42d4a26a026 Mon Sep 17 00:00:00 2001
From: "Robert C. Martin" <unclebob@cleancoder.com>
Date: Thu, 25 May 2023 15:05:25 -0500
Subject: [PATCH] Fix a few random bugs.

---
 src/more_speech/ui/formatters.clj          | 2 +-
 src/more_speech/ui/swing/article_panel.clj | 6 +++---
 src/more_speech/ui/swing/main_window.clj   | 3 ++-
 src/more_speech/ui/swing/tabs.clj          | 3 ++-
 4 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/src/more_speech/ui/formatters.clj b/src/more_speech/ui/formatters.clj
index 5cea8b3..26a1b63 100644
--- a/src/more_speech/ui/formatters.clj
+++ b/src/more_speech/ui/formatters.clj
@@ -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 " ")
diff --git a/src/more_speech/ui/swing/article_panel.clj b/src/more_speech/ui/swing/article_panel.clj
index b83d0ed..0483514 100644
--- a/src/more_speech/ui/swing/article_panel.clj
+++ b/src/more_speech/ui/swing/article_panel.clj
@@ -109,9 +109,9 @@
                                           (fn [_e]
                                             (trust id)
                                             (dispose! profile-frame)
-                                            (future (show-user-profile id))))
-            (pack! profile-frame)
-            (show! profile-frame))))
+                                            (future (show-user-profile id)))))
+    (pack! profile-frame)
+    (show! profile-frame)))
 
 (defn show-user-profile [id]
   (when-let [profile (gateway/get-profile (get-db) id)]
diff --git a/src/more_speech/ui/swing/main_window.clj b/src/more_speech/ui/swing/main_window.clj
index c0dbcd9..39b7120 100644
--- a/src/more_speech/ui/swing/main_window.clj
+++ b/src/more_speech/ui/swing/main_window.clj
@@ -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")
diff --git a/src/more_speech/ui/swing/tabs.clj b/src/more_speech/ui/swing/tabs.clj
index 7e504d8..1f0074a 100644
--- a/src/more_speech/ui/swing/tabs.clj
+++ b/src/more_speech/ui/swing/tabs.clj
@@ -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]