simon/scittle
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

update build

Browse source
This commit is contained in:
Michiel Borkent 2021-05-27 22:38:39 +02:00
parent 5bf1a9abcb
commit c656e20910
2 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bookmarklet.html
View file

@ -1,6 +1,7 @@
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<link rel="stylesheet" href="css/style.css">
<script src="https://borkdude.github.io/scittle/js/scittle.js" type="application/javascript"></script>
@ -38,8 +39,8 @@
(.open oreq "GET" "cljs/bookmarklet.cljs")
(.send oreq)
</script>
<script type="application/x-scittle" src="cljs/bookmarklet.cljs"></script>
</body>
</html>

17
cljs/bookmarklet.cljs
View file

@ -62,7 +62,7 @@
(def *initial-code (r/atom nil))
;; Initialize code
(let [{:keys [gist]} (query-params)]
(let [{:keys [gist code name]} (query-params)]
(cond gist
(do
(reset! *initial-name "---")
@ -74,7 +74,10 @@
(when bookmark-name
(reset! *initial-name bookmark-name))
(reset! *initial-code code)))))
code
(do
(reset! *initial-name (or name "My first bookmarklet"))
(reset! *initial-code code))
:else
(do
(reset! *initial-name "My first bookmarklet")
@ -124,11 +127,13 @@
[editor *code]
[:br]
[:br]
"Click the link below"[:br]
"or"[:br]
"Drag the link to the bookmarks bar" [:br]
"Click the following link or drag it to the bookmarks bar: "
[(fn []
[(fn [] [:a {:href (bookmarklet-href @*code)} @*bookmark-name])])
*code]]))
*code]
[:br]
[(fn []
[:a {:href (str "?name=" (js/encodeURIComponent @*bookmark-name)
"&code=" (js/encodeURIComponent @*code))} "Copy this link to share ⤴️"])]]))
(rdom/render [workspace] (.getElementById js/document "app"))