change localStorage scheme and also rpolly more I forgor

backend/app/Main.hs

@@ -32,6 +32,7 @@ index compiledElmApp = renderHtml $ do
 port :: Port
 port = 8080
 
+
 adminContact :: String
 adminContact = "[Matrix] @mtgmonkey:calitabby.net"
 

backend/src/ElmskellTypes.hs

@@ -16,10 +16,10 @@ data Font = Font
     deriving (Elm, ToJSON, FromJSON) via ElmStreet Font
 
 data Cookies = Cookies
-  { cookiesFont :: Font
-  , cookiesCookiesKept :: CookiesKept
-  , cookiesTheme :: Theme
+  { cookiesCookiesKept :: CookiesKept
+  , cookiesFont :: Font
   , cookiesPrompt :: Prompt
+  , cookiesTheme :: Theme
   } deriving (Generic)
     deriving (Elm, ToJSON, FromJSON) via ElmStreet Cookies
 
@@ -71,12 +71,13 @@ data ThemeColor
   deriving (Elm, ToJSON, FromJSON) via ElmStreet ThemeColor
 
 data Command
-  = HelpCommand
-  | ClearCommand
+  = ClearCommand
   | ColorsCommand
   | CookiesCommand
+  | DebugCommand
   | FontCommand
   | HelloCommand
+  | HelpCommand
   | PromptCommand
   | ThemeCommand
   | TodoCommand