lucid-htmx 0.1.0.4 → 0.1.0.5

raw patch · 8 files changed

+246/−397 lines, 8 filesdep ~lucidPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: lucid

API changes (from Hackage documentation)

Files

• ChangeLog.md +1/−14
• LICENSE +2/−2
• lucid-htmx.cabal +12/−13
• src/Lucid/HTMX.hs +0/−114
• src/Lucid/HTMX/QuasiQuoters.hs +0/−215
• src/Lucid/HTMX/Servant.hs +0/−39
• src/Lucid/Htmx.hs +184/−0
• src/Lucid/Htmx/Servant.hs +47/−0

@@ -4,18 +4,5 @@  First release of `lucid-htmx`! -## 0.1.0.1--Upgrade to `lucid-2.10.0`--## 0.1.0.2--Downgrade to `lucid-2.9.12.1` to depend on `servant-lucid-0.9.0.2`--## 0.1.0.3--Depend on fork of `lucid` that retains attribute order--## 0.1.0.4+## Next version -Depend on `lucid-2.11.0` which keeps attributes in order. Fix docs.

@@ -1,4 +1,4 @@-Copyright Author name here (c) 2021+Copyright 2022 Monadic Systems LLC  All rights reserved. @@ -13,7 +13,7 @@       disclaimer in the documentation and/or other materials provided       with the distribution. -    * Neither the name of Author name here nor the names of other+    * Neither the name of Monadic Systems LLC nor the names of other       contributors may be used to endorse or promote products derived       from this software without specific prior written permission. 

@@ -1,16 +1,16 @@ cabal-version:      1.12 name:               lucid-htmx-version:            0.1.0.4+version:            0.1.0.5 license:            BSD3 license-file:       LICENSE-copyright:          (c) 2021 Wavi Labs LLC-maintainer:         rashad@wavilabs.com-author:             Wavi Labs LLC-homepage:           https://github.com/WaviLabs/lucid-htmx#readme-bug-reports:        https://github.com/WaviLabs/lucid-htmx/issues+copyright:          2022 Monadic Systems LLC+maintainer:         tech@monadic.systems+author:             Monadic Systems LLC+homepage:           https://github.com/MonadicSystems/lucid-htmx#readme+bug-reports:        https://github.com/MonadicSystems/lucid-htmx/issues synopsis:           Use htmx in your lucid templates description:-    Please see the README on GitHub at <https://github.com/WaviLabs/lucid-htmx#readme>+    Please see the README on GitHub at <https://github.com/MonadicSystems/lucid-htmx#readme>  category:           Web, HTML build-type:         Simple@@ -20,20 +20,19 @@  source-repository head     type:     git-    location: https://github.com/WaviLabs/lucid-htmx+    location: https://github.com/MonadicSystems/lucid-htmx  library     exposed-modules:-        Lucid.HTMX-        Lucid.HTMX.QuasiQuoters-        Lucid.HTMX.Servant+        Lucid.Htmx+        Lucid.Htmx.Servant      hs-source-dirs:   src     other-modules:    Paths_lucid_htmx     default-language: Haskell2010     build-depends:         base >=4.7 && <5,-        lucid >=2.11.0 && <2.12,+        lucid >=2.9.12.1 && <2.10,         servant >=0.18.3 && <0.19,         text >=1.2.4.1 && <1.3 @@ -46,7 +45,7 @@     ghc-options:      -threaded -rtsopts -with-rtsopts=-N     build-depends:         base >=4.7 && <5,-        lucid >=2.11.0 && <2.12,+        lucid >=2.9.12.1 && <2.10,         lucid-htmx -any,         servant >=0.18.3 && <0.19,         text >=1.2.4.1 && <1.3

