elm-ssr 0.2.0 → 0.3.0

package/examples/basic/src/Example/Basic/Routes/NotFound.elm

@@ -1,37 +0,0 @@
-module Example.Basic.Routes.NotFound exposing (page, action)
-
-import ElmSsr.Action as Action exposing (Action)
-import ElmSsr.Document exposing (Document)
-import ElmSsr.Html exposing (a, article, h1, p, text)
-import ElmSsr.Html.Attributes exposing (class, href)
-import ElmSsr.Loader as Loader exposing (Loader)
-import ElmSsr.Page as Page
-import ElmSsr.Route exposing (Request)
-import Example.Basic.View.Shared as Shared
-
-
-page : Request -> Loader (Document Never)
-page _ =
-    Loader.succeed view
-
-
-action : Request -> Action (Document Never)
-action _ =
-    Action.fail 405 "Method not allowed"
-
-
-view : Document Never
-view =
-    Page.notFound
-        { title = "Not Found | elm-ssr"
-        , head = Shared.baseHead
-        , body =
-            [ Shared.layout
-                [ article [ class "panel" ]
-                    [ h1 [] [ text "404" ]
-                    , p [] [ text "This route is not registered in the example app." ]
-                    , a [ class "link", href "/" ] [ text "Back to home" ]
-                    ]
-                ]
-            ]
-        }

package/examples/basic/src/Example/Basic/Routes/Profile.elm

@@ -1,112 +0,0 @@
-module Example.Basic.Routes.Profile exposing (action, page)
-
-{-| File-based routing: GET /profile reads the current session via
-`Loader.session`; POST /profile?op=login sets it via `Loader.setSession`
-(lifted into the action with `Action.fromLoader`); POST /profile?op=logout
-calls `Loader.clearSession`. Demonstrates the full session+CSRF round-trip.
-
-The TS side wires `sessionMiddleware` + `csrfMiddleware` +
-`sessionEffects(runner)` in runtime.ts; this Elm module never touches the
-underlying cookie itself.
--}
-
-import ElmSsr.Action as Action exposing (Action)
-import ElmSsr.Document exposing (Document)
-import ElmSsr.Html exposing (button, form, h1, input, label, p, section, span, text)
-import ElmSsr.Html.Attributes as Attr
-import ElmSsr.Loader as Loader exposing (Loader)
-import ElmSsr.Route as Route exposing (Request)
-import Example.Basic.View.Shared as Shared
-import Json.Decode as Decode
-import Json.Encode as Encode
-
-
-type alias Profile =
-    { username : String }
-
-
-profileDecoder : Decode.Decoder Profile
-profileDecoder =
-    Decode.map Profile (Decode.field "username" Decode.string)
-
-
-encodeProfile : Profile -> Encode.Value
-encodeProfile profile =
-    Encode.object [ ( "username", Encode.string profile.username ) ]
-
-
-page : Request -> Loader (Document Never)
-page _ =
-    Loader.map2 view (Loader.session profileDecoder) Loader.csrfToken
-
-
-action : Request -> Action (Document Never)
-action request =
-    case Route.query "op" request of
-        Just "logout" ->
-            Action.fromLoader Loader.clearSession
-                |> Action.andThen (\_ -> Action.redirect "/profile")
-
-        _ ->
-            case Maybe.map String.trim (Route.formValue "username" request) of
-                Just username ->
-                    if String.isEmpty username then
-                        Action.fail 422 "Username is required."
-
-                    else
-                        Action.fromLoader (Loader.setSession (encodeProfile { username = username }))
-                            |> Action.andThen (\_ -> Action.redirect "/profile")
-
-                Nothing ->
-                    Action.fail 422 "Username is required."
-
-
-view : Maybe Profile -> Maybe String -> Document Never
-view profile token =
-    Shared.pageDocument "Profile"
-        [ section [ Attr.class "panel" ]
-            (case profile of
-                Just { username } ->
-                    [ h1 [] [ text "Signed in" ]
-                    , p [] [ text "Hello, ", span [ Attr.class "value" ] [ text username ], text "." ]
-                    , form
-                        [ Attr.method "post", Attr.action "/profile?op=logout" ]
-                        (csrfField token
-                            ++ [ button [ Attr.type_ "submit", Attr.class "button" ] [ text "Sign out" ] ]
-                        )
-                    ]
-
-                Nothing ->
-                    [ h1 [] [ text "Sign in" ]
-                    , p [] [ text "No session yet." ]
-                    , form
-                        [ Attr.method "post", Attr.action "/profile", Attr.class "form" ]
-                        (csrfField token
-                            ++ [ label [ Attr.for "username" ] [ text "Username" ]
-                               , input
-                                    [ Attr.id "username"
-                                    , Attr.name "username"
-                                    , Attr.type_ "text"
-                                    , Attr.class "input"
-                                    ]
-                               , button [ Attr.type_ "submit", Attr.class "button" ] [ text "Sign in" ]
-                               ]
-                        )
-                    ]
-            )
-        ]
-
-
-csrfField : Maybe String -> List (ElmSsr.Html.Node msg)
-csrfField token =
-    case token of
-        Just value ->
-            [ input
-                [ Attr.type_ "hidden"
-                , Attr.name "_csrf"
-                , Attr.value value
-                ]
-            ]
-
-        Nothing ->
-            []

