mirror of
https://github.com/unclebob/more-speech.git
synced 2024-09-30 10:30:56 +00:00
Fix little bug in regex filters.
This commit is contained in:
parent
2a335bf667
commit
12f861d64e
@ -47,7 +47,7 @@
|
|||||||
node (.getComponent e)
|
node (.getComponent e)
|
||||||
id (config node :user-data)
|
id (config node :user-data)
|
||||||
hex-id (util/hexify id)
|
hex-id (util/hexify id)
|
||||||
note-id (bech32/encode "note" id)
|
note-id (str "nostr:" (bech32/encode "note" id))
|
||||||
p (popup :items [(action :name (str "Copy " (subs hex-id 0 10) "...")
|
p (popup :items [(action :name (str "Copy " (subs hex-id 0 10) "...")
|
||||||
:handler (partial copy-to-clipboard hex-id))
|
:handler (partial copy-to-clipboard hex-id))
|
||||||
(action :name (str "Copy " (subs note-id 0 10) "...")
|
(action :name (str "Copy " (subs note-id 0 10) "...")
|
||||||
|
@ -134,8 +134,8 @@
|
|||||||
ptags (filter #(= :p (first %)) tags)
|
ptags (filter #(= :p (first %)) tags)
|
||||||
ptags (filter valid-ptag? ptags)
|
ptags (filter valid-ptag? ptags)
|
||||||
pubkey-citings (map #(util/hex-string->num (second %)) ptags)
|
pubkey-citings (map #(util/hex-string->num (second %)) ptags)
|
||||||
content (:content event)
|
content (or (:content event) "")
|
||||||
subject (ffirst (events/get-tag event :subject))]
|
subject (or (ffirst (events/get-tag event :subject)) "")]
|
||||||
(and
|
(and
|
||||||
(or
|
(or
|
||||||
(empty? (:selected filters))
|
(empty? (:selected filters))
|
||||||
|
@ -99,8 +99,7 @@
|
|||||||
(update-mem [:tabs-window tab-name :selected] conj regex)
|
(update-mem [:tabs-window tab-name :selected] conj regex)
|
||||||
(config! (get-mem [:tabs-window tab-name :selected-listbox])
|
(config! (get-mem [:tabs-window tab-name :selected-listbox])
|
||||||
:model (get-mem [:tabs-window tab-name :selected]))
|
:model (get-mem [:tabs-window tab-name :selected]))
|
||||||
(swing-util/add-filter-to-tab tab-name :selected regex)
|
(swing-util/add-filter-to-tab tab-name :selected regex)))
|
||||||
(prn 'regex-field-key 'add-regex tab-name regex)))
|
|
||||||
)
|
)
|
||||||
|
|
||||||
(defn- make-regex-area [tab-desc]
|
(defn- make-regex-area [tab-desc]
|
||||||
|
Loading…
Reference in New Issue
Block a user