LibWeb: Fix js execution for js urls in anchor tags href

Userland/Libraries/LibWeb/DOM/Document.cpp

@@ -67,6 +67,7 @@
 #include <LibWeb/HTML/NavigationParams.h>
 #include <LibWeb/HTML/Origin.h>
 #include <LibWeb/HTML/Parser/HTMLParser.h>
+#include <LibWeb/HTML/Scripting/ClassicScript.h>
 #include <LibWeb/HTML/Scripting/ExceptionReporter.h>
 #include <LibWeb/HTML/Scripting/WindowEnvironmentSettingsObject.h>
 #include <LibWeb/HTML/TraversableNavigable.h>
@@ -1282,25 +1283,39 @@ HTML::EnvironmentSettingsObject& Document::relevant_settings_object()
     return Bindings::host_defined_environment_settings_object(realm());
 }
 
-JS::Value Document::run_javascript(StringView source, StringView filename)
+// https://html.spec.whatwg.org/multipage/browsing-the-web.html#navigate-to-a-javascript:-url
+void Document::navigate_to_javascript_url(StringView url)
 {
-    // FIXME: The only user of this function now is javascript: URLs. Refactor them to follow the spec: https://html.spec.whatwg.org/multipage/browsing-the-web.html#javascript-protocol
-    auto interpreter = JS::Interpreter::create_with_existing_realm(realm());
-    auto script_or_error = JS::Script::parse(source, realm(), filename);
-    if (script_or_error.is_error()) {
-        // FIXME: Add error logging back.
-        return JS::js_undefined();
-    }
+    // FIXME: Implement the rest of steps from the spec
+
+    // 6. Let newDocument be the result of evaluating a javascript: URL given targetNavigable, url, and initiatorOrigin.
+    evaluate_javascript_url(url);
+}
 
-    auto result = interpreter->run(script_or_error.value());
+// https://html.spec.whatwg.org/multipage/browsing-the-web.html#evaluate-a-javascript:-url
+void Document::evaluate_javascript_url(StringView url)
+{
+    // NOTE: This is done by EventHandler::handle_mouseup
+    // 1. Let urlString be the result of running the URL serializer on url.
 
-    if (result.is_error()) {
-        // FIXME: I'm sure the spec could tell us something about error propagation here!
-        HTML::report_exception(result, realm());
+    // 2. Let encodedScriptSource be the result of removing the leading "javascript:" from urlString.
+    auto encoded_script_source = url.substring_view(11, url.length() - 11);
 
-        return {};
-    }
-    return result.value();
+    // FIXME: 3. Let scriptSource be the UTF-8 decoding of the percent-decoding of encodedScriptSource.
+
+    // 4. Let settings be targetNavigable's active document's relevant settings object.
+    auto& settings = relevant_settings_object();
+
+    // 5. Let baseURL be settings's API base URL.
+    auto base_url = settings.api_base_url();
+
+    // 6. Let script be the result of creating a classic script given scriptSource, settings, baseURL, and the default classic script fetch options.
+    auto script = HTML::ClassicScript::create("(javascript url)", encoded_script_source, settings, base_url);
+
+    // 7. Let evaluationStatus be the result of running the classic script script.
+    static_cast<void>(script->run());
+
+    // FIXME: Implement the rest of the steps from the spec
 }
 
 // https://dom.spec.whatwg.org/#dom-document-createelement

Userland/Libraries/LibWeb/DOM/Document.h

@@ -231,7 +231,8 @@ public:
 
     HTML::EnvironmentSettingsObject& relevant_settings_object();
 
-    JS::Value run_javascript(StringView source, StringView filename = "(unknown)"sv);
+    void navigate_to_javascript_url(StringView url);
+    void evaluate_javascript_url(StringView url);
 
     WebIDL::ExceptionOr<JS::NonnullGCPtr<Element>> create_element(DeprecatedString const& local_name, Variant<DeprecatedString, ElementCreationOptions> const& options);
     WebIDL::ExceptionOr<JS::NonnullGCPtr<Element>> create_element_ns(DeprecatedString const& namespace_, DeprecatedString const& qualified_name, Variant<DeprecatedString, ElementCreationOptions> const& options);

Userland/Libraries/LibWeb/HTML/HTMLAnchorElement.cpp

@@ -55,6 +55,11 @@ void HTMLAnchorElement::run_activation_behavior(Web::DOM::Event const&)
     if (href().is_empty())
         return;
 
+    // AD-HOC: follow_the_hyperlink currently doesn't navigate properly with javascript urls
+    // EventHandler::handle_mouseup performs the navigation steps for javascript urls instead
+    if (href().starts_with("javascript:"sv))
+        return;
+
     // 2. Let hyperlinkSuffix be null.
     Optional<DeprecatedString> hyperlink_suffix {};
 

Userland/Libraries/LibWeb/Page/EventHandler.cpp

@@ -286,7 +286,7 @@ bool EventHandler::handle_mouseup(CSSPixelPoint position, unsigned button, unsig
                     dbgln("Web::EventHandler: Clicking on a link to {}", url);
                     if (button == GUI::MouseButton::Primary) {
                         if (href.starts_with("javascript:"sv)) {
-                            document->run_javascript(href.substring_view(11, href.length() - 11));
+                            document->navigate_to_javascript_url(href);
                         } else if (!url.fragment().is_null() && url.equals(document->url(), AK::URL::ExcludeFragment::Yes)) {
                             m_browsing_context->scroll_to_anchor(url.fragment());
                         } else {