@@ -1,114 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}--module Lucid.HTMX where--import Lucid.Base (Attribute, makeAttribute)-import Data.Text (Text)---- | <https://htmx.org/attributes/hx-boost/>-hxBoost_ :: Text -> Attribute-hxBoost_ = makeAttribute "hx-boost"---- | <https://htmx.org/attributes/hx-confirm/>-hxConfirm_ :: Text -> Attribute-hxConfirm_ = makeAttribute "hx-confirm"---- | <https://htmx.org/attributes/hx-delete/>-hxDelete_ :: Text -> Attribute-hxDelete_ = makeAttribute "hx-delete"---- | <https://htmx.org/attributes/hx-disable/>-hxDisable_ :: Attribute-hxDisable_ = makeAttribute "hx-disable" mempty---- | <https://htmx.org/attributes/hx-encoding/>-hxEncoding_ :: Text -> Attribute-hxEncoding_ = makeAttribute "hx-encoding"---- | <https://htmx.org/attributes/hx-ext/>-hxExt_ :: Text -> Attribute-hxExt_ = makeAttribute "hx-ext"---- | <https://htmx.org/attributes/hx-get/>-hxGet_ :: Text -> Attribute-hxGet_ = makeAttribute "hx-get"---- | <https://htmx.org/attributes/hx-headers/>-hxHeaders_ :: Text -> Attribute-hxHeaders_ = makeAttribute "hx-headers"---- | <https://htmx.org/attributes/hx-history-elt/>-hxHistoryElt_ :: Attribute-hxHistoryElt_ = makeAttribute "hx-history-elt" mempty---- | <https://htmx.org/attributes/hx-include/>-hxInclude_ :: Text -> Attribute-hxInclude_ = makeAttribute "hx-include"---- | <https://htmx.org/attributes/hx-indicator/>-hxIndicator_ :: Text -> Attribute-hxIndicator_ = makeAttribute "hx-indicator"---- | <https://htmx.org/attributes/hx-params/>-hxParams_ :: Text -> Attribute-hxParams_ = makeAttribute "hx-params"---- | <https://htmx.org/attributes/hx-patch/>-hxPatch_ :: Text -> Attribute-hxPatch_ = makeAttribute "hx-patch"---- | <https://htmx.org/attributes/hx-post/>-hxPost_ :: Text -> Attribute-hxPost_ = makeAttribute "hx-post"---- | <https://htmx.org/attributes/hx-preserve/>-hxPreserve_ :: Text -> Attribute-hxPreserve_ = makeAttribute "hx-preserve"---- | <https://htmx.org/attributes/hx-prompt/>-hxPrompt_ :: Text -> Attribute-hxPrompt_ = makeAttribute "hx-prompt"---- | <https://htmx.org/attributes/hx-push-url/>-hxPushUrl_ :: Text -> Attribute-hxPushUrl_ = makeAttribute "hx-push-url"---- | <https://htmx.org/attributes/hx-put/>-hxPut_ :: Text -> Attribute-hxPut_ = makeAttribute "hx-put"---- | <https://htmx.org/attributes/hx-request/>-hxRequest_ :: Text -> Attribute-hxRequest_ = makeAttribute "hx-request"---- | <https://htmx.org/attributes/hx-select/>-hxSelect_ :: Text -> Attribute-hxSelect_ = makeAttribute "hx-select"---- | <https://htmx.org/attributes/hx-sse/>-hxSse_ :: Text -> Attribute-hxSse_ = makeAttribute "hx-sse"---- | <https://htmx.org/attributes/hx-swap-oob/>-hxSwapOob_ :: Text -> Attribute-hxSwapOob_ = makeAttribute "hx-swap-oob"---- | <https://htmx.org/attributes/hx-swap/>-hxSwap_ :: Text -> Attribute-hxSwap_ = makeAttribute "hx-swap"---- | <https://htmx.org/attributes/hx-target/>-hxTarget_ :: Text -> Attribute-hxTarget_ = makeAttribute "hx-target"---- | <https://htmx.org/attributes/hx-trigger/>-hxTrigger_ :: Text -> Attribute-hxTrigger_ = makeAttribute "hx-trigger"---- | <https://htmx.org/attributes/hx-vals/>-hxVals_ :: Text -> Attribute-hxVals_ = makeAttribute "hx-vals"---- | <https://htmx.org/attributes/hx-ws/>-hxWs_ :: Text -> Attribute-hxWs_ = makeAttribute "hx-ws"

