mode/bookmarklets: Properly parse javascript: scheme bookmarklets.

atlas-engineer · Sep 19, 2022 · a79a874 · a79a874
1 parent 781cfd0
commit a79a874
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/source/mode/bookmarklets.lisp b/source/mode/bookmarklets.lisp
@@ -22,7 +22,11 @@ By default, this mode does nothing but expose the default bookmarklets."
            `(let* ((source ,source)
                    (source (etypecase source
                              (pathname (nfiles:content (make-instance 'nfiles:file :base-path source)))
-                             (string source))))
+                             (string source)))
+                   (source (if (str:starts-with-p "javascript:" source)
+                               (or (ignore-errors (quri:url-decode (quri:uri-path (quri:uri source))))
+                                   (subseq source 11))
+                               source)))
               (ffi-buffer-evaluate-javascript-async buffer source))))
     (export 'define-bookmarklet-command)
     (defmacro define-bookmarklet-command (name documentation source)