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

Reorder the fields in the article info panel. Just aesthetics.

Browse Source
This commit is contained in:
Robert C. Martin 2022-05-26 14:01:49 -05:00
parent df6a537672
commit e9667938ff
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,7 +13,8 @@
(declare id-click)
(defn make-article-info-panel []
(let [author-id-label (label :id :author-id-label)
(let [author-name-label (label :id :author-name-label)
author-id-label (text :id :author-id-label :editable? false :font config/small-font)
created-time-label (label :id :created-time-label)
reply-to-label (label :id :reply-to-label)
id-label (text :id :id-label :editable? false :font config/small-font)
@ -32,14 +33,15 @@
(listen root-label :mouse-pressed id-click)
(grid-panel
:rows 3 :columns 3
:items [(flow-panel :align :left :items [(label "author:") author-id-label])
:items [(flow-panel :align :left :items [(label "author:") author-name-label])
(flow-panel :align :left :items [(label "Subject:") subject-label])
(flow-panel :align :left :items [(label "pubkey:") author-id-label])
(flow-panel :align :left :items [(label "created at:") created-time-label])
(flow-panel :align :left :items [(label "reply to:") reply-to-label])
(flow-panel :align :left :items [(label "relays:") relays-label])
(flow-panel :align :left :items [(label "id:") id-label])
(flow-panel :align :left :items [(label "citing:") citing-label])
(flow-panel :align :left :items [(label "root:") root-label])
(flow-panel :align :left :items [(label "Subject:") subject-label])
(flow-panel :align :left :items [(label "relays:") relays-label])
])))
(defn make-article-area []
@ -80,8 +82,10 @@
(swing-util/clear-popup relays-popup)
(config! relays-popup :items (:relays event))
(text! article-area (formatters/reformat-article (:content event) 80))
(text! (select main-frame [:#author-id-label])
(text! (select main-frame [:#author-name-label])
(format-user (:pubkey event)))
(text! (select main-frame [:#author-id-label])
(util/num32->hex-string (:pubkey event)))
(text! (select main-frame [:#created-time-label])
(formatters/format-time (:created-at event)))
(config! (select main-frame [:#id-label])