@@ -1,215 +0,0 @@-{-# LANGUAGE DeriveAnyClass #-}-{-# LANGUAGE DeriveGeneric #-}-{-# LANGUAGE ExistentialQuantification #-}-{-# LANGUAGE GADTs #-}-{-# LANGUAGE InstanceSigs #-}-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE RecordWildCards #-}--module Lucid.HTMX.QuasiQuoters where--{--{- Idea for QuasiQuoting syntax:--[htmx| hx-get="bar/foo/baz?id=34" hx-swap="delay:500" hx-trigger="click" |]---}-import Data.Text as Text-import HTMX.Types-import Lucid.HTMX--toUrlPiece' = ("/" <>) . toUrlPiece---- -- | Makes hx_boost_ a "boolean attribute" since the only valid value for hx-boost is "true".--- hx_boost_ :: Attribute--- hx_boost_ = Base.hx_boost_ "true"---- hx_confirm_ :: Text -> Attribute--- hx_confirm_ = Base.hx_confirm_--hxDeleteSafe_ :: Link -> Attribute-hxDeleteSafe_ = Base.hx_delete_ . toUrlPiece'---- hx_disable_ :: Attribute--- hx_disable_ = Base.hx_disable_---- | Makes hx_encoding_ a "boolean attribute" since the only valid value for hx-encoding is "multipart/form-data".--- hx_encoding_ :: Attribute--- hx_encoding_ = Base.hx_encoding_ "multipart/form-data"--getHTMXExtName :: HTMXExtension -> Text-getHTMXExtName htmxExt = case htmxExt of-    JSONEnc -> "json-enc"-    MethodOverride -> "method-override"-    MorphdomSwap -> "morphdom-swap"-    ClientSideTemplates -> "client-side-templates"-    Debug -> "debug"-    PathDeps -> "path-deps"-    ClassTools -> "class-tools"-    RemoveMe -> "remove-me"-    IncludeVals -> "included-vals"-    AJAXHeader -> "ajax-header"-    EventHeader -> "event-header"-    Preload -> "preload"-    OtherHTMXExtension extName -> extName--hxExtSafe_ :: HXExt -> Attribute-hxExtSafe_ HXExt{..} =-   hxExt_-   . ((if hxExtIgnore then "ignore:" else "") <>)-   . Text.intercalate ","-   . Prelude.map getHTMXExtName-   . HashSet.toList-   $ hxExtExtensions-   -- HXExtVal htmxExtHashSet -> Base.hx_ext_ . Text.intercalate "," . Prelude.map getHTMXExtName . HashSet.toList $ htmxExtHashSet-   -- HXExtValIgnore htmxExtHashSet -> Base.hx_ext_ . ("ignore:" <>) . Text.intercalate "," . Prelude.map getHTMXExtName . HashSet.toList $ htmxExtHashSet--hxGetSafe_ :: Link -> Attribute-hxGetSafe_ = Base.hx_get_ . toUrlPiece'---- | Value of hx_headers_ must be valid JSON-hxHeadersSafe_ :: HXHeaders -> Attribute-hxHeadersSafe_ HXHeaders{..} =-   Base.hx_headers_-   . Text.decodeUtf8-   . LBS.toStrict-   . Aeson.encode-   $ hxHeadersJSON---- hx_history_elt_ :: Attribute--- hx_history_elt_ = Base.hx_history_elt_--hxIncludeSafe_ :: HXInclude -> Attribute-hxIncludeSafe_ HXInclude{..} = Base.hx_include_ . toCssSelector--hxIndicatorSafe_ :: HXIndicator -> Attribute-hxIndicatorSafe_ HXIndicator{..} =-    hxIndicator_-    . ((if hxIndicatorClosest then "closest:" else "") <>)-    . toCssSelector-    $ hxIndicatorSelector---- hx_indicator_ :: HXIndicatorVal -> Attribute --- hx_indicator_ val = case val of---     HXIndicatorVal selector -> Base.hx_indicator_ . toCssSelector $ selector---     HXIndicatorValClosest selector -> Base.hx_indicator_ . ("closest " <>) . toCssSelector $ selector--hxParamsSafe_ :: HXParams -> Attribute-hxParamsSafe_ hxParams = case hxParams of-    HXParams params -> hxParams_ . Text.intercalate "," $ params-    HXParamsNot params -> hxParams_ . ("not " <>) . Text.intercalate "," $ params-    HXParamsAll -> hxParams_ "*"-    HXParamsNone -> hxParams_ "none"--hx_patch_ :: Link -> Attribute-hx_patch_ = Base.hx_patch_ . toUrlPiece'--hx_post_ :: Link -> Attribute-hx_post_ = Base.hx_post_ . toUrlPiece'---- For same reasons as hx_boost_-hx_preserve_ :: Attribute-hx_preserve_ = Base.hx_preserve_ "true"--hx_prompt_ :: Text -> Attribute-hx_prompt_ = Base.hx_prompt_--hx_push_url_ :: Link -> Attribute-hx_push_url_ = Base.hx_push_url_ . toUrlPiece'--hx_put_ :: Link -> Attribute-hx_put_ = Base.hx_put_ . toUrlPiece'--hx_request_ :: HXRequestVal -> Attribute-hx_request_ val = Base.hx_request_ $ case val of-    (HXRequestVal (JavaScript _) _ _) -> ("javascript:" <>) . Text.decodeUtf8 . LBS.toStrict . Aeson.encode $ val-    (HXRequestVal _ (JavaScript _) _) -> ("javascript:" <>) . Text.decodeUtf8 . LBS.toStrict . Aeson.encode $ val-    (HXRequestVal _ _ (JavaScript _)) -> ("javascript:" <>) . Text.decodeUtf8 . LBS.toStrict . Aeson.encode $ val-    _ -> Text.decodeUtf8 . LBS.toStrict . Aeson.encode $ val--hx_select_ :: ToCssSelector a => a -> Attribute-hx_select_ = Base.hx_select_ . toCssSelector--hx_sse_ :: HXSSEVal -> Attribute-hx_sse_ val = Base.hx_sse_ $ case val of-    (HXSSEVal Nothing Nothing) -> ""-    (HXSSEVal (Just link) Nothing) -> "connect:" <> (toUrlPiece' link)-    (HXSSEVal Nothing (Just eventName)) -> "swap:" <> eventName-    (HXSSEVal (Just link) (Just eventName)) -> "connect:" <> (toUrlPiece' link) <> " " <> "swap:" <> eventName--pos :: SwapPos -> Text-pos p = case p of-    SwapPosInner -> "innerHTML"-    SwapPosOuter -> "outerHTML"-    SwapPosBeforeBegin -> "beforebegin"-    SwapPosAfterBegin -> "afterbegin"-    SwapPosBeforeEnd -> "beforeend"-    SwapPosAfterEnd -> "afterend"-    SwapPosNone -> "none"--hx_swap_ :: HXSwapVal -> Attribute-hx_swap_ HXSwapVal{..} = Base.hx_swap_ $ (pos hxSwapValPos) <> (swap hxSwapValSwap) <> (settle hxSwapValSettle) <> (view hxSwapValView)-    where-        swap :: Maybe SwapModDelay -> Text-        swap s = case s of-            Nothing -> ""-            Just (SwapModDelay delay) -> " swap:" <> (Text.pack $ show delay) <> "s"--        settle :: Maybe SwapModSettle -> Text-        settle s = case s of-            Nothing -> ""-            Just (SwapModSettle delay) -> " settle:" <> (Text.pack $ show delay) <> "s"--        view :: Maybe SwapModView -> Text-        view v = case v of-            Nothing -> ""-            Just v' -> " " <> (viewPrefix v') <> (viewPostfix v')-            where-                viewPostfix :: SwapModView -> Text-                viewPostfix v' = case v' of-                    SwapModView _ sm ss -> case (sm, ss) of-                        (ScrollMoveTop, ss') -> (selectorPrefix ss') <> "top"-                        (ScrollMoveBottom, ss') -> (selectorPrefix ss') <> "bottom"--                selectorPrefix :: Maybe ScrollSelector -> Text-                selectorPrefix ss = case ss of-                    Nothing -> ""-                    Just ss' -> case ss' of-                        ScrollSelector q -> (toCssSelector q) <> ":"-                        ScrollSelectorWindow -> "window:"--                viewPrefix :: SwapModView -> Text-                viewPrefix v' = case v' of-                      SwapModView SwapModViewTypeScroll _ _ -> "scroll:"-                      SwapModView SwapModViewTypeShow _ _ -> "show:"--hx_swap_oob_ :: HXSwapOOBVal -> Attribute-hx_swap_oob_ val = Base.hx_swap_oob_ $ case val of-    HXSwapOOBVal -> "true"-    HXSwapOOBValSwap swapPos -> pos swapPos-    HXSwapOOBValSwapSelector swapPos selector -> (pos swapPos) <> ":" <> (toCssSelector selector)--hx_target_ :: HXTargetVal -> Attribute-hx_target_ val = Base.hx_target_ $ case val of-    HXTargetVal -> "this"-    HXTargetValSelector selector -> toCssSelector selector-    HXTargetValSelectorClosest selector -> "closest " <> (toCssSelector selector)-    HXTargetValSelectorFind selector -> "find " <> (toCssSelector selector) --hx_vals_ :: ToJSON a => a -> Attribute-hx_vals_ = Base.hx_vals_ . Text.decodeUtf8 . LBS.toStrict . Aeson.encode---- TODO: Study more. Basically all possible events plus event modifiers.---- hx_trigger_ :: HXTriggerVal -> Attribute--- hx_trigger_ = Base.hx_trigger_---- BELOW EXPERIMENTAL!!---- hx_ws_ :: HXWS -> Attribute--- hx_ws_ = hx_ws_---- TODO: Add QuasiQuoters for parsing and generating values that are checked at compile time for the various arguments to the HTMX attributes.--- TODO: Write tests to check that the Val types are generating the correct Text for the HTMX attributes. Tests for HTMX tag functionality maybe?---}

@@ -1,39 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}--module Lucid.HTMX.Servant where--import Data.Text-import Lucid.Base (Attribute)-import Lucid.HTMX-    ( hxGet_-    , hxPost_-    , hxPut_-    , hxPatch_-    , hxDelete_-    , hxPushUrl_-    )-import Servant.Links (Link)-import Servant.API (toUrlPiece, ToHttpApiData(..))--toUrl :: ToHttpApiData a => a -> Text-toUrl = ("/" <>) . toUrlPiece--hxGetSafe_ :: Link -> Attribute-hxGetSafe_ = hxGet_ . toUrl--hxPostSafe_ :: Link -> Attribute-hxPostSafe_ = hxPost_ . toUrl--hxPutSafe_ :: Link -> Attribute-hxPutSafe_ = hxPut_ . toUrl--hxPatchSafe_ :: Link -> Attribute-hxPatchSafe_ = hxPatch_ . toUrl--hxDeleteSafe_ :: Link -> Attribute-hxDeleteSafe_ = hxDelete_ . toUrl--hxPushUrlSafe_ :: Either Bool Link -> Attribute-hxPushUrlSafe_ boolOrUrl = hxPushUrl_ $ case boolOrUrl of-    Left bool -> if bool then "true" else "false"-    Right url -> toUrl url