package/examples/basic/src/Example/Basic/Routes/Session.elm

@@ -1,89 +0,0 @@
-module Example.Basic.Routes.Session exposing (action, page)
-
-{-| File-based routing: GET /session reads the "session" cookie and shows who
-you are; POST /session?op=login sets a hardened session cookie via
-`Action.sessionCookie`; POST /session?op=logout clears it. Demonstrates both
-sides of the cookie API end-to-end with no client JS.
--}
-
-import ElmSsr.Action as Action exposing (Action)
-import ElmSsr.Document exposing (Document)
-import ElmSsr.Html exposing (button, form, h1, input, label, p, section, span, text)
-import ElmSsr.Html.Attributes as Attr
-import ElmSsr.Loader as Loader exposing (Loader)
-import ElmSsr.Route as Route exposing (Request)
-import Example.Basic.View.Shared as Shared
-
-
-page : Request -> Loader (Document Never)
-page _ =
-    Loader.getCookie "session"
-        |> Loader.map view
-
-
-action : Request -> Action (Document Never)
-action request =
-    case Route.query "op" request of
-        Just "logout" ->
-            Action.redirect "/session"
-                |> Action.clearCookie { name = "session", path = Just "/", domain = Nothing }
-
-        _ ->
-            case Maybe.map String.trim (Route.formValue "username" request) of
-                Just username ->
-                    if String.isEmpty username then
-                        Action.fail 422 "Username is required."
-
-                    else
-                        -- For the example, the username *is* the session id. A real app
-                        -- would mint a server-side session token, store it (KV/D1/Redis),
-                        -- and put the token in the cookie.
-                        Action.redirect "/session"
-                            |> Action.setCookie (devSessionCookie "session" username)
-
-                Nothing ->
-                    Action.fail 422 "Username is required."
-
-
-{-| The example runs over plain HTTP in tests + `wrangler dev`, so we mint a
-session cookie with `Secure=False`. Production code uses `Action.sessionCookie`
-unchanged.
--}
-devSessionCookie : String -> String -> Action.Cookie
-devSessionCookie name value =
-    let
-        secure =
-            Action.sessionCookie name value
-    in
-    { secure | secure = False }
-
-
-view : Maybe String -> Document Never
-view session =
-    Shared.pageDocument "Session"
-        [ section [ Attr.class "panel" ]
-            (case session of
-                Just user ->
-                    [ h1 [] [ text "Signed in" ]
-                    , p [] [ text "Welcome back, ", span [ Attr.class "value" ] [ text user ], text "." ]
-                    , form [ Attr.method "post", Attr.action "/session?op=logout" ]
-                        [ button [ Attr.type_ "submit", Attr.class "button" ] [ text "Sign out" ] ]
-                    ]
-
-                Nothing ->
-                    [ h1 [] [ text "Sign in" ]
-                    , p [] [ text "No session cookie was sent." ]
-                    , form [ Attr.method "post", Attr.action "/session", Attr.class "form" ]
-                        [ label [ Attr.for "username" ] [ text "Username" ]
-                        , input
-                            [ Attr.id "username"
-                            , Attr.name "username"
-                            , Attr.type_ "text"
-                            , Attr.class "input"
-                            , Attr.attr "autocomplete" "username"
-                            ]
-                        , button [ Attr.type_ "submit", Attr.class "button" ] [ text "Sign in" ]
-                        ]
-                    ]
-            )
-        ]

