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

Remove :text-event-map from article-panel

Browse Source
This commit is contained in:
Robert C. Martin 2023-01-26 10:08:55 -06:00
parent 93d01cbdee
commit cbb4529d95
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/more_speech/ui/swing/article_panel.clj
View File

@ -7,7 +7,9 @@
[more-speech.ui.swing.article-tree-util :as article-tree-util] [more-speech.ui.swing.article-tree-util :as article-tree-util]
[more-speech.ui.swing.edit-window :as edit-window] [more-speech.ui.swing.edit-window :as edit-window]
[more-speech.ui.swing.ui-context :refer :all] [more-speech.ui.swing.ui-context :refer :all]
[more-speech.ui.swing.util :as swing-util :refer [copy-to-clipboard]]) [more-speech.ui.swing.util :as swing-util :refer [copy-to-clipboard]]
[more-speech.db.gateway :as gateway]
[more-speech.config :refer [get-db]])
(:use [seesaw core border])) (:use [seesaw core border]))
(defn bold-label [s] (defn bold-label [s]
@ -99,8 +101,7 @@
(defn load-article-info [selected-id] (defn load-article-info [selected-id]
(let [main-frame (:frame @ui-context) (let [main-frame (:frame @ui-context)
text-map (get-event-state :text-event-map) event (gateway/get-event (get-db) selected-id)
event (get text-map selected-id)
[root-id _ referent] (events/get-references event) [root-id _ referent] (events/get-references event)
reply-to (select main-frame [:#reply-to-label]) reply-to (select main-frame [:#reply-to-label])
citing (select main-frame [:#citing-label]) citing (select main-frame [:#citing-label])
@ -123,7 +124,7 @@
:user-data (:id event) :user-data (:id event)
:text (util/num32->hex-string (:id event))) :text (util/num32->hex-string (:id event)))
(if (some? referent) (if (some? referent)
(let [replied-event (get text-map referent)] (let [replied-event (gateway/get-event (get-db) referent)]
(text! reply-to (formatters/format-user-id (:pubkey replied-event) 50)) (text! reply-to (formatters/format-user-id (:pubkey replied-event) 50))
(config! citing (config! citing
:user-data referent :user-data referent