@@ -0,0 +1,184 @@+{-# LANGUAGE OverloadedStrings #-}++module Lucid.Htmx+  ( hxBoost_,+    hxConfirm_,+    hxEncoding_,+    hxExt_,+    hxDelete_,+    hxDisable_,+    hxGet_,+    hxHeaders_,+    hxHistoryElt_,+    hxInclude_,+    hxIndicator_,+    hxParams_,+    hxPatch_,+    hxPost_,+    hxPreserve_,+    hxPrompt_,+    hxPushUrl_,+    hxPut_,+    hxRequest_,+    hxSelect_,+    hxSse_,+    hxSwapOob_,+    hxSwap_,+    hxTarget_,+    hxTrigger_,+    hxVals_,+    hxWs_,+    useHtmx,+    useHtmxExtension,+    useHtmxVersion,+    useHtmxVersionExtension,+  )+where++import Data.Text (Text, pack)+import Lucid (Html, HtmlT, script_, src_)+import Lucid.Base (Attribute, makeAttribute)++-- | <https://htmx.org/attributes/hx-boost/>+hxBoost_ :: Text -> Attribute+hxBoost_ = makeAttribute "data-hx-boost"++-- | <https://htmx.org/attributes/hx-confirm/>+hxConfirm_ :: Text -> Attribute+hxConfirm_ = makeAttribute "data-hx-confirm"++-- | <https://htmx.org/attributes/hx-delete/>+hxDelete_ :: Text -> Attribute+hxDelete_ = makeAttribute "data-hx-delete"++-- | <https://htmx.org/attributes/hx-disable/>+hxDisable_ :: Attribute+hxDisable_ = makeAttribute "data-hx-disable" mempty++-- | <https://htmx.org/attributes/hx-encoding/>+hxEncoding_ :: Text -> Attribute+hxEncoding_ = makeAttribute "data-hx-encoding"++-- | <https://htmx.org/attributes/hx-ext/>+hxExt_ :: Text -> Attribute+hxExt_ = makeAttribute "data-hx-ext"++-- | <https://htmx.org/attributes/hx-get/>+hxGet_ :: Text -> Attribute+hxGet_ = makeAttribute "data-hx-get"++-- | <https://htmx.org/attributes/hx-headers/>+hxHeaders_ :: Text -> Attribute+hxHeaders_ = makeAttribute "data-hx-headers"++-- | <https://htmx.org/attributes/hx-history-elt/>+hxHistoryElt_ :: Attribute+hxHistoryElt_ = makeAttribute "data-hx-history-elt" mempty++-- | <https://htmx.org/attributes/hx-include/>+hxInclude_ :: Text -> Attribute+hxInclude_ = makeAttribute "data-hx-include"++-- | <https://htmx.org/attributes/hx-indicator/>+hxIndicator_ :: Text -> Attribute+hxIndicator_ = makeAttribute "data-hx-indicator"++-- | <https://htmx.org/attributes/hx-params/>+hxParams_ :: Text -> Attribute+hxParams_ = makeAttribute "data-hx-params"++-- | <https://htmx.org/attributes/hx-patch/>+hxPatch_ :: Text -> Attribute+hxPatch_ = makeAttribute "data-hx-patch"++-- | <https://htmx.org/attributes/hx-post/>+hxPost_ :: Text -> Attribute+hxPost_ = makeAttribute "data-hx-post"++-- | <https://htmx.org/attributes/hx-preserve/>+hxPreserve_ :: Text -> Attribute+hxPreserve_ = makeAttribute "data-hx-preserve"++-- | <https://htmx.org/attributes/hx-prompt/>+hxPrompt_ :: Text -> Attribute+hxPrompt_ = makeAttribute "data-hx-prompt"++-- | <https://htmx.org/attributes/hx-push-url/>+hxPushUrl_ :: Text -> Attribute+hxPushUrl_ = makeAttribute "data-hx-push-url"++-- | <https://htmx.org/attributes/hx-put/>+hxPut_ :: Text -> Attribute+hxPut_ = makeAttribute "data-hx-put"++-- | <https://htmx.org/attributes/hx-request/>+hxRequest_ :: Text -> Attribute+hxRequest_ = makeAttribute "data-hx-request"++-- | <https://htmx.org/attributes/hx-select/>+hxSelect_ :: Text -> Attribute+hxSelect_ = makeAttribute "data-hx-select"++-- | <https://htmx.org/attributes/hx-sse/>+hxSse_ :: Text -> Attribute+hxSse_ = makeAttribute "data-hx-sse"++-- | <https://htmx.org/attributes/hx-swap-oob/>+hxSwapOob_ :: Text -> Attribute+hxSwapOob_ = makeAttribute "data-hx-swap-oob"++-- | <https://htmx.org/attributes/hx-swap/>+hxSwap_ :: Text -> Attribute+hxSwap_ = makeAttribute "data-hx-swap"++-- | <https://htmx.org/attributes/hx-target/>+hxTarget_ :: Text -> Attribute+hxTarget_ = makeAttribute "data-hx-target"++-- | <https://htmx.org/attributes/hx-trigger/>+hxTrigger_ :: Text -> Attribute+hxTrigger_ = makeAttribute "data-hx-trigger"++-- | <https://htmx.org/attributes/hx-vals/>+hxVals_ :: Text -> Attribute+hxVals_ = makeAttribute "data-hx-vals"++-- | <https://htmx.org/attributes/hx-ws/>+hxWs_ :: Text -> Attribute+hxWs_ = makeAttribute "data-hx-ws"++-- | Place in your @head_@ tag to use htmx attributes in your lucid template+useHtmx :: Monad m => HtmlT m ()+useHtmx = script_ [src_ htmxSrc] ("" :: Html ())++-- | Place in your template after @useHtmx@, but before where the extension is used via @hxExt_@+useHtmxExtension :: Monad m => Text -> HtmlT m ()+useHtmxExtension ext = script_ [src_ $ htmxSrc <> extensionPath ext] ("" :: Html ())++-- | Choose the version of htmx to use using a 3-tuple representing semantic versioning+useHtmxVersion :: Monad m => (Int, Int, Int) -> HtmlT m ()+useHtmxVersion semVer = script_ [src_ $ htmxSrcWithSemVer semVer] ("" :: Html ())++-- | Choose the version of a htmx extension you want to use.+-- Should only be used when using @useHtmxVersion@ and the semantic version should be the same+useHtmxVersionExtension :: Monad m => (Int, Int, Int) -> Text -> HtmlT m ()+useHtmxVersionExtension semVer ext = script_ [src_ $ htmxSrcWithSemVer semVer <> extensionPath ext] ("" :: Html ())++htmxSrc :: Text+htmxSrc = "https://unpkg.com/htmx.org"++showT :: Show a => a -> Text+showT = pack . show++htmxSrcWithSemVer :: (Int, Int, Int) -> Text+htmxSrcWithSemVer (major, minor, patch) =+  htmxSrc+    <> "@"+    <> showT major+    <> "."+    <> showT minor+    <> "."+    <> showT patch++extensionPath :: Text -> Text+extensionPath ext = "/dist/ext/" <> ext <> ".js"

@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}++module Lucid.Htmx.Servant+  ( hxDeleteSafe_,+    hxGetSafe_,+    hxPatchSafe_,+    hxPostSafe_,+    hxPushUrlSafe_,+    hxPutSafe_,+  )+where++import Data.Text (Text)+import Lucid.Base (Attribute)+import Lucid.Htmx+  ( hxDelete_,+    hxGet_,+    hxPatch_,+    hxPost_,+    hxPushUrl_,+    hxPut_,+  )+import Servant.API (ToHttpApiData (..), toUrlPiece)+import Servant.Links (Link)++hxDeleteSafe_ :: Link -> Attribute+hxDeleteSafe_ = hxDelete_ . toUrl++hxGetSafe_ :: Link -> Attribute+hxGetSafe_ = hxGet_ . toUrl++hxPatchSafe_ :: Link -> Attribute+hxPatchSafe_ = hxPatch_ . toUrl++hxPostSafe_ :: Link -> Attribute+hxPostSafe_ = hxPost_ . toUrl++hxPushUrlSafe_ :: Either Bool Link -> Attribute+hxPushUrlSafe_ boolOrUrl = hxPushUrl_ $ case boolOrUrl of+  Left bool -> if bool then "true" else "false"+  Right url -> toUrl url++hxPutSafe_ :: Link -> Attribute+hxPutSafe_ = hxPut_ . toUrl++toUrl :: ToHttpApiData a => a -> Text+toUrl = ("/" <>) . toUrlPiece