Revert "Prevent #links to work except in community chats and allow redirection from channel to another when clicked (#15069)"
This reverts commit bc5f0ccda6
.
This commit is contained in:
parent
bc5f0ccda6
commit
172bf66436
|
@ -198,15 +198,6 @@
|
|||
%)
|
||||
(re-frame/dispatch [::failed-to-leave %]))}]}))
|
||||
|
||||
(rf/defn status-tag-pressed
|
||||
{:events [:communities/status-tag-pressed]}
|
||||
[{:keys [db]} community-id literal]
|
||||
(let [current-chat-id (:current-chat-id db)
|
||||
{:keys [id]} (some #(when (= (:name %) literal) %)
|
||||
(vals (get-in db [:communities community-id :chats])))]
|
||||
(when-not (= current-chat-id (str community-id id))
|
||||
{:dispatch [:chat/navigate-to-chat (str community-id id)]})))
|
||||
|
||||
(rf/defn fetch
|
||||
[_]
|
||||
{:json-rpc/call [{:method "wakuext_communities"
|
||||
|
|
|
@ -38,8 +38,7 @@
|
|||
(rf/sub [:contacts/contact-name-by-identity from]))
|
||||
|
||||
(defn render-inline
|
||||
[_message-text content-type acc {:keys [type literal destination]}
|
||||
community-id]
|
||||
[_message-text content-type acc {:keys [type literal destination]}]
|
||||
(case type
|
||||
""
|
||||
(conj acc literal)
|
||||
|
@ -81,10 +80,9 @@
|
|||
"status-tag"
|
||||
(conj acc
|
||||
[rn/text
|
||||
(when community-id
|
||||
{:style {:color :blue
|
||||
:text-decoration-line :underline}
|
||||
:on-press #(rf/dispatch [:communities/status-tag-pressed community-id literal])})
|
||||
:on-press #(rf/dispatch [:chat.ui/start-public-chat literal])}
|
||||
"#"
|
||||
literal])
|
||||
|
||||
|
@ -96,20 +94,13 @@
|
|||
;; TEXT
|
||||
(defn render-block
|
||||
[{:keys [content content-type edited-at in-popover?]} acc
|
||||
{:keys [type ^js literal children]}
|
||||
community-id]
|
||||
|
||||
{:keys [type ^js literal children]}]
|
||||
(case type
|
||||
|
||||
"paragraph"
|
||||
(conj acc
|
||||
(reduce
|
||||
(fn [acc e]
|
||||
(render-inline (:text content)
|
||||
content-type
|
||||
acc
|
||||
e
|
||||
community-id))
|
||||
(fn [acc e] (render-inline (:text content) content-type acc e))
|
||||
[rn/text (style/text-style content-type in-popover?)]
|
||||
(conj
|
||||
children
|
||||
|
@ -130,16 +121,11 @@
|
|||
acc))
|
||||
|
||||
(defn render-parsed-text
|
||||
[{:keys [content chat-id]
|
||||
:as message-data}]
|
||||
(let [community-id (rf/sub [:community-id-by-chat-id chat-id])]
|
||||
[{:keys [content] :as message-data}]
|
||||
(reduce (fn [acc e]
|
||||
(render-block message-data
|
||||
acc
|
||||
e
|
||||
community-id))
|
||||
(render-block message-data acc e))
|
||||
[:<>]
|
||||
(:parsed-text content))))
|
||||
(:parsed-text content)))
|
||||
|
||||
(defn quoted-message
|
||||
[{:keys [message-id chat-id]} reply pin?]
|
||||
|
@ -248,7 +234,7 @@
|
|||
[rn/view style/status-container
|
||||
[rn/text {:style (style/status-text)}
|
||||
(reduce
|
||||
(fn [acc e] (render-inline (:text content) content-type acc e nil))
|
||||
(fn [acc e] (render-inline (:text content) content-type acc e))
|
||||
[rn/text {:style (style/status-text)}]
|
||||
(-> content :parsed-text peek :children))]])
|
||||
|
||||
|
|
|
@ -20,14 +20,6 @@
|
|||
(fn [chats [_ chat-id]]
|
||||
(get chats chat-id)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
:community-id-by-chat-id
|
||||
:<- [:chats/chats]
|
||||
(fn [chats [_ chat-id]]
|
||||
(-> chats
|
||||
(get chat-id)
|
||||
:community-id)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
:chats/by-community-id
|
||||
:<- [:chats/chats]
|
||||
|
|
Loading…
Reference in New Issue