refactoring
parent
e6eef65e1b
commit
bb5d0eab5f
@ -0,0 +1,42 @@
|
||||
; Licensed to the Apache Software Foundation (ASF) under one
|
||||
; or more contributor license agreements. See the NOTICE file
|
||||
; distributed with this work for additional information
|
||||
; regarding copyright ownership. The ASF licenses this file
|
||||
; to you under the Apache License, Version 2.0 (the
|
||||
; "License"); you may not use this file except in compliance
|
||||
; with the License. You may obtain a copy of the License at
|
||||
;
|
||||
; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;
|
||||
; Unless required by applicable law or agreed to in writing, software
|
||||
; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
; 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.browser)
|
||||
|
||||
(def masto-embed "masto-embed")
|
||||
|
||||
(defn element-from-document-by-name [name]
|
||||
(-> js/document
|
||||
(.getElementById masto-embed)
|
||||
(.getAttribute name)))
|
||||
|
||||
(defn host-url-from-document []
|
||||
(element-from-document-by-name "host_url"))
|
||||
|
||||
(defn account-name-from-document []
|
||||
(element-from-document-by-name "account_name"))
|
||||
|
||||
(defn replies-to-from-document []
|
||||
(element-from-document-by-name "replies_to"))
|
||||
|
||||
(defn filter-favorited-from-document []
|
||||
(element-from-document-by-name "filter_favorited"))
|
||||
|
||||
(defn render-to-document
|
||||
[input]
|
||||
(-> js/document
|
||||
(.getElementById masto-embed)
|
||||
(.-innerHTML)
|
||||
(set! input)))
|
||||
@ -0,0 +1,90 @@
|
||||
; Licensed to the Apache Software Foundation (ASF) under one
|
||||
; or more contributor license agreements. See the NOTICE file
|
||||
; distributed with this work for additional information
|
||||
; regarding copyright ownership. The ASF licenses this file
|
||||
; to you under the Apache License, Version 2.0 (the
|
||||
; "License"); you may not use this file except in compliance
|
||||
; with the License. You may obtain a copy of the License at
|
||||
;
|
||||
; http://www.apache.org/licenses/LICENSE-2.0
|
||||
;
|
||||
; Unless required by applicable law or agreed to in writing, software
|
||||
; distributed under the License is distributed on an "AS IS" BASIS,
|
||||
; 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.reply-mode
|
||||
(:require
|
||||
[cljs.core.async :refer [go close! put! take! timeout chan <! >!]]
|
||||
[cljs.core.async.interop :refer-macros [<p!]]
|
||||
[hiccups.runtime :refer [render-html]]
|
||||
[cljs-time.format :as t]
|
||||
[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]
|
||||
))
|
||||
|
||||
(defn mastocard->html [card]
|
||||
(when (some? card)
|
||||
(let [{:keys [title description image url]} card]
|
||||
[:div {:class "card" :url url}
|
||||
(when (some? image)
|
||||
[:img {:class "card-img-top" :src image}])
|
||||
[:h3 {:class "card-title"} title]
|
||||
[:p {:class "card-body"} description]])))
|
||||
|
||||
(defn masto->html [statuses]
|
||||
[:ul {:class "list-group"}
|
||||
(map (fn [status]
|
||||
(let [{:keys [created_at card]} status
|
||||
date (t/parse created_at)]
|
||||
[:li {:class "list-group-item, card"}
|
||||
[:div {:class "card-body"}
|
||||
[:h2 {:class "card-title"}
|
||||
[:a {:href (get-in status [:account :url])}
|
||||
(t/unparse (t/formatters :date) date) " "
|
||||
(t/unparse (t/formatters :hour-minute-second) date)]]
|
||||
[:p {:class "card-text"}
|
||||
(:content status)
|
||||
(mastocard->html card)]]]))
|
||||
statuses)])
|
||||
|
||||
(defn favorited-replies? [host-url account-name reply-id]
|
||||
(let [out (chan)]
|
||||
(go
|
||||
(>! out
|
||||
(->>
|
||||
(<p! (api/get-favorited-by host-url reply-id))
|
||||
api/mastojs->edn
|
||||
(filter #(= account-name (:acct %)))
|
||||
(empty?)
|
||||
(not))))
|
||||
out))
|
||||
|
||||
(defn favorited? [host-url account-name replies]
|
||||
(let [out (chan)]
|
||||
(go
|
||||
(>! out
|
||||
(loop [loc-replies replies
|
||||
result []]
|
||||
(if (empty? loc-replies)
|
||||
result
|
||||
(recur (rest loc-replies)
|
||||
(conj result (<! (favorited-replies? host-url account-name (first loc-replies)))))))))
|
||||
out))
|
||||
|
||||
(defn replies-mode [host-url account-name post-id filter-favorited]
|
||||
(go
|
||||
(let [replies (->
|
||||
(<p! (api/get-replies host-url post-id))
|
||||
api/mastojs->edn)
|
||||
favorited (<! (favorited? host-url account-name (map :id (:descendants replies))))
|
||||
combined (map (fn [s f] {:status s :favorited f}) (:descendants replies) favorited)]
|
||||
(->> combined
|
||||
(filter #(infra/debug (or (not filter-favorited) (:favorited %))))
|
||||
(map :status)
|
||||
(infra/debug)
|
||||
(masto->html)
|
||||
(render-html)
|
||||
(b/render-to-document)))))
|
||||
Loading…
Reference in New Issue