package/examples/basic/src/Example/Basic/Routes/Status.elm

@@ -1,90 +0,0 @@
-module Example.Basic.Routes.Status exposing (action, page)
-
-import ElmSsr.Action as Action exposing (Action)
-import ElmSsr.Document exposing (Document)
-import ElmSsr.Html exposing (Node, h1, li, p, section, span, text, ul)
-import ElmSsr.Html.Attributes exposing (class)
-import ElmSsr.Loader as Loader exposing (Loader)
-import ElmSsr.Route exposing (Request)
-import Example.Basic.View.Shared as Shared
-import Json.Decode as Decode
-import Json.Encode as Encode
-
-
-type alias Status =
-    { uptime : String
-    , region : String
-    , builds : Int
-    }
-
-
-page : Request -> Loader (Document Never)
-page _ =
-    Loader.map2 view cachedStatus (Loader.env "GREETING")
-
-
-{-| Read the status from the cache; on a miss, fetch it and populate the cache
-(with a 60s TTL). Backend-neutral: cache is KV on Cloudflare, Redis/Map locally.
--}
-cachedStatus : Loader Status
-cachedStatus =
-    Loader.cacheGet { key = "status", decoder = decoder }
-        |> Loader.andThen
-            (\cached ->
-                case cached of
-                    Just status ->
-                        Loader.succeed status
-
-                    Nothing ->
-                        Loader.fetchJson { url = "app://status", decoder = decoder }
-                            |> Loader.andThen
-                                (\status ->
-                                    Loader.cachePut { key = "status", value = encode status, ttlSeconds = Just 60 }
-                                        |> Loader.map (\_ -> status)
-                                )
-            )
-
-
-action : Request -> Action (Document Never)
-action _ =
-    Action.fail 405 "Method not allowed"
-
-
-decoder : Decode.Decoder Status
-decoder =
-    Decode.map3 Status
-        (Decode.field "uptime" Decode.string)
-        (Decode.field "region" Decode.string)
-        (Decode.field "builds" Decode.int)
-
-
-encode : Status -> Encode.Value
-encode status =
-    Encode.object
-        [ ( "uptime", Encode.string status.uptime )
-        , ( "region", Encode.string status.region )
-        , ( "builds", Encode.int status.builds )
-        ]
-
-
-view : Status -> Maybe String -> Document Never
-view data greeting =
-    Shared.pageDocument "Edge Status"
-        [ statusSection data greeting
-        , Shared.featureSection
-        ]
-
-
-statusSection : Status -> Maybe String -> Node msg
-statusSection data greeting =
-    section [ class "panel" ]
-        [ span [ class "eyebrow" ] [ text "Loader page (server only)" ]
-        , h1 [] [ text "Edge status" ]
-        , p [] [ text "This page has no Model and no Msg. A Loader read the cache (filling it from a fetch on a miss) and read an env value on the server, then rendered once with no client runtime." ]
-        , ul [ class "list" ]
-            [ li [] [ text ("Uptime: " ++ data.uptime) ]
-            , li [] [ text ("Region: " ++ data.region) ]
-            , li [] [ text ("Builds: " ++ String.fromInt data.builds) ]
-            , li [] [ text ("Env GREETING: " ++ Maybe.withDefault "—" greeting) ]
-            ]
-        ]

package/examples/basic/src/Example/Basic/View/Shared.elm

