нУЁh,Cє;О !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~─│┌┐└┘├┤┬┴┼▀▄█▌▐░▒▓⌠■∙√≈≤≥ ⌡°²·÷═║╒ёє╔ії╗╘╙╚╛ґў╞╟╠╡ЁЄ╣ІЇ╦╧╨╩╪ҐЎ©юабцдефгхийклмнопярстужвьызшэщчъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗШЭЩЧЪ─│┌┐└┘├┤┬┴┼▀▄█▌▐░▒▓⌠■∙√≈≤≥ ⌡°²·÷═║╒ёє╔ії╗╘╙╚╛ґў╞╟╠╡ЁЄ╣ІЇ╦╧╨╩╪ҐЎ©юабцдефгхийклмнопярстужвьызш э щ ч ъ Ю А Б Ц Д Е Ф Г Х И Й К Л М Н 0.6.2 None"%ИЭБОПЯРСТУЖNone"%ИЭ lweb-view:Default CSS to remove unintuitive default styles. This or is required.ьimport Data.String.Interpolate (i) toDocument :: ByteString -> ByteString toDocument cnt = [i| #{cnt} |]web-view.Alternatively, the reset is available on a CDNвimport Data.String.Interpolate (i) toDocument :: ByteString -> ByteString toDocument cnt = [i| #{cnt} |]None"%=>юИЭ web-viewюHexidecimal Color. Can be specified with or without the leading #п. Recommended to use an AppColor type instead of manually using hex colors. See web-viewиToColor allows you to create a type containing your application's colors:Дdata AppColor = White | Primary | Dark instance ToColor AppColor where colorValue White = "#FFF" colorValue Dark = "#333" colorValue Primary = "#00F" hello :: View c () hello = el (bg Primary . color White) "Hello"web-viewЫElement's attributes do not include class, which is separated. FlatAttributes generate the class attribute and include itweb-viewЛOptions for styles that support specifying various sides. This has a "fake" Num instance to support literals+border 5 border (X 2) border (TRBL 0 5 0 0)web-viewэMedia allows for responsive designs that change based on characteristics of the window. See йhttps://github.com/seanhess/web-view/blob/master/example/Example/Layout.hsLayout Exampleweb-view"Milliseconds, used for transitions!web-view╛Px, converted to Rem. Allows for the user to change the document font size and have the app scale accordingly. But allows the programmer to code in pixels to match a design&web-view(Use a type as a css style property value(web-view!The value of a css style property*web-viewоPsuedos allow for specifying styles that only apply in certain conditions. See etc0el (color Primary . hover (color White)) "hello"/web-viewБConvert a type into a className segment to generate unique compound style names based on the value1web-viewA class name4web-view)The selector to use for the given atomic @;web-viewA child selector limits>web-viewъA parent selector limits the selector to only apply when a descendent of the parent in question?web-view'The styles to apply for a given atomic @@web-view>Atomic classes include a selector and the corresponding stylesDweb-view!All the atomic classes used in a Eweb-viewЩElement functions expect a modifier function as their first argument. These can add attributes and classes. Combine multiple Es with (В)⌠userEmail :: User -> View c () userEmail user = input (fontSize 16 . active) (text user.email) where active = isActive user then bold else id9If you don't want to specify any attributes, you can use Ь4plainView :: View c () plainView = el id "No styles"Iweb-viewThe Attributes for an Mф. Classes are merged and managed separately from the other attributes.Mweb-view┌A single HTML tag. Note that the class attribute is stored separately from the rest of the attributes to make adding styles easierVweb-viewRaw embedded HTML or SVG. See Wweb-viewConstruct an ElementXweb-view Create a 4 given only a 1Yweb-view0Create a class name, escaping special charactersr\aвYWX >FHIJLKD;<=@ABC123STVUMNPORQ #%$E G*,-+.!"45986:7()?/0 &'зSVUTMOPNRQWILKJHGFED@BCA?>;=<46789:5X123Y/0\*.-,+()&'a#%$!" r None "#%&=>ДИЭ!┬╩web-viewSet to a specific width╪web-viewSet to a specific heightҐweb-viewеAllow width to grow to contents but not shrink any smaller than valueЎweb-viewфAllow height to grow to contents but not shrink any smaller than value©web-view-Space surrounding the children of the element7To create even spacing around and between all elements:юcol (pad 10 . gap 10) $ do el_ "one" el_ "two" el_ "three"юweb-view&The space between child elements. See ©бweb-viewAdd a drop shadow to an elementаinput (shadow Inner) "Inset Shadow" button (shadow ()) "Click Me"цweb-view Round the corners of the elementдweb-viewSet the background color. See еweb-viewSet the text color. See иweb-viewSet the list style of an itemъol id $ do li (list Decimal) "First" li (list Decimal) "Second" li (list Decimal) "Third"кweb-viewSet a border around the elementаel (border 1) "all sides" el (border (X 1)) "only left and right"лweb-viewSet a border color. See мweb-view7Use a button-like cursor when hovering over the elementButton-like elements:Оbtn = pointer . bg Primary . hover (bg PrimaryLight) options = row id $ do el btn "Login" el btn "Sign Up"нweb-view%Animate changes to the given propertyпel (transition 100 (Height 400)) "Tall" el (transition 100 (Height 100)) "Small"пweb-view*Set Top, Right, Bottom and Left. Requires я Absolute or Fixed. Also see яweb-viewposition:absolute. See stack and popoutсweb-viewSet container displayel (display None) HIDDENтweb-view#Apply when hovering over an element1el (bg Primary . hover (bg PrimaryLight)) "Hover"уweb-view2Apply when the mouse is pressed down on an elementжweb-viewApply to even-numbered childrenвweb-viewApply to odd-numbered childrenьweb-viewсApply when the Media matches the current window. This allows for responsive designsиel (width 100 . media (MinWidth 800) (width 400)) "Big if window > 800"ыweb-view8Apply when the element is somewhere inside an anscestor.▓For example, the HTMX library applies an "htmx-request" class to the body when a request is pending. We can use this to create a loading indicator├el (pad 10) $ do el (parent "htmx-request" flexRow . hide) "Loading..." el (parent "htmx-request" hide . flexRow) "Normal Content"эweb-viewAdd a single classТwidth :: PxRem -> Mod width n = addClass $ cls ("w" -. n) & prop "width" n & prop @Int "flex-shrink" 0щweb-view"Construct a class from a ClassNameчweb-view┘Construct a mod from a ClassName with no CSS properties. Convenience for situations where external CSS classes need to be referenced.8el (extClass "btn" . extClass "btn-primary") "Click me!"ъweb-viewAdd a property to a classЮweb-viewHyphenate classnamesА:Юуэздфклщесжчаю╪тгишьЎҐвпй©ымяъцбонх╩р╘╙╦╧╣ІЇ╚╛ґ╞ў╨ї╗╟ЁЄ╡╠;╩╪ҐЎ©юаб╨╦╧цдефгхи╣ЇІйклмн╟ЄЁ╠╡опя╚╞ў╛ґрс╘╙тужвьызшэщчъЮї╗АЮNone"%ИЭ"═ЩЧЭ─ЪШУЖЫЬВЗШЭЩЧУВЫЗЖЬЪ─None"#%1юИЭ(²▀web-view(Views are HTML fragments that carry all D used by any child element.сview :: View c () view = col (pad 10 . gap 10) $ do el bold "Hello" el_ "World"БThey can also have a context which can be used to create type-safe or context-aware elements. See ▐ or for an example▌web-viewExtract the ┤ from a ▀▐web-view Views have a ЫЧ built-in for convienient access to static data, and to add type-safety to view functions. See 'Web.View.Element.ListItem and еhttps://hackage.haskell.org/package/hyperbole/docs/Web-Hyperbole.htmlОnumberView :: View Int () numberView = do num <- context el_ $ do "Number: " text (pack $ show num)░web-viewRun a view with a specific ▐ in a parent ▀ with a different context.Ж parentView :: View c () parentView = do addContext 1 numberView addContext 2 numberView addContext 3 numberView∙web-view-Inserts contents into the first child element√web-view8Create a new element constructor with the given tag name

View c () -> View c () aside = tag "aside"≈web-view┤Create a new element constructor with a custom element - > span :: Mod c -> View c () -> View c () > span = tag' (Element True) "span"≤web-view*Set an attribute, replacing existing valueэhlink :: Text -> View c () -> View c () hlink url content = tag "a" (att "href" url) content░≤▐▌√≈⌠■∙▒▓▀▄█┤┬┼┴▀█▄┤┼┴┬▌▐░▒▓⌠■∙√≈≤None"#%ДИЭ+іweb-view Renders a ▀, as HTML with embedded CSS class definitionsrenderText $ el bold "Hello"9

Hello

╘web-viewRender lines to text╙web-view&Render with the specified view context renderText' () $ el bold "Hello"╟web-viewThe css selector for this style╠web-viewцUnique name for the class, as seen in the element's class attributeЁweb-viewThe $ for an element, inclusive of class.ґ╠Ё╞╡ў╚╗ї╘╛і╙╟║╒╔єё·═÷ії╗║╔╒ёє·÷═╘╙╚╛ґў╞╟╠╡ЁNone"%1юИЭ/┬юweb-viewA basic elementel (bold . pad 10) "Hello"аweb-view"A basic element, with no modifiersel_ "Hello"бweb-view4Add text to a view. Not required for string literals%el_ $ do "Hello: " text user.nameцweb-view:Embed static, unescaped HTML or SVG. Take care not to use ц with user-generated content.spinner = raw ""дweb-viewDo not show any content%if isVisible then content else noneгweb-viewA hyperlink to the given urlяweb-view3Create a type safe data table by specifying columnsИusersTable :: [User] -> View c () usersTable us = do table id us $ do tcol (th hd "Name") $ \u -> td cell $ text u.name tcol (th hd "Email") $ \u -> td cell $ text u.email where hd = cell . bold cell = pad 4 . border 1уweb-viewьList elements do not include any inherent styling but are useful for accessibility. See .рol id $ do let nums = list Decimal li nums "one" li nums "two" li nums "three" мфюахилвгйдуецнопяртбсжк╦╧╨╩╪ҐЎ© юабцдефгхийклмнопярстЎ©╨╪Ґ╩╦╧ужв None"%юИЭ8zшweb-viewA popout does notщweb-view7We can intuitively create layouts with combinations of Ю, ъ, Е, А, and БWrap main content in щ3 to allow the view to consume vertical screen space holygrail :: ▀ c () holygrail = щ id $ do Ю section "Top Bar" Ю А $ do ъ section "Left Sidebar" ъ (section . А) "Main Content" ъ section "Right Sidebar" Ю( section "Bottom Bar" where section = к 1 чweb-viewAs щ but as a Eholygrail = col root $ do ...ъweb-viewLay out children in a column.3col grow $ do el_ "Top" space el_ "Bottom"Юweb-viewLay out children in a row1row id $ do el_ "Left" space el_ "Right"Аweb-view/Grow to fill the available space in the parent or &row id $ do el grow none el_ "Right"Бweb-view3Space that fills the available space in the parent or .row id $ do space el_ "Right",This is equivalent to an empty element with Аspace = el grow noneЦweb-view Make a fixed щ by putting Ц on a child-elementыdocument = row root $ do nav (width 300) "Sidebar" col (grow . scroll) "Main Content"Дweb-view A Nav elementЕweb-viewхStack children on top of each other. Each child has the full width. See Глstack id $ do row id "Background" row (bg Black . opacity 0.5) "Overlay"Фweb-view4A normal layer contributes to the size of the parentГweb-viewThis child of a Ео can pop out of the parent, covering content outside of it. Only usable inside ЕІstack id $ do layer id $ input (value "Autocomplete Box") layer (popout (TRBL 50 0 0 0)) $ do el_ "Item 1" el_ "Item 2" el_ "Item 3" el_ "This is covered by the menu"Хweb-viewHide an element. See сИweb-view!Set container to be a row. Favor when possibleЙweb-view$Set container to be a column. Favor when possibleКweb-view#Cut off the contents of the elementъЙИАХФщДГчЮЦБЕКшэщчъЮАБЦДЕшэФГХИЙК(c) 2023 Sean HessBSD3Sean Hess experimentalportableNone"%ИЭ9/▒мфюахилвгйдуецнопяртбсжкъЙИАХФщДГчЮЦБЕК╗їіудфклесжаю╪тгиьЎҐвпй©ымяцбонх╩рЩЧЭ─Ъ░≤▐√╨Ўш╘╙╦╧╣ІЇ╚╛ґ╞ў╨╟ЁЄ╡╠ #%$E! ШУЖЫЬВЗ▀└ії╗▀EюащчъЮБДЕшФГЦАИЙХКбцдефхийклгмужвярстЎ╨ноп╩╪ҐЎ©юйб╨╦╧цаедфгхклмя╚ґ╛ў╞про и╣ІЇс╘╙н╟╡╠ЁЄтужвьы▐░√≤!#$% r З !"#$%&&'()))*+,-./01234567889:;9<=>??@ABCDEFGGGHIIIJIKILIMINOPQRSTTTUTVWXYZ[\]^^^_^*^`^abcdefVJghijklmnopqrstuvwxyz{|}~─│┌┐└┘├┤┬┴┼▀▄█▌▐░▒▓⌠■∙√≈≤≥ ⌡°²·÷═║╒ёє╔ії╗╘╙╚╛ґў╞╟╠╡ЁЄ╣ІЇ╦╧╨╩╪ҐЎ©юаббцдефгхийклмнопярстужвьызш эщчNъЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЗЗЗШЗЭЗЩЗЧЪ─│┌┐└┘├┤┬┴┼▀▀▀▄▀█▌▐░▒▓⌠■∙√≈≤≥ ⌡°²·÷═║╒╒╒H╒ё╒є╔ії╗╘╙╚╛ґёў╞╟╠╡ЁЄ╣ІІЇЇЇ╦Ї╧╨╨╩╪HҐЎ©юаб`цдефгхийклмнопя р р с т у ж в ь ы з ш э щ ч ъ Ю А БЦДЕФГХИЙКЛМКЛНОПЯРweb-view-0.6.2-inplaceWeb.ViewWeb.View.ResetWeb.View.TypesWeb.View.StyleWeb.View.Types.Url Web.View.ViewWeb.View.RenderWeb.View.ElementWeb.View.Layoutweb-viewPaths_web_viewToColorhoverViewraw$dmcolorName$dmtoClassName$dmtoStyleValuepopup $dmstyleValue6table Attributeslistrowcolhttp-typs-0.12.4-0ae84358Network.HTTP.Types.URIQuery cssResetEmbedcssResetLinkNoneAlignAlignCenter AlignLeft AlignRightAlignJustifyHexColor colorValue colorNameFlatAttributes attributesSidesAllTRBLXYXYTRBLMediaMinWidthMaxWidthMsPxRemPxRem'LengthPctToStyleValuetoStyleValue StyleValuePseudoHoverActiveEvenOddToClassNametoClassName ClassNametextSelector classNamepseudochildancestormediaChildCombinatorAllChildren ChildWithNameAncestorStylesClass propertiesselectorCSSModAttValueName AttributeotherclassesElementchildrennameinlineContentNodeTextRawelement$fIsStringChildCombinator$fIsStringClassName$fToClassNameUnit$fToClassNameFloat$fToClassNameText$fToClassNameInt$fToStyleValueStyleValue$fToStyleValueFloat$fToStyleValueInt$fToStyleValueText$fToStyleValueList$fToStyleValuePxRem$fToStyleValueLength$fNumLength$fToClassNameLength$fToStyleValueMs$fIsStringSelector$fMonoidAttributes$fSemigroupAttributes $fNumSides$fIsStringHexColor$fToStyleValueHexColor$fToClassNameHexColor$fToColorHexColor$fToStyleValueAlign $fShowNone$fToClassNameNone$fToStyleValueNone$fShowAlign$fToClassNameAlign$fShowHexColor$fGenericFlatAttributes $fShowElement$fEqElement $fShowContent$fEqContent$fShowAttributes$fEqAttributes$fShowClass $fEqClass$fEqSelector $fOrdSelector$fShowSelector $fEqMedia $fOrdMedia$fShowMedia$fShowMs$fNumMs$fToClassNameMs$fShowLength$fShowPxRem$fToClassNamePxRem $fNumPxRem $fEqPxRem$fIntegralPxRem$fRealPxRem $fOrdPxRem$fEnumPxRem$fIsStringStyleValue$fShowStyleValue$fEqStyleValue$fMonoidStyleValue$fSemigroupStyleValue$fShowPseudo $fEqPseudo$fOrdPseudo $fEqClassName$fOrdClassName$fShowClassName$fMonoidClassName$fSemigroupClassName$fShowChildCombinator$fEqChildCombinator$fOrdChildCombinatorStyle styleValueDisplayBlockPositionAbsoluteFixedStickyRelativeTransitionPropertyWidthHeightBgColorColorListTypeDecimalDiscInnerShadowwidthheightminWidth minHeightpadgapfontSizeshadowroundedbgcolorbolditalic underlineopacityborderborderColorpointer transition textAlignoffsetpositionzIndexdisplayactiveevenoddparentapplyPseudomapModClassaddClassclsextClassprop-.$fStyleTYPEDisplayNone$fStyleTYPEDisplayDisplay$fStyleTYPEListTypeNone$fStyleTYPEListTypeListType$fStyleTYPEShadowInner$fStyleTYPEShadowNone$fStyleTYPEShadowUnit $fShowDisplay$fToClassNameDisplay$fToStyleValueDisplay$fShowPosition$fToClassNamePosition$fToStyleValuePosition$fShowTransitionProperty$fShowListType$fToClassNameListType$fToStyleValueListType$fShowInner$fToClassNameInnerUrlquerypathdomainschemeSegmentpathUrlcleanSegmentpathSegmentsurl renderUrl$fMonoidUrl$fSemigroupUrl $fReadUrl $fShowUrl $fIsStringUrl$fEqUrl ViewStatecsscontents viewStaterunViewcontext addContextviewModContents viewModCssviewAddClassesviewAddContentviewInsertContentstagtag'att$fSemigroupViewState$fIsStringView $fFunctorView$fApplicativeView$fMonadViewLineEndNewlineInlineLineindentend renderTextrenderLazyTextrenderLazyByteStringrenderLinesrenderText' renderContent renderTag addIndent renderCSSselectorTextattributeClassName pseudoTextflatAttributes $fShowLine$fEqLine$fEqLineEnd $fShowLineEndListItemTableColumndataCellheadCell TableHeadelel_noneprecodelinkforminputvaluelabelbuttonscriptstyle stylesheettcolthtdolulli$fFunctorListItem$fApplicativeListItem$fMonadListItemLayerlayoutrootgrowspacescrollnavstacklayerpopouthideflexRowflexColtruncate$fFunctorLayer$fApplicativeLayer$fMonadLayer getBinDir getDataDirgetDataFileNamegetDynLibDir getLibDir getLibexecDir getSysconfDirversionbaseGHC.Base.idffctfl-cr-2.5.1.0-1f263afcEffectful.Reader.StaticReader