Refactor to to_html

Currently keeping reply_mode as ref
master
erik 4 weeks ago
parent 6a7e7deac6
commit 142b74cd9b

@ -17,7 +17,7 @@
(:require
[dda.masto-embed.browser :as b]
[dda.masto-embed.reply-mode :as rm]
[dda.masto-embed.account-mode :as am]))
[dda.masto-embed.to-html :as am]))
(defn init []
(let [host-url (b/host-url-from-document)
@ -25,5 +25,5 @@
replies-to (b/replies-to-from-document)
filter-favorited (b/filter-favorited-from-document)]
(if (nil? replies-to)
(am/account-mode host-url account-name)
(am/to-html host-url account-name)
(rm/replies-mode host-url account-name replies-to filter-favorited))))

@ -22,7 +22,7 @@
[dda.masto-embed.api :as api]
[dda.masto-embed.infra :as infra]
[dda.masto-embed.browser :as b]
[dda.masto-embed.account-mode :as am]
[dda.masto-embed.to-html :as th]
))
; ToDo: Possibility to present replies to more than one post
(defn mastocard->html [card media]

@ -13,7 +13,7 @@
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
(ns dda.masto-embed.account-mode
(ns dda.masto-embed.to-html
(:require
[cljs.core.async :refer [go chan <! >!]]
[cljs.core.async.interop :refer-macros [<p!]]
@ -120,7 +120,7 @@
first)))
out))
(defn account-mode [host-url account-name]
(defn to-html [host-url account-name]
(go
(let [account-id (<! (find-account-id host-url account-name))
status (->

@ -14,10 +14,10 @@
; See the License for the specific language governing permissions and
; limitations under the License.
(ns dda.masto-embed.account-mode-test
(ns dda.masto-embed.to-html-test
(:require
[cljs.test :refer (deftest is)]
[dda.masto-embed.account-mode :as sut]
[dda.masto-embed.to-html :as sut]
[dda.masto-embed.data-helpers :as dh]
[hickory.core :as h]
[hickory.convert :as hc]
Loading…
Cancel
Save