@@ -1,60 +0,0 @@
-module Example.Basic.View.Shared exposing (baseHead, featureSection, layout, pageDocument)
-
-import ElmSsr.Document exposing (Document)
-import ElmSsr.Html exposing (Node, a, article, div, h2, h3, header, main_, nav, p, section, span, text)
-import ElmSsr.Html.Attributes exposing (class, href)
-import ElmSsr.Page as Page
-
-
-pageDocument : String -> List (Node msg) -> Document msg
-pageDocument pageTitle sections =
-    Page.page
-        { title = pageTitle ++ " | elm-ssr"
-        , head = baseHead
-        , body = [ layout sections ]
-        }
-
-
-baseHead : List (Node msg)
-baseHead =
-    [ Page.metaCharset "utf-8"
-    , Page.metaViewport "width=device-width, initial-scale=1"
-    , Page.metaName "description" "Elm SSR library prototype with client-side updates."
-    , Page.stylesheet "/styles.css"
-    ]
-
-
-layout : List (Node msg) -> Node msg
-layout sections =
-    div [ class "shell" ]
-        [ header [ class "topbar" ]
-            [ div [ class "brand" ]
-                [ span [ class "brand-badge" ] [ text "elm-ssr" ]
-                , h2 [ class "brand-title" ] [ text "Library Example" ]
-                ]
-            , nav [ class "nav" ]
-                [ a [ class "nav-link", href "/" ] [ text "Home" ]
-                , a [ class "nav-link", href "/status" ] [ text "Status" ]
-                , a [ class "nav-link", href "/counter" ] [ text "Counter" ]
-                ]
-            ]
-        , main_ [ class "content" ] sections
-        ]
-
-
-featureSection : Node msg
-featureSection =
-    section [ class "grid" ]
-        [ article [ class "panel" ]
-            [ h3 [] [ text "Page" ]
-            , p [] [ text "Route + Loader + view. Stateless, no client runtime, Document Never enforces it." ]
-            ]
-        , article [ class "panel" ]
-            [ h3 [] [ text "Loader" ]
-            , p [] [ text "Describe the data a route needs. The Worker runs the IO and feeds results back, fully typed." ]
-            ]
-        , article [ class "panel" ]
-            [ h3 [] [ text "Interactive" ]
-            , p [] [ text "Opt into the MVU loop only where you need it. Events patch the server-rendered DOM in place." ]
-            ]
-        ]

package/examples/basic/styles.ts

