packages feed

htmx-lucid 0.1.0.0 → 0.2.0.0

raw patch · 5 files changed

+97/−98 lines, 5 filesdep +lucid2dep −lucid

Dependencies added: lucid2

Dependencies removed: lucid

Files

htmx-lucid.cabal view
@@ -1,6 +1,6 @@ cabal-version:      3.6 name:               htmx-lucid-version:            0.1.0.0+version:            0.2.0.0 synopsis:           Use htmx with lucid description:   Please see the README on GitHub at <https://github.com/JonathanLorimer/htmx#readme>@@ -35,7 +35,7 @@   build-depends:     , base   >=4.7      && <5     , htmx-    , lucid  >=2.9.12.1 && <2.11.20230408.0+    , lucid2 >=0.0.20221012     , text   >=2        && <3    default-language: Haskell2010
src/Htmx/Lucid/Core.hs view
@@ -12,69 +12,69 @@ import Htmx.Render import Htmx.Swap (Swap) import Lucid (Html, HtmlT, script_, src_)-import Lucid.Base (Attribute, makeAttribute)+import Lucid.Base (Attributes, makeAttributes)  -- | <https://htmx.org/attributes/hx-get/> -- issues a GET to the specified URL-hxGet_ :: Text -> Attribute-hxGet_ = makeAttribute "hx-get"+hxGet_ :: Text -> Attributes+hxGet_ = makeAttributes "hx-get"  -- | <https://htmx.org/attributes/hx-get/> -- issues a POST to the specified URL-hxPost_ :: Text -> Attribute-hxPost_ = makeAttribute "hx-post"+hxPost_ :: Text -> Attributes+hxPost_ = makeAttributes "hx-post"  -- | <https://htmx.org/attributes/hx-push-url/> -- push a URL into the browser location bar to create history-hxPushUrl_ :: Text -> Attribute-hxPushUrl_ = makeAttribute "hx-push-url"+hxPushUrl_ :: Text -> Attributes+hxPushUrl_ = makeAttributes "hx-push-url"  -- | <https://htmx.org/attributes/hx-select/> -- select content to swap in from a response-hxSelect_ :: Text -> Attribute-hxSelect_ = makeAttribute "hx-select"+hxSelect_ :: Text -> Attributes+hxSelect_ = makeAttributes "hx-select"  -- | <https://htmx.org/attributes/hx-select-oob/> -- select content to swap in from a response, somewhere other than the target -- (out of band)-hxSelectOob_ :: Text -> Attribute-hxSelectOob_ = makeAttribute "hx-select-oob"+hxSelectOob_ :: Text -> Attributes+hxSelectOob_ = makeAttributes "hx-select-oob"  -- | <https://htmx.org/attributes/hx-swap/> -- controls how content will swap in (outerHTML, beforeend, afterend, …)-hxSwap_ :: Text -> Attribute-hxSwap_ = makeAttribute "hx-swap"+hxSwap_ :: Text -> Attributes+hxSwap_ = makeAttributes "hx-swap"  -- | Like 'hxSwap' but takes a strongly typed swap style. -- This doesn't allow [modifiers](https://htmx.org/attributes/hx-swap/#modifiers) to be applied.-hxSwapS_ :: Swap -> Attribute-hxSwapS_ = makeAttribute "hx-swap" . render+hxSwapS_ :: Swap -> Attributes+hxSwapS_ = makeAttributes "hx-swap" . render  -- | <https://htmx.org/attributes/hx-swap-oob/> -- mark element to swap in from a response (out of band)-hxSwapOob_ :: Text -> Attribute-hxSwapOob_ = makeAttribute "hx-swap-oob"+hxSwapOob_ :: Text -> Attributes+hxSwapOob_ = makeAttributes "hx-swap-oob"  -- | <https://htmx.org/attributes/hx-target/> -- specifies the target element to be swapped-hxTarget_ :: Text -> Attribute-hxTarget_ = makeAttribute "hx-target"+hxTarget_ :: Text -> Attributes+hxTarget_ = makeAttributes "hx-target"  -- | <https://htmx.org/attributes/hx-trigger/> -- specifies the event that triggers the request-hxTrigger_ :: Text -> Attribute-hxTrigger_ = makeAttribute "hx-trigger"+hxTrigger_ :: Text -> Attributes+hxTrigger_ = makeAttributes "hx-trigger"  -- | <https://htmx.org/attributes/hx-vals/> -- add values to submit with the request (JSON format)-hxVals_ :: Text -> Attribute-hxVals_ = makeAttribute "hx-vals"+hxVals_ :: Text -> Attributes+hxVals_ = makeAttributes "hx-vals"  data OnEvent = DomOnEvent Text | HtmxOnEvent HtmxEvent  -- | <https://htmx.org/attributes/hx-on/> -- handle events with inline scripts on elements-hxOn_ :: OnEvent -> Text -> Attribute+hxOn_ :: OnEvent -> Text -> Attributes hxOn_ = \case-    DomOnEvent event -> makeAttribute $ "hx-on:" <> event-    HtmxOnEvent htmxEvent -> makeAttribute $ "hx-on::" <> render htmxEvent+    DomOnEvent event -> makeAttributes $ "hx-on:" <> event+    HtmxOnEvent htmxEvent -> makeAttributes $ "hx-on::" <> render htmxEvent
src/Htmx/Lucid/Extension/IncludeVals.hs view
@@ -8,11 +8,10 @@ module Htmx.Lucid.Extension.IncludeVals where  import Data.Text (Text)-import Lucid-import Lucid.Base (makeAttribute)+import Lucid.Base (makeAttributes, Attributes)  -- | <https://github.com/bigskysoftware/htmx-extensions/blob/main/src/include-vals/README.md> -- The value of this attribute is one or more name/value pairs, which will be evaluated as the fields in a javascript object literal. -- i.e. "included:true, computed: computeValue()"-includeVals_ :: Text -> Attribute-includeVals_ = makeAttribute "include-vals"+includeVals_ :: Text -> Attributes+includeVals_ = makeAttributes "include-vals"
src/Htmx/Lucid/Extra.hs view
@@ -14,81 +14,81 @@ import Htmx.Extension import Htmx.Render import Lucid (Html, HtmlT, script_, src_)-import Lucid.Base (Attribute, makeAttribute)+import Lucid.Base (Attributes, makeAttributes)  -- | <https://htmx.org/attributes/hx-boost/> -- add progressive enhancement for links and forms-hxBoost_ :: Text -> Attribute-hxBoost_ = makeAttribute "hx-boost"+hxBoost_ :: Text -> Attributes+hxBoost_ = makeAttributes "hx-boost"  -- | <https://htmx.org/attributes/hx-confirm/> -- shows a confirm() dialog before issuing a request-hxConfirm_ :: Text -> Attribute-hxConfirm_ = makeAttribute "hx-confirm"+hxConfirm_ :: Text -> Attributes+hxConfirm_ = makeAttributes "hx-confirm"  -- | <https://htmx.org/attributes/hx-delete/> -- issues a DELETE to the specified URL-hxDelete_ :: Text -> Attribute-hxDelete_ = makeAttribute "hx-delete"+hxDelete_ :: Text -> Attributes+hxDelete_ = makeAttributes "hx-delete"  -- | <https://htmx.org/attributes/hx-disable/> -- disables htmx processing for the given node and any children nodes-hxDisable_ :: Attribute-hxDisable_ = makeAttribute "hx-disable" mempty+hxDisable_ :: Attributes+hxDisable_ = makeAttributes "hx-disable" mempty  -- | <https://htmx.org/attributes/hx-disabled-elt/> -- adds the disabled attribute to the specified elements while a request is in flight-hxDisabledElt_ :: Text -> Attribute-hxDisabledElt_ = makeAttribute "hx-disabled-elt"+hxDisabledElt_ :: Text -> Attributes+hxDisabledElt_ = makeAttributes "hx-disabled-elt"  -- | <https://htmx.org/attributes/hx-disinherit/> -- control and disable automatic attribute inheritance for child nodes-hxDisinherit_ :: Text -> Attribute-hxDisinherit_ = makeAttribute "hx-disinherit"+hxDisinherit_ :: Text -> Attributes+hxDisinherit_ = makeAttributes "hx-disinherit"  -- | <https://htmx.org/attributes/hx-encoding/> -- changes the request encoding type-hxEncoding_ :: Text -> Attribute-hxEncoding_ = makeAttribute "hx-encoding"+hxEncoding_ :: Text -> Attributes+hxEncoding_ = makeAttributes "hx-encoding"  -- | <https://htmx.org/attributes/hx-ext/> -- extensions to use for this element-hxExt_ :: Text -> Attribute-hxExt_ = makeAttribute "hx-ext"+hxExt_ :: Text -> Attributes+hxExt_ = makeAttributes "hx-ext"  -- | A typesafe version of 'hxExt_' that works with the "included" extensions -- that the htmx codebase is tested against-hxExtension_ :: HtmxExtension -> Attribute-hxExtension_ = makeAttribute "hx-ext" . render+hxExtension_ :: HtmxExtension -> Attributes+hxExtension_ = makeAttributes "hx-ext" . render  -- | Include multiple extensions in one declaration-hxExtensions_ :: [HtmxExtension] -> Attribute-hxExtensions_ = makeAttribute "hx-ext" . fold . intersperse "," . fmap render+hxExtensions_ :: [HtmxExtension] -> Attributes+hxExtensions_ = makeAttributes "hx-ext" . fold . intersperse "," . fmap render  -- | <https://htmx.org/attributes/hx-headers/> -- adds to the headers that will be submitted with the request-hxHeaders_ :: Text -> Attribute-hxHeaders_ = makeAttribute "hx-headers"+hxHeaders_ :: Text -> Attributes+hxHeaders_ = makeAttributes "hx-headers"  -- | <https://htmx.org/attributes/hx-history/> -- prevent sensitive data being saved to the history cache-hxHistory_ :: Text -> Attribute-hxHistory_ = makeAttribute "hx-history"+hxHistory_ :: Text -> Attributes+hxHistory_ = makeAttributes "hx-history"  -- | <https://htmx.org/attributes/hx-history-elt/> -- the element to snapshot and restore during history navigation-hxHistoryElt_ :: Attribute-hxHistoryElt_ = makeAttribute "hx-history-elt" mempty+hxHistoryElt_ :: Attributes+hxHistoryElt_ = makeAttributes "hx-history-elt" mempty  -- | <https://htmx.org/attributes/hx-include/> -- include additional data in requests-hxInclude_ :: Text -> Attribute-hxInclude_ = makeAttribute "hx-include"+hxInclude_ :: Text -> Attributes+hxInclude_ = makeAttributes "hx-include"  -- | <https://htmx.org/attributes/hx-indicator/> -- the element to put the htmx-request class on during the request-hxIndicator_ :: Text -> Attribute-hxIndicator_ = makeAttribute "hx-indicator"+hxIndicator_ :: Text -> Attributes+hxIndicator_ = makeAttributes "hx-indicator"  data ParamsFilter     = -- | Include all parameters (default)@@ -102,42 +102,42 @@  -- | <https://htmx.org/attributes/hx-params/> -- filters the parameters that will be submitted with a request-hxParams_ :: ParamsFilter -> Attribute+hxParams_ :: ParamsFilter -> Attributes hxParams_ = \case-    All -> makeAttribute "hx-params" "*"-    None -> makeAttribute "hx-params" "none"-    Exclude ps -> makeAttribute "hx-params" $ "not " <> (fold . intersperse "," $ ps)-    Include ps -> makeAttribute "hx-params" $ fold . intersperse "," $ ps+    All -> makeAttributes "hx-params" "*"+    None -> makeAttributes "hx-params" "none"+    Exclude ps -> makeAttributes "hx-params" $ "not " <> (fold . intersperse "," $ ps)+    Include ps -> makeAttributes "hx-params" $ fold . intersperse "," $ ps  -- | <https://htmx.org/attributes/hx-patch/> -- issues a PATCH to the specified URL-hxPatch_ :: Text -> Attribute-hxPatch_ = makeAttribute "hx-patch"+hxPatch_ :: Text -> Attributes+hxPatch_ = makeAttributes "hx-patch"  -- | <https://htmx.org/attributes/hx-preserve/> -- specifies elements to keep unchanged between requests-hxPreserve_ :: Attribute-hxPreserve_ = makeAttribute "hx-preserve" mempty+hxPreserve_ :: Attributes+hxPreserve_ = makeAttributes "hx-preserve" mempty  -- | <https://htmx.org/attributes/hx-prompt/> -- shows a prompt() before submitting a request-hxPrompt_ :: Text -> Attribute-hxPrompt_ = makeAttribute "hx-prompt"+hxPrompt_ :: Text -> Attributes+hxPrompt_ = makeAttributes "hx-prompt"  -- | <https://htmx.org/attributes/hx-put/> -- issues a PUT to the specified URL-hxPut_ :: Text -> Attribute-hxPut_ = makeAttribute "hx-put"+hxPut_ :: Text -> Attributes+hxPut_ = makeAttributes "hx-put"  -- | <https://htmx.org/attributes/hx-replace-url/> -- replace the URL in the browser location bar-hxReplaceUrl_ :: Text -> Attribute-hxReplaceUrl_ = makeAttribute "hx-replace-url"+hxReplaceUrl_ :: Text -> Attributes+hxReplaceUrl_ = makeAttributes "hx-replace-url"  -- | <https://htmx.org/attributes/hx-request/> -- configures various aspects of the request-hxRequest_ :: Text -> Attribute-hxRequest_ = makeAttribute "hx-request"+hxRequest_ :: Text -> Attributes+hxRequest_ = makeAttributes "hx-request"  {-# DEPRECATED     hxSse_@@ -146,8 +146,8 @@  -- | <https://htmx.org/attributes/hx-sse/> -- has been moved to an extension. Documentation for older versions-hxSse_ :: Text -> Attribute-hxSse_ = makeAttribute "hx-sse"+hxSse_ :: Text -> Attributes+hxSse_ = makeAttributes "hx-sse"  data SyncStrategy     = -- | drop (ignore) this request if an existing request is in flight (the default)@@ -167,29 +167,29 @@  -- | <https://htmx.org/attributes/hx-sync/> -- control how requests made by different elements are synchronized-hxSync_ :: Text -> Attribute-hxSync_ = makeAttribute "hx-sync"+hxSync_ :: Text -> Attributes+hxSync_ = makeAttributes "hx-sync"  -- | <https://htmx.org/attributes/hx-sync/> -- the same as 'hxSync_' but accepts a strongly typed htmx 'SyncStrategy'-hxSyncStrategy_ :: Text -> SyncStrategy -> Attribute+hxSyncStrategy_ :: Text -> SyncStrategy -> Attributes hxSyncStrategy_ selector = \case-    SyncDrop -> makeAttribute "hx-sync" $ selector <> ":" <> "drop"-    SyncAbort -> makeAttribute "hx-sync" $ selector <> ":" <> "abort"-    SyncReplace -> makeAttribute "hx-sync" $ selector <> ":" <> "replace"-    SyncQueueFirst -> makeAttribute "hx-sync" $ selector <> ":" <> "queue first"-    SyncQueueLast -> makeAttribute "hx-sync" $ selector <> ":" <> "queue last"-    SyncQueueAll -> makeAttribute "hx-sync" $ selector <> ":" <> "queue all"+    SyncDrop -> makeAttributes "hx-sync" $ selector <> ":" <> "drop"+    SyncAbort -> makeAttributes "hx-sync" $ selector <> ":" <> "abort"+    SyncReplace -> makeAttributes "hx-sync" $ selector <> ":" <> "replace"+    SyncQueueFirst -> makeAttributes "hx-sync" $ selector <> ":" <> "queue first"+    SyncQueueLast -> makeAttributes "hx-sync" $ selector <> ":" <> "queue last"+    SyncQueueAll -> makeAttributes "hx-sync" $ selector <> ":" <> "queue all"  -- | <https://htmx.org/attributes/hx-validate/> -- force elements to validate themselves before a request-hxValidate_ :: Text -> Attribute-hxValidate_ = makeAttribute "hx-validate"+hxValidate_ :: Text -> Attributes+hxValidate_ = makeAttributes "hx-validate"  -- | <https://htmx.org/attributes/hx-vars/> -- adds values dynamically to the parameters to submit with the request (deprecated, please use hx-vals)-hxVars_ :: Text -> Attribute-hxVars_ = makeAttribute "hx-vars"+hxVars_ :: Text -> Attributes+hxVars_ = makeAttributes "hx-vars"  {-# DEPRECATED     hxWs_@@ -198,5 +198,5 @@  -- | <https://htmx.org/attributes/hx-ws/> -- has been moved to an extension. Documentation for older versions-hxWs_ :: Text -> Attribute-hxWs_ = makeAttribute "hx-ws"+hxWs_ :: Text -> Attributes+hxWs_ = makeAttributes "hx-ws"
src/Htmx/Lucid/Head.hs view
@@ -25,7 +25,7 @@ import Htmx.Extension import Htmx.Render import Lucid (Html, HtmlT, script_, src_)-import Lucid.Base (Attribute, makeAttribute)+import Lucid.Base (Attributes, makeAttributes)  -- | Place in your template after @useHtmx@, but before where the extension is used via @hxExt_@ -- NOTE: This uses 'recommendedVersion' as the version section of the URL