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

Add user menus to reply-to field.

Browse Source
This commit is contained in:
Robert C. Martin 2023-03-22 09:33:39 -05:00
parent 36fe1992aa
commit b13fb0461f
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@
(when-let [profile (gateway/get-profile (get-db) id)] (when-let [profile (gateway/get-profile (get-db) id)]
(show-profile profile))) (show-profile profile)))
(defn author-name-click [e] (defn user-name-click [e]
(let [x (.x (.getPoint e)) (let [x (.x (.getPoint e))
y (.y (.getPoint e)) y (.y (.getPoint e))
node (.getComponent e) node (.getComponent e)
@ -115,7 +115,8 @@
(listen id-label :mouse-pressed copy-click) (listen id-label :mouse-pressed copy-click)
(listen up-arrow :mouse-pressed up-click) (listen up-arrow :mouse-pressed up-click)
(listen dn-arrow :mouse-pressed dn-click) (listen dn-arrow :mouse-pressed dn-click)
(listen author-name-label :mouse-pressed author-name-click) (listen author-name-label :mouse-pressed user-name-click)
(listen reply-to-label :mouse-pressed user-name-click)
(let [grid (let [grid
(grid-panel (grid-panel
:columns 3 :columns 3
@ -225,8 +226,11 @@
:user-data (:id event) :user-data (:id event)
:text (f-util/abbreviate (util/num32->hex-string (:id event)) 20)) :text (f-util/abbreviate (util/num32->hex-string (:id event)) 20))
(if (some? referent) (if (some? referent)
(let [replied-event (gateway/get-event (get-db) referent)] (let [replied-event (gateway/get-event (get-db) referent)
(text! reply-to (formatters/format-user-id (:pubkey replied-event) 50)) reply-to-id (:pubkey replied-event)]
(config! reply-to
:user-data reply-to-id
:text (formatters/format-user-id reply-to-id 50))
(config! citing (config! citing
:user-data referent :user-data referent
:text (f-util/abbreviate (util/num32->hex-string referent) 20) :text (f-util/abbreviate (util/num32->hex-string referent) 20)