Bump acorn from 6.4.0 to 6.4.1 in /assets

.gitignore

@@ -38,3 +38,4 @@ TODO.md
 result
 .envrc
 elm-stuff/
+serve.sh

assets/js/app.js

@@ -4,6 +4,7 @@
 import "../css/app.css";
 import '@fortawesome/fontawesome-free/js/fontawesome';
 import '@fortawesome/fontawesome-free/js/solid';
+import '@fortawesome/fontawesome-free/js/brands';
 
 import './jspdf.min.js';
 import './svg2pdf.js';
@@ -32,7 +33,7 @@ import { Elm } from "../src/Main.elm";
 const initElm = () => {
   var app = Elm.Main.init({
     flags: {
-      csrfToken: csrfToken,
+      csrfToken: csrfToken(),
     }
   });
 

assets/src/Api.elm

@@ -0,0 +1,17 @@
+module Api exposing (getUser)
+
+import Http
+import Viewer exposing (Viewer)
+
+
+getUser : (Result Http.Error Viewer -> msg) -> Cmd msg
+getUser receivedViewer =
+    Http.request
+        { method = "GET"
+        , headers = []
+        , url = "/api/user"
+        , body = Http.emptyBody
+        , expect = Http.expectJson receivedViewer Viewer.decoder
+        , timeout = Nothing
+        , tracker = Nothing
+        }

assets/src/Auth.elm

@@ -0,0 +1,17 @@
+module Auth exposing (logout)
+
+import Http
+import Session exposing (Session)
+
+
+logout : Session -> (Result Http.Error () -> msg) -> Cmd msg
+logout session receivedLogout =
+    Http.request
+        { method = "DELETE"
+        , headers = [ Http.header "x-csrf-token" (Session.csrfToken session) ]
+        , url = "/auth/logout"
+        , body = Http.emptyBody
+        , expect = Http.expectWhatever receivedLogout
+        , timeout = Nothing
+        , tracker = Nothing
+        }

assets/src/Github.elm

@@ -30,7 +30,6 @@ module Github exposing
 -}
 
 import Base64
-import Browser.Navigation
 import Http
 import Json.Decode as Decode exposing (Decoder)
 import Json.Decode.Pipeline as Decode

assets/src/LocalStorage.elm

@@ -28,7 +28,6 @@ import Length exposing (Meters)
 import Pattern exposing (Pattern)
 import Point2d exposing (Point2d)
 import Storage.Address as Address exposing (Address)
-import Url.Parser exposing ((</>), Parser, map, oneOf, s, string, top)
 
 
 port storeCache : { key : String, value : String } -> Cmd msg

assets/src/Login.elm

@@ -1,4 +1,4 @@
-module Main exposing (main)
+module Login exposing (main)
 
 import Browser
 import Browser.Navigation