From ea181da2a6b756e80efdd78197de77d51edb2adc Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <adrian@openwork.nz>
Date: Mon, 19 Jul 2021 20:18:57 +1200
Subject: [PATCH] Add support for <select> in forms.

---
 src/Internal/Load.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/Internal/Load.hs b/src/Internal/Load.hs
index 76e86fd..7e07db8 100644
--- a/src/Internal/Load.hs
+++ b/src/Internal/Load.hs
@@ -190,6 +190,14 @@ clickEl' session (XML.Element (XML.Name name _ _) attrs _) cursor
     | name == "input", Just "checkbox" <- "type" `M.lookup` attrs',
             Just name <- "name" `M.lookup` attrs', Just value <- "value" `M.lookup` attrs' =
         modifyForm (toggleOption value) name cursor session
+    -- TODO implement datalists...
+    | name == "option", (select:_) <- XC.parent cursor,
+            XML.NodeElement select'@(XML.Element "select" attrs2 _) <- XC.node select,
+            let attrs2' = M.mapKeys XML.nameLocalName attrs2,
+            Just name <- "name" `M.lookup` attrs2, Just value <- "value" `M.lookup` attrs' =
+        if "multiple" `M.member` attrs2'
+        then modifyForm (toggleOption value) name cursor session
+        else modifyForm (const [value]) name cursor session
     | otherwise = return ()
   where
     attrs' = M.mapKeys XML.nameLocalName attrs
@@ -200,9 +208,10 @@ clickEl' session (XML.Element (XML.Name name _ _) attrs _) cursor
 isClickableEl :: XC.Cursor -> Bool
 isClickableEl el | XML.NodeElement el' <- XC.node el = isClickableEl' el'
     | otherwise = False
-isClickableEl' (XML.Element _ attrs _)
+isClickableEl' (XML.Element name attrs _)
     | Just href <- "href" `M.lookup` attrs', Just _ <- URI.parseURIReference $ Txt.unpack href = True
     | Just src <- "src" `M.lookup` attrs', Just _ <- URI.parseURIReference $ Txt.unpack src = True
+    | name `elem` ["input", "label", "button", "option"] = True
     | otherwise = False
   where attrs' = M.mapKeys XML.nameLocalName attrs
 
-- 
2.30.2