diff --git a/public/index.html b/public/index.html index bd33162..40a5327 100644 --- a/public/index.html +++ b/public/index.html @@ -10,7 +10,9 @@
edn) - test-status (-> - (
edn)] + (->> statuus + (take 4) + (rb/masto->html) + (render-html) + (render-to-document))))) + +(defn replies-mode [host-url account-name post-id filter-favorited] + (go + (let [test-status (-> + (
edn) - favorited (> statuus - ; (take 4) - ; (rb/masto->html) - ; (render-html) - ; (render-to-document)) - (->> filtered + statuus (if filter-favorited filtered test-status)] + (->> statuus (infra/debug) (rb/masto->html) (render-html) - (render-to-document)) - ))) \ No newline at end of file + (render-to-document))))) + +(defn init [] + (let [host-url (host-url-from-document) + account-name (account-name-from-document) + replies-to (replies-to-from-document) + filter-favorited (filter-favorited-from-document) + ] + (if (nil? replies-to) + (account-mode host-url account-name) + (replies-mode host-url account-name replies-to filter-favorited)) + )) \ No newline at end of file