git.iko.soy/purestack-dev/purescript-plum
on master help sign in
Text input
commit20ed56682c1628da3f4e5d99c1bdf8966247734d authoriko <mail@iko.soy> dateSun 15 Jun 2025, 13:38 (1 year ago) parent6173af3
6 files changed+36−3
unifiedsplit
plum/spago.dhall+1 plum/src/Main.purs+3−1 plum/src/Plum.purs+3 plum/src/Plum/View.purs+26−1 plum/src/Snabbdom.js+1−1 plum/src/Snabbdom.purs+2
plum/spago.dhall+1
@@ -24,6 +24,7 @@
2424 , "web-dom"
2525 , "web-events"
2626 , "web-html"
27+ , "web-uievents"
2728 ]
2829, packages = ../packages.dhall
2930, sources = [ "src/**/*.purs", "test/**/*.purs" ]
plum/src/Main.purs+3−1
@@ -12,7 +12,7 @@ main = do
1212
1313type Model = { text :: String, numberOfClicks :: Int }
1414
15−data Msg = Clicked
15+data Msg = Clicked | UpdateText String
1616
1717plum :: Plum.Plum Msg Model
1818plum =
@@ -52,6 +52,8 @@ plum =
5252 row do
5353 text (model.text <> ": " <> show model.numberOfClicks) mempty
5454 onClick Clicked
55+ textInput { onChange: UpdateText, value: model.text } mempty
5556 , update: \msg model -> case msg of
5657 Clicked -> pure model { text = "Button pressed", numberOfClicks = model.numberOfClicks + 1 }
58+ UpdateText text -> pure model { text = text }
5759 }
plum/src/Plum.purs+3
@@ -53,11 +53,13 @@ run id plum = do
5353 { attrs: Object.empty
5454 , on: Object.empty
5555 , style: Object.empty
56+ , props: Object.empty
5657 }
5758 [ Snabbdom.h "style"
5859 { attrs: Object.empty
5960 , on: Object.empty
6061 , style: Object.empty
62+ , props: Object.empty
6163 }
6264 []
6365 (asOneOf $ outerStyle <> style)
@@ -69,6 +71,7 @@ run id plum = do
6971 { attrs: Object.empty
7072 , on: Object.empty
7173 , style: Object.empty
74+ , props: Object.empty
7275 }
7376 []
7477 (asOneOf undefined)
plum/src/Plum/View.purs+26−1
@@ -30,6 +30,7 @@ module Plum.View
3030 , download
3131 , downloadAs
3232 , image
33+ , textInput
3334 , spacing
3435 , explain
3536 , align
@@ -81,8 +82,14 @@ import Prim.TypeError as TypeError
8182import Snabbdom (VNode)
8283import Snabbdom as Snabbdom
8384import Type.Row.Homogeneous (class Homogeneous)
85+import Unsafe.Coerce (unsafeCoerce)
8486import Untagged.Union (asOneOf)
87+import Web.DOM.Element as Element
88+import Web.DOM.ParentNode (firstElementChild)
8589import Web.Event.Event (Event)
90+import Web.Event.Event as Event
91+import Web.UIEvent.InputEvent as InputEvent
92+import Web.HTML.HTMLInputElement as HTMLInputElement
8693
8794type GenericUIView children msg =
8895 { nerves :: Array (Nerve msg)
@@ -193,12 +200,17 @@ image :: forall msg a. String -> { description :: String } -> GenericUI Unit msg
193200image url description (UI { nerves, meat, hover, down } a) =
194201 UI (mempty :: UIView msg) { children = [ { meat, nerves, hover, down } /\ Image url description ] } a
195202
203+textInput :: forall msg a. { value :: String, onChange :: String -> msg } -> GenericUI Unit msg a -> UI msg a
204+textInput props (UI { nerves, meat, hover, down } a) =
205+ UI (mempty :: UIView msg) { children = [ { meat, nerves, hover, down } /\ TextInput props ] } a
206+
196207string :: String -> Classes -> WiredNerves -> String -> VNode
197208string elem classes (WiredNerves on) s =
198209 Snabbdom.h elem
199210 { attrs: Object.singleton "class" (Array.intercalate " " classes)
200211 , on
201212 , style: Object.empty
213+ , props: Object.empty
202214 }
203215 []
204216 (asOneOf s)
@@ -208,6 +220,7 @@ h elem classes (WiredNerves on) children =
208220 Snabbdom.h elem
209221 { attrs: Object.singleton "class" (Array.intercalate " " classes)
210222 , on
223+ , props: Object.empty
211224 , style: Object.empty
212225 }
213226 children
@@ -216,8 +229,9 @@ h elem classes (WiredNerves on) children =
216229hWith :: forall props. Homogeneous props String => String -> Record props -> Classes -> WiredNerves -> Array VNode -> VNode
217230hWith elem props classes (WiredNerves on) children =
218231 Snabbdom.h elem
219− { attrs: Object.union (Object.fromHomogeneous props) (Object.singleton "class" (Array.intercalate " " classes))
232+ { attrs: Object.singleton "class" (Array.intercalate " " classes)
220233 , on
234+ , props: Object.fromHomogeneous props
221235 , style: Object.empty
222236 }
223237 children
@@ -546,6 +560,7 @@ data Bones msg
546560 | Link String { newTab :: Boolean } (View msg)
547561 | Download String { filename :: Maybe String } (View msg)
548562 | Image String { description :: String }
563+ | TextInput { value :: String, onChange :: String -> msg }
549564 | None
550565
551566type Classes = Array String
@@ -664,6 +679,16 @@ growSkin fire (Mutation mutation) ({ meat, hover, down, nerves } /\ bones) = do
664679 wiredNerves
665680 [ child' ]
666681 Image src { description } -> (\c -> hWith "img" { src, alt: description } c wiredNerves []) <$> (skn Generic)
682+ TextInput { value, onChange } -> do
683+ classes <- skn Generic
684+ let
685+ onInputNerve = WiredNerves $ Object.singleton "input" $ \ev ->
686+ case Event.currentTarget ev >>= HTMLInputElement.fromEventTarget of
687+ Nothing -> pure unit
688+ Just inputEl -> do
689+ val <- HTMLInputElement.value inputEl
690+ fire $ onChange val
691+ pure $ hWith "input" { value } classes (wiredNerves <> onInputNerve) []
667692 None -> pure $ h "div" mempty wiredNerves []
668693
669694grow :: forall msg. (msg -> Effect Unit) -> View msg -> { node :: VNode, style :: String }
plum/src/Snabbdom.js+1−1
@@ -1 +1 @@
1−function s(f,G){let J,W=G.elm,P=f.data.attrs,Y=G.data.attrs;if(!P&&!Y)return;if(P===Y)return;P=P||{},Y=Y||{};for(J in Y){let q=Y[J];if(P[J]!==q)if(q===!0)W.setAttribute(J,"");else if(q===!1)W.removeAttribute(J);else if(J.charCodeAt(0)!==120)W.setAttribute(J,q);else if(J.charCodeAt(3)===58)W.setAttributeNS("http://www.w3.org/XML/1998/namespace",J,q);else if(J.charCodeAt(5)===58)J.charCodeAt(1)===109?W.setAttributeNS("http://www.w3.org/2000/xmlns/",J,q):W.setAttributeNS("http://www.w3.org/1999/xlink",J,q);else W.setAttribute(J,q)}for(J in P)if(!(J in Y))W.removeAttribute(J)}var m={create:s,update:s};function r(f,G,J){if(typeof f==="function")f.call(G,J,G);else if(typeof f==="object")for(let W=0;W<f.length;W++)r(f[W],G,J)}function W0(f,G){let J=f.type,W=G.data.on;if(W&&W[J])r(W[J],G,f)}function z0(){return function f(G){W0(G,f.vnode)}}function x(f,G){let J=f.data.on,W=f.listener,P=f.elm,Y=G&&G.data.on,q=G&&G.elm,D;if(J===Y)return;if(J&&W){if(!Y)for(D in J)P.removeEventListener(D,W,!1);else for(D in J)if(!Y[D])P.removeEventListener(D,W,!1)}if(Y){let L=G.listener=f.listener||z0();if(L.vnode=G,!J)for(D in Y)q.addEventListener(D,L,!1);else for(D in Y)if(!J[D])q.addEventListener(D,L,!1)}}var l={create:x,update:x,destroy:x};function y(f,G,J,W,P){let Y=G===void 0?void 0:G.key;return{sel:f,data:G,children:J,text:W,elm:P,key:Y}}var u=Array.isArray;function a(f){return typeof f==="string"||typeof f==="number"||f instanceof String||f instanceof Number}function J0(f,G){return document.createElement(f,G)}function P0(f,G,J){return document.createElementNS(f,G,J)}function X0(){return I(document.createDocumentFragment())}function Y0(f){return document.createTextNode(f)}function Z0(f){return document.createComment(f)}function $0(f,G,J){if(N(f)){let W=f;while(W&&N(W))W=I(W).parent;f=W!==null&&W!==void 0?W:f}if(N(G))G=I(G,f);if(J&&N(J))J=I(J).firstChildNode;f.insertBefore(G,J)}function B0(f,G){f.removeChild(G)}function q0(f,G){if(N(G))G=I(G,f);f.appendChild(G)}function t(f){if(N(f)){while(f&&N(f))f=I(f).parent;return f!==null&&f!==void 0?f:null}return f.parentNode}function K0(f){var G;if(N(f)){let J=I(f),W=t(J);if(W&&J.lastChildNode){let P=Array.from(W.childNodes),Y=P.indexOf(J.lastChildNode);return(G=P[Y+1])!==null&&G!==void 0?G:null}return null}return f.nextSibling}function H0(f){return f.tagName}function U0(f,G){f.textContent=G}function O0(f){return f.textContent}function R0(f){return f.nodeType===1}function T0(f){return f.nodeType===3}function M0(f){return f.nodeType===8}function N(f){return f.nodeType===11}function I(f,G){var J,W,P;let Y=f;return(J=Y.parent)!==null&&J!==void 0||(Y.parent=G!==null&&G!==void 0?G:null),(W=Y.firstChildNode)!==null&&W!==void 0||(Y.firstChildNode=f.firstChild),(P=Y.lastChildNode)!==null&&P!==void 0||(Y.lastChildNode=f.lastChild),Y}var E={createElement:J0,createElementNS:P0,createTextNode:Y0,createDocumentFragment:X0,createComment:Z0,insertBefore:$0,removeChild:B0,appendChild:q0,parentNode:t,nextSibling:K0,tagName:H0,setTextContent:U0,getTextContent:O0,isElement:R0,isText:T0,isComment:M0,isDocumentFragment:N};var c=y("",{},[],void 0,void 0);function w(f,G){var J,W;let P=f.key===G.key,Y=((J=f.data)===null||J===void 0?void 0:J.is)===((W=G.data)===null||W===void 0?void 0:W.is),q=f.sel===G.sel,D=!f.sel&&f.sel===G.sel?typeof f.text===typeof G.text:!0;return q&&P&&Y&&D}function L0(){throw new Error("The document fragment is not supported on this platform.")}function D0(f,G){return f.isElement(G)}function j0(f,G){return f.isDocumentFragment(G)}function A0(f,G,J){var W;let P={};for(let Y=G;Y<=J;++Y){let q=(W=f[Y])===null||W===void 0?void 0:W.key;if(q!==void 0)P[q]=Y}return P}var F0=["create","update","remove","destroy","pre","post"];function o(f,G,J){let W={create:[],update:[],remove:[],destroy:[],pre:[],post:[]},P=G!==void 0?G:E;for(let z of F0)for(let X of f){let Z=X[z];if(Z!==void 0)W[z].push(Z)}function Y(z){let X=z.id?"#"+z.id:"",Z=z.getAttribute("class"),$=Z?"."+Z.split(" ").join("."):"";return y(P.tagName(z).toLowerCase()+X+$,{},[],void 0,z)}function q(z){return y(void 0,{},[],void 0,z)}function D(z,X){return function Z(){if(--X===0){let $=P.parentNode(z);if($!==null)P.removeChild($,z)}}}function L(z,X){var Z,$,K,U,T;let B,O=z.data,M=O===null||O===void 0?void 0:O.hook;(Z=M===null||M===void 0?void 0:M.init)===null||Z===void 0||Z.call(M,z);let{children:R,sel:H}=z;if(H==="!")($=z.text)!==null&&$!==void 0||(z.text=""),z.elm=P.createComment(z.text);else if(H==="")z.elm=P.createTextNode(z.text);else if(H!==void 0){let j=H.indexOf("#"),A=H.indexOf(".",j),F=j>0?j:H.length,k=A>0?A:H.length,h=j!==-1||A!==-1?H.slice(0,Math.min(F,k)):H,i=O===null||O===void 0?void 0:O.ns,_=i===void 0?P.createElement(h,O):P.createElementNS(i,h,O);if(z.elm=_,F<k)_.setAttribute("id",H.slice(F+1,k));if(A>0)_.setAttribute("class",H.slice(k+1).replace(/\./g," "));for(B=0;B<W.create.length;++B)W.create[B](c,z);if(a(z.text)&&(!u(R)||R.length===0))P.appendChild(_,P.createTextNode(z.text));if(u(R))for(B=0;B<R.length;++B){let v=R[B];if(v!=null)P.appendChild(_,L(v,X))}if(M!==void 0){if((K=M.create)===null||K===void 0||K.call(M,c,z),M.insert!==void 0)X.push(z)}}else if(((U=J===null||J===void 0?void 0:J.experimental)===null||U===void 0?void 0:U.fragments)&&z.children){z.elm=((T=P.createDocumentFragment)!==null&&T!==void 0?T:L0)();for(B=0;B<W.create.length;++B)W.create[B](c,z);for(B=0;B<z.children.length;++B){let j=z.children[B];if(j!=null)P.appendChild(z.elm,L(j,X))}}else z.elm=P.createTextNode(z.text);return z.elm}function S(z,X,Z,$,K,U){for(;$<=K;++$){let T=Z[$];if(T!=null)P.insertBefore(z,L(T,U),X)}}function b(z){var X,Z;let $=z.data;if($!==void 0){(Z=(X=$===null||$===void 0?void 0:$.hook)===null||X===void 0?void 0:X.destroy)===null||Z===void 0||Z.call(X,z);for(let K=0;K<W.destroy.length;++K)W.destroy[K](z);if(z.children!==void 0)for(let K=0;K<z.children.length;++K){let U=z.children[K];if(U!=null&&typeof U!=="string")b(U)}}}function g(z,X,Z,$){var K,U;for(;Z<=$;++Z){let T,B=X[Z];if(B!=null)if(B.sel!==void 0){b(B),T=W.remove.length+1;let O=D(B.elm,T);for(let R=0;R<W.remove.length;++R)W.remove[R](B,O);let M=(U=(K=B===null||B===void 0?void 0:B.data)===null||K===void 0?void 0:K.hook)===null||U===void 0?void 0:U.remove;if(M!==void 0)M(B,O);else O()}else if(B.children)b(B),g(z,B.children,0,B.children.length-1);else P.removeChild(z,B.elm)}}function C(z,X,Z,$){let K=0,U=0,T=X.length-1,B=X[0],O=X[T],M=Z.length-1,R=Z[0],H=Z[M],j,A,F,k;while(K<=T&&U<=M)if(B==null)B=X[++K];else if(O==null)O=X[--T];else if(R==null)R=Z[++U];else if(H==null)H=Z[--M];else if(w(B,R))Q(B,R,$),B=X[++K],R=Z[++U];else if(w(O,H))Q(O,H,$),O=X[--T],H=Z[--M];else if(w(B,H))Q(B,H,$),P.insertBefore(z,B.elm,P.nextSibling(O.elm)),B=X[++K],H=Z[--M];else if(w(O,R))Q(O,R,$),P.insertBefore(z,O.elm,B.elm),O=X[--T],R=Z[++U];else{if(j===void 0)j=A0(X,K,T);if(A=j[R.key],A===void 0)P.insertBefore(z,L(R,$),B.elm),R=Z[++U];else if(j[H.key]===void 0)P.insertBefore(z,L(H,$),P.nextSibling(O.elm)),H=Z[--M];else{if(F=X[A],F.sel!==R.sel)P.insertBefore(z,L(R,$),B.elm);else Q(F,R,$),X[A]=void 0,P.insertBefore(z,F.elm,B.elm);R=Z[++U]}}if(U<=M)k=Z[M+1]==null?null:Z[M+1].elm,S(z,k,Z,U,M,$);if(K<=T)g(z,X,K,T)}function Q(z,X,Z){var $,K,U,T,B,O,M,R;let H=($=X.data)===null||$===void 0?void 0:$.hook;(K=H===null||H===void 0?void 0:H.prepatch)===null||K===void 0||K.call(H,z,X);let j=X.elm=z.elm;if(z===X)return;if(X.data!==void 0||X.text!==void 0&&X.text!==z.text){(U=X.data)!==null&&U!==void 0||(X.data={}),(T=z.data)!==null&&T!==void 0||(z.data={});for(let k=0;k<W.update.length;++k)W.update[k](z,X);(M=(O=(B=X.data)===null||B===void 0?void 0:B.hook)===null||O===void 0?void 0:O.update)===null||M===void 0||M.call(O,z,X)}let A=z.children,F=X.children;if(X.text===void 0){if(A!==void 0&&F!==void 0){if(A!==F)C(j,A,F,Z)}else if(F!==void 0){if(z.text!==void 0)P.setTextContent(j,"");S(j,null,F,0,F.length-1,Z)}else if(A!==void 0)g(j,A,0,A.length-1);else if(z.text!==void 0)P.setTextContent(j,"")}else if(z.text!==X.text){if(A!==void 0)g(j,A,0,A.length-1);P.setTextContent(j,X.text)}(R=H===null||H===void 0?void 0:H.postpatch)===null||R===void 0||R.call(H,z,X)}return function z(X,Z){let $,K,U,T=[];for($=0;$<W.pre.length;++$)W.pre[$]();if(D0(P,X))X=Y(X);else if(j0(P,X))X=q(X);if(w(X,Z))Q(X,Z,T);else if(K=X.elm,U=P.parentNode(K),L(Z,T),U!==null)P.insertBefore(U,Z.elm,P.nextSibling(K)),g(U,[X],0,0);for($=0;$<T.length;++$)T[$].data.hook.insert(T[$]);for($=0;$<W.post.length;++$)W.post[$]();return Z}}var n=typeof(window===null||window===void 0?void 0:window.requestAnimationFrame)==="function"?window.requestAnimationFrame.bind(window):setTimeout,Q0=(f)=>{n(()=>{n(f)})},V=!1;function g0(f,G,J){Q0(()=>{f[G]=J})}function d(f,G){let J,W,P=G.elm,Y=f.data.style,q=G.data.style;if(!Y&&!q)return;if(Y===q)return;Y=Y||{},q=q||{};let D="delayed"in Y;for(W in Y)if(!(W in q))if(W[0]==="-"&&W[1]==="-")P.style.removeProperty(W);else P.style[W]="";for(W in q)if(J=q[W],W==="delayed"&&q.delayed){for(let L in q.delayed)if(J=q.delayed[L],!D||J!==Y.delayed[L])g0(P.style,L,J)}else if(W!=="remove"&&J!==Y[W])if(W[0]==="-"&&W[1]==="-")P.style.setProperty(W,J);else P.style[W]=J}function k0(f){let G,J,W=f.elm,P=f.data.style;if(!P||!(G=P.destroy))return;for(J in G)W.style[J]=G[J]}function b0(f,G){let J=f.data.style;if(!J||!J.remove){G();return}if(!V)f.elm.offsetLeft,V=!0;let W,P=f.elm,Y=0,q=J.remove,D=0,L=[];for(W in q)L.push(W),P.style[W]=q[W];let b=getComputedStyle(P)["transition-property"].split(", ");for(;Y<b.length;++Y)if(L.indexOf(b[Y])!==-1)D++;P.addEventListener("transitionend",(g)=>{if(g.target===P)--D;if(D===0)G()})}function y0(){V=!1}var e={pre:y0,create:d,update:d,destroy:k0,remove:b0};function p(f,G,J){if(f.ns="http://www.w3.org/2000/svg",J!=="foreignObject"&&G!==void 0)for(let W=0;W<G.length;++W){let P=G[W];if(typeof P==="string")continue;let Y=P.data;if(Y!==void 0)p(Y,P.children,P.sel)}}function N0(f){return f.slice(5).replace(/-([a-z])/g,(G,J)=>J.toUpperCase())}function f0(f,G){var J;let W=G!==void 0?G:E,P;if(W.isElement(f)){let Y=f.id?"#"+f.id:"",q=(J=f.getAttribute("class"))===null||J===void 0?void 0:J.match(/[^\t\r\n\f ]+/g),D=q?"."+q.join("."):"",L=W.tagName(f).toLowerCase()+Y+D,S={},b={},g={},C=[],Q,z,X,Z=f.attributes,$=f.childNodes;for(z=0,X=Z.length;z<X;z++)if(Q=Z[z].nodeName,Q.startsWith("data-"))b[N0(Q)]=Z[z].nodeValue||"";else if(Q!=="id"&&Q!=="class")S[Q]=Z[z].nodeValue;for(z=0,X=$.length;z<X;z++)C.push(f0($[z],G));if(Object.keys(S).length>0)g.attrs=S;if(Object.keys(b).length>0)g.dataset=b;if(L.startsWith("svg")&&(L.length===3||L[3]==="."||L[3]==="#"))p(g,C,L);return y(L,g,C,void 0,f)}else if(W.isText(f))return P=W.getTextContent(f),y(void 0,void 0,void 0,P,f);else if(W.isComment(f))return P=W.getTextContent(f),y("!",{},[],P,f);else return y("",{},[],void 0,f)}function l0(){return o([m,l,e])}export{y as vnode,f0 as toVNode,l0 as initWithModules};
1+function m(f,G){let z,W=G.elm,X=f.data.attrs,Z=G.data.attrs;if(!X&&!Z)return;if(X===Z)return;X=X||{},Z=Z||{};for(z in Z){let K=Z[z];if(X[z]!==K)if(K===!0)W.setAttribute(z,"");else if(K===!1)W.removeAttribute(z);else if(z.charCodeAt(0)!==120)W.setAttribute(z,K);else if(z.charCodeAt(3)===58)W.setAttributeNS("http://www.w3.org/XML/1998/namespace",z,K);else if(z.charCodeAt(5)===58)z.charCodeAt(1)===109?W.setAttributeNS("http://www.w3.org/2000/xmlns/",z,K):W.setAttributeNS("http://www.w3.org/1999/xlink",z,K);else W.setAttribute(z,K)}for(z in X)if(!(z in Z))W.removeAttribute(z)}var s={create:m,update:m};function r(f,G,z){if(typeof f==="function")f.call(G,z,G);else if(typeof f==="object")for(let W=0;W<f.length;W++)r(f[W],G,z)}function G0(f,G){let z=f.type,W=G.data.on;if(W&&W[z])r(W[z],G,f)}function J0(){return function f(G){G0(G,f.vnode)}}function x(f,G){let z=f.data.on,W=f.listener,X=f.elm,Z=G&&G.data.on,K=G&&G.elm,U;if(z===Z)return;if(z&&W){if(!Z)for(U in z)X.removeEventListener(U,W,!1);else for(U in z)if(!Z[U])X.removeEventListener(U,W,!1)}if(Z){let D=G.listener=f.listener||J0();if(D.vnode=G,!z)for(U in Z)K.addEventListener(U,D,!1);else for(U in Z)if(!z[U])K.addEventListener(U,D,!1)}}var l={create:x,update:x,destroy:x};function N(f,G,z,W,X){let Z=G===void 0?void 0:G.key;return{sel:f,data:G,children:z,text:W,elm:X,key:Z}}var u=Array.isArray;function a(f){return typeof f==="string"||typeof f==="number"||f instanceof String||f instanceof Number}function Y0(f,G){return document.createElement(f,G)}function Z0(f,G,z){return document.createElementNS(f,G,z)}function $0(){return I(document.createDocumentFragment())}function B0(f){return document.createTextNode(f)}function q0(f){return document.createComment(f)}function K0(f,G,z){if(S(f)){let W=f;while(W&&S(W))W=I(W).parent;f=W!==null&&W!==void 0?W:f}if(S(G))G=I(G,f);if(z&&S(z))z=I(z).firstChildNode;f.insertBefore(G,z)}function P0(f,G){f.removeChild(G)}function H0(f,G){if(S(G))G=I(G,f);f.appendChild(G)}function t(f){if(S(f)){while(f&&S(f))f=I(f).parent;return f!==null&&f!==void 0?f:null}return f.parentNode}function O0(f){var G;if(S(f)){let z=I(f),W=t(z);if(W&&z.lastChildNode){let X=Array.from(W.childNodes),Z=X.indexOf(z.lastChildNode);return(G=X[Z+1])!==null&&G!==void 0?G:null}return null}return f.nextSibling}function U0(f){return f.tagName}function R0(f,G){f.textContent=G}function T0(f){return f.textContent}function L0(f){return f.nodeType===1}function M0(f){return f.nodeType===3}function D0(f){return f.nodeType===8}function S(f){return f.nodeType===11}function I(f,G){var z,W,X;let Z=f;return(z=Z.parent)!==null&&z!==void 0||(Z.parent=G!==null&&G!==void 0?G:null),(W=Z.firstChildNode)!==null&&W!==void 0||(Z.firstChildNode=f.firstChild),(X=Z.lastChildNode)!==null&&X!==void 0||(Z.lastChildNode=f.lastChild),Z}var E={createElement:Y0,createElementNS:Z0,createTextNode:B0,createDocumentFragment:$0,createComment:q0,insertBefore:K0,removeChild:P0,appendChild:H0,parentNode:t,nextSibling:O0,tagName:U0,setTextContent:R0,getTextContent:T0,isElement:L0,isText:M0,isComment:D0,isDocumentFragment:S};var V=N("",{},[],void 0,void 0);function w(f,G){var z,W;let X=f.key===G.key,Z=((z=f.data)===null||z===void 0?void 0:z.is)===((W=G.data)===null||W===void 0?void 0:W.is),K=f.sel===G.sel,U=!f.sel&&f.sel===G.sel?typeof f.text===typeof G.text:!0;return K&&X&&Z&&U}function A0(){throw new Error("The document fragment is not supported on this platform.")}function j0(f,G){return f.isElement(G)}function F0(f,G){return f.isDocumentFragment(G)}function Q0(f,G,z){var W;let X={};for(let Z=G;Z<=z;++Z){let K=(W=f[Z])===null||W===void 0?void 0:W.key;if(K!==void 0)X[K]=Z}return X}var g0=["create","update","remove","destroy","pre","post"];function n(f,G,z){let W={create:[],update:[],remove:[],destroy:[],pre:[],post:[]},X=G!==void 0?G:E;for(let J of g0)for(let Y of f){let $=Y[J];if($!==void 0)W[J].push($)}function Z(J){let Y=J.id?"#"+J.id:"",$=J.getAttribute("class"),B=$?"."+$.split(" ").join("."):"";return N(X.tagName(J).toLowerCase()+Y+B,{},[],void 0,J)}function K(J){return N(void 0,{},[],void 0,J)}function U(J,Y){return function $(){if(--Y===0){let B=X.parentNode(J);if(B!==null)X.removeChild(B,J)}}}function D(J,Y){var $,B,P,O,L;let q,R=J.data,M=R===null||R===void 0?void 0:R.hook;($=M===null||M===void 0?void 0:M.init)===null||$===void 0||$.call(M,J);let{children:T,sel:H}=J;if(H==="!")(B=J.text)!==null&&B!==void 0||(J.text=""),J.elm=X.createComment(J.text);else if(H==="")J.elm=X.createTextNode(J.text);else if(H!==void 0){let A=H.indexOf("#"),j=H.indexOf(".",A),F=A>0?A:H.length,b=j>0?j:H.length,i=A!==-1||j!==-1?H.slice(0,Math.min(F,b)):H,p=R===null||R===void 0?void 0:R.ns,_=p===void 0?X.createElement(i,R):X.createElementNS(p,i,R);if(J.elm=_,F<b)_.setAttribute("id",H.slice(F+1,b));if(j>0)_.setAttribute("class",H.slice(b+1).replace(/\./g," "));for(q=0;q<W.create.length;++q)W.create[q](V,J);if(a(J.text)&&(!u(T)||T.length===0))X.appendChild(_,X.createTextNode(J.text));if(u(T))for(q=0;q<T.length;++q){let v=T[q];if(v!=null)X.appendChild(_,D(v,Y))}if(M!==void 0){if((P=M.create)===null||P===void 0||P.call(M,V,J),M.insert!==void 0)Y.push(J)}}else if(((O=z===null||z===void 0?void 0:z.experimental)===null||O===void 0?void 0:O.fragments)&&J.children){J.elm=((L=X.createDocumentFragment)!==null&&L!==void 0?L:A0)();for(q=0;q<W.create.length;++q)W.create[q](V,J);for(q=0;q<J.children.length;++q){let A=J.children[q];if(A!=null)X.appendChild(J.elm,D(A,Y))}}else J.elm=X.createTextNode(J.text);return J.elm}function y(J,Y,$,B,P,O){for(;B<=P;++B){let L=$[B];if(L!=null)X.insertBefore(J,D(L,O),Y)}}function k(J){var Y,$;let B=J.data;if(B!==void 0){($=(Y=B===null||B===void 0?void 0:B.hook)===null||Y===void 0?void 0:Y.destroy)===null||$===void 0||$.call(Y,J);for(let P=0;P<W.destroy.length;++P)W.destroy[P](J);if(J.children!==void 0)for(let P=0;P<J.children.length;++P){let O=J.children[P];if(O!=null&&typeof O!=="string")k(O)}}}function g(J,Y,$,B){var P,O;for(;$<=B;++$){let L,q=Y[$];if(q!=null)if(q.sel!==void 0){k(q),L=W.remove.length+1;let R=U(q.elm,L);for(let T=0;T<W.remove.length;++T)W.remove[T](q,R);let M=(O=(P=q===null||q===void 0?void 0:q.data)===null||P===void 0?void 0:P.hook)===null||O===void 0?void 0:O.remove;if(M!==void 0)M(q,R);else R()}else if(q.children)k(q),g(J,q.children,0,q.children.length-1);else X.removeChild(J,q.elm)}}function C(J,Y,$,B){let P=0,O=0,L=Y.length-1,q=Y[0],R=Y[L],M=$.length-1,T=$[0],H=$[M],A,j,F,b;while(P<=L&&O<=M)if(q==null)q=Y[++P];else if(R==null)R=Y[--L];else if(T==null)T=$[++O];else if(H==null)H=$[--M];else if(w(q,T))Q(q,T,B),q=Y[++P],T=$[++O];else if(w(R,H))Q(R,H,B),R=Y[--L],H=$[--M];else if(w(q,H))Q(q,H,B),X.insertBefore(J,q.elm,X.nextSibling(R.elm)),q=Y[++P],H=$[--M];else if(w(R,T))Q(R,T,B),X.insertBefore(J,R.elm,q.elm),R=Y[--L],T=$[++O];else{if(A===void 0)A=Q0(Y,P,L);if(j=A[T.key],j===void 0)X.insertBefore(J,D(T,B),q.elm),T=$[++O];else if(A[H.key]===void 0)X.insertBefore(J,D(H,B),X.nextSibling(R.elm)),H=$[--M];else{if(F=Y[j],F.sel!==T.sel)X.insertBefore(J,D(T,B),q.elm);else Q(F,T,B),Y[j]=void 0,X.insertBefore(J,F.elm,q.elm);T=$[++O]}}if(O<=M)b=$[M+1]==null?null:$[M+1].elm,y(J,b,$,O,M,B);if(P<=L)g(J,Y,P,L)}function Q(J,Y,$){var B,P,O,L,q,R,M,T;let H=(B=Y.data)===null||B===void 0?void 0:B.hook;(P=H===null||H===void 0?void 0:H.prepatch)===null||P===void 0||P.call(H,J,Y);let A=Y.elm=J.elm;if(J===Y)return;if(Y.data!==void 0||Y.text!==void 0&&Y.text!==J.text){(O=Y.data)!==null&&O!==void 0||(Y.data={}),(L=J.data)!==null&&L!==void 0||(J.data={});for(let b=0;b<W.update.length;++b)W.update[b](J,Y);(M=(R=(q=Y.data)===null||q===void 0?void 0:q.hook)===null||R===void 0?void 0:R.update)===null||M===void 0||M.call(R,J,Y)}let j=J.children,F=Y.children;if(Y.text===void 0){if(j!==void 0&&F!==void 0){if(j!==F)C(A,j,F,$)}else if(F!==void 0){if(J.text!==void 0)X.setTextContent(A,"");y(A,null,F,0,F.length-1,$)}else if(j!==void 0)g(A,j,0,j.length-1);else if(J.text!==void 0)X.setTextContent(A,"")}else if(J.text!==Y.text){if(j!==void 0)g(A,j,0,j.length-1);X.setTextContent(A,Y.text)}(T=H===null||H===void 0?void 0:H.postpatch)===null||T===void 0||T.call(H,J,Y)}return function J(Y,$){let B,P,O,L=[];for(B=0;B<W.pre.length;++B)W.pre[B]();if(j0(X,Y))Y=Z(Y);else if(F0(X,Y))Y=K(Y);if(w(Y,$))Q(Y,$,L);else if(P=Y.elm,O=X.parentNode(P),D($,L),O!==null)X.insertBefore(O,$.elm,X.nextSibling(P)),g(O,[Y],0,0);for(B=0;B<L.length;++B)L[B].data.hook.insert(L[B]);for(B=0;B<W.post.length;++B)W.post[B]();return $}}var o=typeof(window===null||window===void 0?void 0:window.requestAnimationFrame)==="function"?window.requestAnimationFrame.bind(window):setTimeout,b0=(f)=>{o(()=>{o(f)})},c=!1;function k0(f,G,z){b0(()=>{f[G]=z})}function d(f,G){let z,W,X=G.elm,Z=f.data.style,K=G.data.style;if(!Z&&!K)return;if(Z===K)return;Z=Z||{},K=K||{};let U="delayed"in Z;for(W in Z)if(!(W in K))if(W[0]==="-"&&W[1]==="-")X.style.removeProperty(W);else X.style[W]="";for(W in K)if(z=K[W],W==="delayed"&&K.delayed){for(let D in K.delayed)if(z=K.delayed[D],!U||z!==Z.delayed[D])k0(X.style,D,z)}else if(W!=="remove"&&z!==Z[W])if(W[0]==="-"&&W[1]==="-")X.style.setProperty(W,z);else X.style[W]=z}function N0(f){let G,z,W=f.elm,X=f.data.style;if(!X||!(G=X.destroy))return;for(z in G)W.style[z]=G[z]}function S0(f,G){let z=f.data.style;if(!z||!z.remove){G();return}if(!c)f.elm.offsetLeft,c=!0;let W,X=f.elm,Z=0,K=z.remove,U=0,D=[];for(W in K)D.push(W),X.style[W]=K[W];let k=getComputedStyle(X)["transition-property"].split(", ");for(;Z<k.length;++Z)if(D.indexOf(k[Z])!==-1)U++;X.addEventListener("transitionend",(g)=>{if(g.target===X)--U;if(U===0)G()})}function y0(){c=!1}var e={pre:y0,create:d,update:d,destroy:N0,remove:S0};function f0(f,G){let z,W,X,Z=G.elm,K=f.data.props,U=G.data.props;if(!K&&!U)return;if(K===U)return;K=K||{},U=U||{};for(z in U)if(W=U[z],X=K[z],X!==W&&(z!=="value"||Z[z]!==W))Z[z]=W}var W0={create:f0,update:f0};function h(f,G,z){if(f.ns="http://www.w3.org/2000/svg",z!=="foreignObject"&&G!==void 0)for(let W=0;W<G.length;++W){let X=G[W];if(typeof X==="string")continue;let Z=X.data;if(Z!==void 0)h(Z,X.children,X.sel)}}function I0(f){return f.slice(5).replace(/-([a-z])/g,(G,z)=>z.toUpperCase())}function z0(f,G){var z;let W=G!==void 0?G:E,X;if(W.isElement(f)){let Z=f.id?"#"+f.id:"",K=(z=f.getAttribute("class"))===null||z===void 0?void 0:z.match(/[^\t\r\n\f ]+/g),U=K?"."+K.join("."):"",D=W.tagName(f).toLowerCase()+Z+U,y={},k={},g={},C=[],Q,J,Y,$=f.attributes,B=f.childNodes;for(J=0,Y=$.length;J<Y;J++)if(Q=$[J].nodeName,Q.startsWith("data-"))k[I0(Q)]=$[J].nodeValue||"";else if(Q!=="id"&&Q!=="class")y[Q]=$[J].nodeValue;for(J=0,Y=B.length;J<Y;J++)C.push(z0(B[J],G));if(Object.keys(y).length>0)g.attrs=y;if(Object.keys(k).length>0)g.dataset=k;if(D.startsWith("svg")&&(D.length===3||D[3]==="."||D[3]==="#"))h(g,C,D);return N(D,g,C,void 0,f)}else if(W.isText(f))return X=W.getTextContent(f),N(void 0,void 0,void 0,X,f);else if(W.isComment(f))return X=W.getTextContent(f),N("!",{},[],X,f);else return N("",{},[],void 0,f)}function o0(){return n([s,l,e,W0])}export{N as vnode,z0 as toVNode,o0 as initWithModules};
plum/src/Snabbdom.purs+2
@@ -25,6 +25,7 @@ h
2525 -> { attrs :: Object String
2626 , on :: Object (Event -> Effect Unit)
2727 , style :: Object String
28+ , props :: Object String
2829 }
2930 -> Array VNode
3031 -> (String |+| Undefined)
@@ -35,6 +36,7 @@ h tag props children text = runFn4 vnode
3536 :: { attrs :: Object String
3637 , on :: Object (EffectFn1 Event Unit)
3738 , style :: Object String
39+ , props :: Object String
3840 }
3941 )
4042 children