@@ -1,204 +0,0 @@
-export const stylesheet = `
-:root {
-  color-scheme: light;
-  --bg: #f4efe7;
-  --panel: rgba(255, 251, 244, 0.9);
-  --ink: #1d1b19;
-  --muted: #5a554f;
-  --accent: #155848;
-  --accent-soft: #dcebe5;
-  --line: rgba(29, 27, 25, 0.08);
-  --shadow: 0 18px 60px rgba(21, 88, 72, 0.14);
-}
-
-* {
-  box-sizing: border-box;
-}
-
-html,
-body {
-  margin: 0;
-  min-height: 100%;
-}
-
-body {
-  background:
-    radial-gradient(circle at top left, rgba(21, 88, 72, 0.12), transparent 34%),
-    linear-gradient(180deg, #fbf8f2 0%, var(--bg) 100%);
-  color: var(--ink);
-  font-family: "Iowan Old Style", "Palatino Linotype", "Book Antiqua", serif;
-}
-
-a {
-  color: inherit;
-}
-
-.shell {
-  width: min(1120px, calc(100vw - 32px));
-  margin: 0 auto;
-  padding: 24px 0 64px;
-}
-
-.topbar {
-  display: flex;
-  align-items: center;
-  justify-content: space-between;
-  gap: 18px;
-  padding: 10px 0 24px;
-}
-
-.brand {
-  display: flex;
-  align-items: center;
-  gap: 14px;
-}
-
-.brand-badge {
-  border-radius: 999px;
-  padding: 6px 10px;
-  background: var(--accent-soft);
-  color: var(--accent);
-  font-size: 12px;
-  font-weight: 700;
-  letter-spacing: 0.08em;
-  text-transform: uppercase;
-}
-
-.brand-title {
-  margin: 0;
-  font-size: 1.1rem;
-}
-
-.nav {
-  display: flex;
-  flex-wrap: wrap;
-  gap: 10px;
-}
-
-.nav-link,
-.button-link,
-.link {
-  text-decoration: none;
-  font-weight: 700;
-}
-
-.nav-link,
-.button-link {
-  border-radius: 999px;
-  border: 1px solid var(--line);
-  background: rgba(255, 255, 255, 0.72);
-  padding: 10px 14px;
-}
-
-.button-link.primary,
-.counter-button.primary {
-  background: var(--accent);
-  border-color: var(--accent);
-  color: white;
-}
-
-.content {
-  display: grid;
-  gap: 24px;
-}
-
-.panel {
-  border: 1px solid var(--line);
-  border-radius: 26px;
-  background: var(--panel);
-  padding: 24px;
-  box-shadow: var(--shadow);
-  backdrop-filter: blur(12px);
-}
-
-.hero {
-  padding: 32px;
-}
-
-.hero h1,
-.counter-panel h1 {
-  margin: 0 0 12px;
-  font-size: clamp(2.7rem, 7vw, 5rem);
-  line-height: 0.94;
-  letter-spacing: -0.045em;
-}
-
-.eyebrow {
-  display: inline-block;
-  margin-bottom: 12px;
-  color: var(--accent);
-  font-size: 0.9rem;
-  font-weight: 700;
-  letter-spacing: 0.08em;
-  text-transform: uppercase;
-}
-
-.panel p,
-.list {
-  color: var(--muted);
-  font-size: 1.04rem;
-  line-height: 1.7;
-}
-
-.hero-actions,
-.counter-actions {
-  display: flex;
-  flex-wrap: wrap;
-  gap: 12px;
-  margin-top: 24px;
-}
-
-.grid {
-  display: grid;
-  grid-template-columns: repeat(auto-fit, minmax(240px, 1fr));
-  gap: 18px;
-}
-
-.counter-value {
-  margin-top: 24px;
-  font-size: clamp(4rem, 14vw, 7rem);
-  line-height: 1;
-  letter-spacing: -0.06em;
-}
-
-.counter-button {
-  min-width: 88px;
-  border-radius: 18px;
-  border: 1px solid var(--line);
-  background: white;
-  color: var(--ink);
-  padding: 14px 18px;
-  font: inherit;
-  font-weight: 700;
-  cursor: pointer;
-}
-
-.counter-code {
-  display: block;
-  margin-top: 20px;
-  color: var(--accent);
-  white-space: pre-wrap;
-}
-
-.list {
-  margin: 0;
-  padding-left: 18px;
-}
-
-@media (max-width: 720px) {
-  .shell {
-    width: min(100vw - 20px, 1120px);
-    padding-top: 16px;
-  }
-
-  .topbar {
-    align-items: flex-start;
-    flex-direction: column;
-  }
-
-  .hero,
-  .panel {
-    padding: 20px;
-  }
-}
-`;

package/examples/basic/worker.ts

@@ -1,3 +0,0 @@
-import { worker } from "./runtime";
-
-export default worker;

package/examples/crypto-dashboard/elm.json

@@ -1,30 +0,0 @@
-{
-    "type": "application",
-    "source-directories": [
-        ".elm-ssr",
-        "src",
-        ".elm-ssr/src"
-    ],
-    "elm-version": "0.19.1",
-    "dependencies": {
-        "direct": {
-            "elm/browser": "1.0.2",
-            "elm/core": "1.0.5",
-            "elm/html": "1.0.0",
-            "elm/http": "2.0.0",
-            "elm/json": "1.1.3",
-            "elm/svg": "1.0.1",
-            "elm/time": "1.0.0",
-            "elm/url": "1.0.0"
-        },
-        "indirect": {
-            "elm/bytes": "1.0.8",
-            "elm/file": "1.0.5",
-            "elm/virtual-dom": "1.0.3"
-        }
-    },
-    "test-dependencies": {
-        "direct": {},
-        "indirect": {}
-    }
-}

package/examples/crypto-dashboard/package.json

@@ -1,10 +0,0 @@
-{
-  "name": "@elm-ssr/example-crypto-dashboard",
-  "version": "0.0.0",
-  "private": true,
-  "type": "module",
-  "description": "Crypto dashboard example: Tailwind + elm/svg + elm/http islands with 15s live refresh and cross-island event bus.",
-  "dependencies": {
-    "elm-ssr": "workspace:*"
-  }
-}