diff --git a/Userland/Libraries/LibWeb/HTML/HTMLElement.cpp b/Userland/Libraries/LibWeb/HTML/HTMLElement.cpp
index 21f350445f..8ab7f37af2 100644
--- a/Userland/Libraries/LibWeb/HTML/HTMLElement.cpp
+++ b/Userland/Libraries/LibWeb/HTML/HTMLElement.cpp
@@ -11,6 +11,9 @@
#include
#include
#include
+#include
+#include
+#include
#include
#include
#include
@@ -177,4 +180,206 @@ void HTMLElement::parse_attribute(const FlyString& name, const String& value)
#undef __ENUMERATE
}
+// https://html.spec.whatwg.org/multipage/interaction.html#focus-update-steps
+static void run_focus_update_steps(Vector old_chain, Vector new_chain, DOM::Node& new_focus_target)
+{
+ // 1. If the last entry in old chain and the last entry in new chain are the same,
+ // pop the last entry from old chain and the last entry from new chain and redo this step.
+ while (!old_chain.is_empty()
+ && !new_chain.is_empty()
+ && &old_chain.last() == &new_chain.last()) {
+ old_chain.take_last();
+ new_chain.take_last();
+ }
+
+ // 2. For each entry entry in old chain, in order, run these substeps:
+ for (auto& entry : old_chain) {
+ // FIXME: 1. If entry is an input element, and the change event applies to the element,
+ // and the element does not have a defined activation behavior,
+ // and the user has changed the element's value or its list of selected files
+ // while the control was focused without committing that change
+ // (such that it is different to what it was when the control was first focused),
+ // then fire an event named change at the element,
+ // with the bubbles attribute initialized to true.
+
+ RefPtr blur_event_target;
+ if (is(entry)) {
+ // 2. If entry is an element, let blur event target be entry.
+ blur_event_target = entry;
+ } else if (is(entry)) {
+ // If entry is a Document object, let blur event target be that Document object's relevant global object.
+ blur_event_target = static_cast(entry).window();
+ }
+
+ // 3. If entry is the last entry in old chain, and entry is an Element,
+ // and the last entry in new chain is also an Element,
+ // then let related blur target be the last entry in new chain.
+ // Otherwise, let related blur target be null.
+ RefPtr related_blur_target;
+ if (&entry == &old_chain.last()
+ && is(entry)
+ && (!new_chain.is_empty() && is(new_chain.last()))) {
+ related_blur_target = new_chain.last();
+ }
+
+ // 4. If blur event target is not null, fire a focus event named blur at blur event target,
+ // with related blur target as the related target.
+ if (blur_event_target) {
+ // FIXME: Implement the "fire a focus event" spec operation.
+ auto blur_event = DOM::Event::create(HTML::EventNames::blur);
+ blur_event->set_related_target(related_blur_target);
+ blur_event_target->dispatch_event(move(blur_event));
+ }
+ }
+
+ // FIXME: 3. Apply any relevant platform-specific conventions for focusing new focus target.
+ // (For example, some platforms select the contents of a text control when that control is focused.)
+ (void)new_focus_target;
+
+ // 4. For each entry entry in new chain, in reverse order, run these substeps:
+ for (ssize_t i = new_chain.size() - 1; i >= 0; --i) {
+ auto& entry = new_chain[i];
+
+ // 1. If entry is a focusable area: designate entry as the focused area of the document.
+ // FIXME: This isn't entirely right.
+ if (is(entry))
+ entry.document().set_focused_element(&static_cast(entry));
+
+ RefPtr focus_event_target;
+ if (is(entry)) {
+ // 2. If entry is an element, let focus event target be entry.
+ focus_event_target = entry;
+ } else if (is(entry)) {
+ // If entry is a Document object, let focus event target be that Document object's relevant global object.
+ focus_event_target = static_cast(entry).window();
+ }
+
+ // 3. If entry is the last entry in old chain, and entry is an Element,
+ // and the last entry in new chain is also an Element,
+ // then let related focus target be the last entry in new chain.
+ // Otherwise, let related focus target be null.
+ RefPtr related_focus_target;
+ if (&entry == &old_chain.last()
+ && is(entry)
+ && (!new_chain.is_empty() && is(new_chain.last()))) {
+ related_focus_target = new_chain.last();
+ }
+
+ // 4. If focus event target is not null, fire a focus event named focus at focus event target,
+ // with related focus target as the related target.
+ if (focus_event_target) {
+ // FIXME: Implement the "fire a focus event" spec operation.
+ auto focus_event = DOM::Event::create(HTML::EventNames::focus);
+ focus_event->set_related_target(related_focus_target);
+ focus_event_target->dispatch_event(move(focus_event));
+ }
+ }
+}
+// https://html.spec.whatwg.org/multipage/interaction.html#focus-chain
+static Vector focus_chain(DOM::Node* subject)
+{
+ // FIXME: Move this somewhere more spec-friendly.
+ if (!subject)
+ return {};
+
+ // 1. Let output be an empty list.
+ Vector output;
+
+ // 2. Let currentObject be subject.
+ auto* current_object = subject;
+
+ // 3. While true:
+ while (true) {
+ // 1. Append currentObject to output.
+ output.append(*current_object);
+
+ // FIXME: 2. If currentObject is an area element's shape, then append that area element to output.
+
+ // FIXME: Otherwise, if currentObject's DOM anchor is an element that is not currentObject itself, then append currentObject's DOM anchor to output.
+
+ // FIXME: Everything below needs work. The conditions are not entirely right.
+ if (!is(*current_object)) {
+ // 3. If currentObject is a focusable area, then set currentObject to currentObject's DOM anchor's node document.
+ current_object = ¤t_object->document();
+ } else if (is(*current_object)) {
+ // Otherwise, if currentObject is a Document whose browsing context is a child browsing context,
+ // then set currentObject to currentObject's browsing context's container.
+ auto& document = static_cast(*current_object);
+ if (document.browsing_context() && !document.browsing_context()->is_top_level())
+ current_object = document.browsing_context()->container();
+ } else {
+ break;
+ }
+ }
+
+ // 4. Return output.
+ return output;
+}
+
+// https://html.spec.whatwg.org/multipage/interaction.html#focusing-steps
+// FIXME: This should accept more types.
+static void run_focusing_steps(DOM::Node* new_focus_target, DOM::Node* fallback_target = nullptr, [[maybe_unused]] Optional focus_trigger = {})
+{
+ // FIXME: 1. If new focus target is not a focusable area, then set new focus target
+ // to the result of getting the focusable area for new focus target,
+ // given focus trigger if it was passed.
+
+ // 2. If new focus target is null, then:
+ if (!new_focus_target) {
+ // 1. If no fallback target was specified, then return.
+ if (!fallback_target)
+ return;
+
+ // 2. Otherwise, set new focus target to the fallback target.
+ new_focus_target = fallback_target;
+ }
+
+ // 3. If new focus target is a browsing context container with non-null nested browsing context,
+ // then set new focus target to the nested browsing context's active document.
+ if (is(*new_focus_target)) {
+ auto& browsing_context_container = static_cast(*new_focus_target);
+ if (auto* nested_browsing_context = browsing_context_container.nested_browsing_context())
+ new_focus_target = nested_browsing_context->active_document();
+ }
+
+ // FIXME: 4. If new focus target is a focusable area and its DOM anchor is inert, then return.
+
+ // 5. If new focus target is the currently focused area of a top-level browsing context, then return.
+ if (new_focus_target->document().browsing_context())
+ return;
+ auto& top_level_browsing_context = new_focus_target->document().browsing_context()->top_level_browsing_context();
+ if (new_focus_target == top_level_browsing_context.currently_focused_area())
+ return;
+
+ // 6. Let old chain be the current focus chain of the top-level browsing context in which
+ // new focus target finds itself.
+ auto old_chain = focus_chain(top_level_browsing_context.currently_focused_area());
+
+ // 7. Let new chain be the focus chain of new focus target.
+ auto new_chain = focus_chain(new_focus_target);
+
+ run_focus_update_steps(old_chain, new_chain, *new_focus_target);
+}
+
+// https://html.spec.whatwg.org/multipage/interaction.html#dom-focus
+void HTMLElement::focus()
+{
+ // 1. If the element is marked as locked for focus, then return.
+ if (m_locked_for_focus)
+ return;
+
+ // 2. Mark the element as locked for focus.
+ m_locked_for_focus = true;
+
+ // 3. Run the focusing steps for the element.
+ run_focusing_steps(this);
+
+ // FIXME: 4. If the value of the preventScroll dictionary member of options is false,
+ // then scroll the element into view with scroll behavior "auto",
+ // block flow direction position set to an implementation-defined value,
+ // and inline base direction position set to an implementation-defined value.
+
+ // 5. Unmark the element as locked for focus.
+ m_locked_for_focus = false;
+}
}
diff --git a/Userland/Libraries/LibWeb/HTML/HTMLElement.h b/Userland/Libraries/LibWeb/HTML/HTMLElement.h
index 5a99ece04b..de419a4780 100644
--- a/Userland/Libraries/LibWeb/HTML/HTMLElement.h
+++ b/Userland/Libraries/LibWeb/HTML/HTMLElement.h
@@ -40,6 +40,8 @@ public:
NonnullRefPtr dataset() const { return m_dataset; }
+ void focus();
+
protected:
virtual void parse_attribute(const FlyString& name, const String& value) override;
@@ -55,6 +57,9 @@ private:
ContentEditableState content_editable_state() const;
NonnullRefPtr m_dataset;
+
+ // https://html.spec.whatwg.org/multipage/interaction.html#locked-for-focus
+ bool m_locked_for_focus { false };
};
}
diff --git a/Userland/Libraries/LibWeb/HTML/HTMLElement.idl b/Userland/Libraries/LibWeb/HTML/HTMLElement.idl
index c9ed5ce4ee..25c931932d 100644
--- a/Userland/Libraries/LibWeb/HTML/HTMLElement.idl
+++ b/Userland/Libraries/LibWeb/HTML/HTMLElement.idl
@@ -7,6 +7,9 @@ interface HTMLElement : Element {
attribute DOMString contentEditable;
+ // FIXME: Support the optional FocusOptions parameter.
+ undefined focus();
+
[LegacyNullToEmptyString] attribute DOMString innerText;
readonly attribute long offsetTop;