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

Prevent bad url from crashing when clicked.

Browse Source
This commit is contained in:
Robert C. Martin 2022-08-21 13:11:36 -05:00
parent b37bf2c519
commit 4d4b9cf487
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/more_speech/config.clj
View File

@ -10,7 +10,7 @@
(def read-contact-lists-days-ago 7)
(def migration-level 9)
(def version "202208171549")
(def version "202208211311")
(def test-run? false)
;---configuration files

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

@ -29,7 +29,12 @@
(defn open-link [e]
(when (= HyperlinkEvent$EventType/ACTIVATED (.getEventType e))
(browse/browse-url (str (.getURL e)))))
(when-let [url (str (.getURL e))]
(try
(browse/browse-url url)
(catch Exception ex
(prn 'open-link url (.getMessage ex))
(prn ex))))))
(defn make-main-window []
(let [event-context @(:event-context @ui-context)