some more experiments

Author: olexsmir

web/elm.json

@@ -9,13 +9,11 @@
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
             "elm/html": "1.0.0",
-            "elm/http": "2.0.0",
+            "elm/http": "1.0.0",
             "elm/json": "1.1.3",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
             "hmsk/elm-vite-plugin-helper": "1.0.1",
-            "lukewestby/elm-http-builder": "8.0.0",
-            "matheus23/elm-tailwind-modules-base": "1.0.0",
             "rtfeldman/elm-css": "18.0.0"
         },
         "indirect": {

web/src/Api.elm

@@ -1,8 +1,59 @@
-module Api exposing (Response)
+module Api exposing (..)
 
+import Api.Endpoint as Endpoint exposing (Endpoint)
+import Http
+import Json.Decode exposing (Decoder)
 
-type Response
-    = NoteCreated String
-    | NoteCreateFailed String
-    | NoteRead String
-    | NoteNotFound
+
+{-| The authentication credentials for the Viewer (that is, the currently logged-in user.)
+This simply includes the JWT token.
+-}
+type Cred
+    = Cred String
+
+
+credHeader : Cred -> Http.Header
+credHeader (Cred c) =
+    Http.header "Authorization" ("Bearer " ++ c)
+
+
+
+-- http
+
+
+get : Endpoint -> Maybe Cred -> Decoder a -> Http.Request a
+get url cred decoder =
+    Endpoint.request
+        { method = "GET"
+        , url = url
+        , expect = Http.expectJson decoder
+        , headers =
+            case cred of
+                Just c ->
+                    [ credHeader c ]
+
+                Nothing ->
+                    []
+        , body = Http.emptyBody
+        , timeout = Nothing
+        , withCredentials = False
+        }
+
+
+post : Endpoint -> Maybe Cred -> Http.Body -> Decoder a -> Http.Request a
+post url cred body decoder =
+    Endpoint.request
+        { method = "POST"
+        , url = url
+        , expect = Http.expectJson decoder
+        , headers =
+            case cred of
+                Just c ->
+                    [ credHeader c ]
+
+                Nothing ->
+                    []
+        , body = body
+        , timeout = Nothing
+        , withCredentials = False
+        }

web/src/Api/Endpoint.elm

@@ -0,0 +1,41 @@
+module Api.Endpoint exposing (..)
+
+import Http
+import Url.Builder exposing (QueryParameter)
+
+
+type Endpoint
+    = Endpoint String
+
+
+unwrap : Endpoint -> String
+unwrap (Endpoint e) =
+    e
+
+
+url : List String -> List QueryParameter -> Endpoint
+url paths params =
+    Endpoint <|
+        Url.Builder.crossOrigin "http://localhost:8000" ("api" :: "v1" :: paths) params
+
+
+request :
+    { body : Http.Body
+    , expect : Http.Expect a
+    , headers : List Http.Header
+    , method : String
+    , timeout : Maybe Float
+    , url : Endpoint
+    , withCredentials : Bool
+    }
+    -> Http.Request a
+request c =
+    Http.request
+        { body = c.body
+        , expect = c.expect
+        , headers = c.headers
+        , method = c.method
+        , timeout = c.timeout
+        , url = unwrap c.url
+        , withCredentials = c.withCredentials
+        }

web/src/Data/Note.elm

@@ -0,0 +1,12 @@
+module Data.Note exposing (..)
+
+import Url.Parser as P exposing (Parser)
+
+
+type Slug
+    = Slug String
+
+
+urlSlugParser : Parser (Slug -> a) a
+urlSlugParser =
+    P.custom "SLUG" (\s -> Just (Slug s))

web/src/Model.elm

@@ -1,11 +1,11 @@
 module Model exposing (Model, Page(..))
 
-import Api
 import Browser.Navigation exposing (Key)
+import Viewer exposing (Viewer)
 
 
 type alias Model =
-    { apiResponse : Maybe Api.Response
+    { viewer : Viewer
     , curPage : Page
     , navKey : Key
     }

web/src/Route.elm

@@ -0,0 +1,23 @@
+module Route exposing (..)
+
+import Data.Note
+import Url.Parser as Parser exposing ((</>), Parser)
+
+
+type Route
+    = Home
+    | SignIn
+    | SignUp
+    | Logout
+    | Note Data.Note.Slug
+
+
+parser : Parser (Route -> a) a
+parser =
+    Parser.oneOf
+        [ Parser.map Home Parser.top
+        , Parser.map SignIn (Parser.s "sign-in")
+        , Parser.map SignUp (Parser.s "sign-up")
+        , Parser.map Logout (Parser.s "logout")
+        , Parser.map Note (Parser.s "n" </> Data.Note.urlSlugParser)
+        ]

web/src/Session.elm

@@ -0,0 +1,6 @@
+module Session exposing (..)
+
+
+type Session
+    = LoggedIn
+    | Guest

web/src/Viewer.elm

@@ -0,0 +1,11 @@
+module Viewer exposing (..)
+
+import Api exposing (Cred)
+
+
+{-| The logged-in user currently viewing this page. It stores enough data to
+be able to render the menu bar, along with Cred so it's impossible to have a
+Viewer if you aren't logged in.
+-}
+type Viewer
+    = Viewer Cred