near/computersandblues.lodestone
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

base: near:84109a342928251da5e685fde0072308016ca0f6
Branches Tags
near:main
..
compare: near:de2cf7f9c2f0033e79790bbbdc9eb974e7e4815f
Branches Tags
near:main

No commits in common. "84109a342928251da5e685fde0072308016ca0f6" and "de2cf7f9c2f0033e79790bbbdc9eb974e7e4815f" have entirely different histories.
84109a3429 ... de2cf7f9c2

2 changed files with 4 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

1
public/index.html
View file

@ -230,7 +230,6 @@
margin-top: 16px; margin-top: 16px;
height: 320px; height: 320px;
display: flex; display: flex;
align-items: flex-start;
max-width: 100%; max-width: 100%;
overflow: auto; overflow: auto;
} }

13
src/computersandblues/lodestone/app.cljs
View file

@ -134,9 +134,7 @@
:redirect_uri (:redirect_uri application)}))}) :redirect_uri (:redirect_uri application)}))})
(.then (fn [res] (.then (fn [res]
(let [bearer-token (-> res :body :access_token) (let [bearer-token (-> res :body :access_token)
application (assoc application :bearer_token bearer-token) application (assoc application :bearer_token bearer-token)]
path (-> js/location .-pathname)]
(.replaceState js/history nil "" path) ; remove ?code= param
(db/put! ::db/application application) (db/put! ::db/application application)
application))))) application)))))
@ -358,12 +356,9 @@
"video" [:video {:controls true} "video" [:video {:controls true}
[:source {:type (str "video/" ext) :src remote-url}] [:source {:type (str "video/" ext) :src remote-url}]
[:a {:href (:remote_url attachment)} (str "Original video at " (:remote_url attachment))]] [:a {:href (:remote_url attachment)} (str "Original video at " (:remote_url attachment))]]
"gifv" (let [autoplay (r/atom false) "gifv" [:video {:loop true :autoplay true :muted true}
toggle-autoplay #(swap! autoplay not)] [:source {:type (str "video/" ext) :src remote-url}]
(fn [] [:a {:href (:remote_url attachment)} (str "Original video at " (:remote_url attachment))]]
[:video {:loop true :autoplay @autoplay :muted true :on-pointer-enter toggle-autoplay}
[:source {:type (str "video/" ext) :src remote-url}]
[:a {:href (:remote_url attachment)} (str "Original video at " (:remote_url attachment))]]))
[:div [:strong "Unsupported attachment"] [:div [:strong "Unsupported attachment"]
[debug attachment]]))) [debug attachment]])))