nixify, README, license

assets/json/init.json

@@ -0,0 +1,2 @@
+{
+}

assets/json/test.json

@@ -0,0 +1,4 @@
+{
+  "message0": "Hello World!",
+  "message1": "This is another message. Hello World!"
+}

backend/.gitignore

@@ -0,0 +1,2 @@
+.stack-work/
+*~

backend/CHANGELOG.md

@@ -0,0 +1,11 @@
+# Changelog for `hs-server`
+
+All notable changes to this project will be documented in this file.
+
+The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
+and this project adheres to the
+[Haskell Package Versioning Policy](https://pvp.haskell.org/).
+
+## Unreleased
+
+## 0.1.0.0 - YYYY-MM-DD

backend/LICENSE

@@ -0,0 +1,26 @@
+Copyright 2025 Author name here
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1.  Redistributions of source code must retain the above copyright notice, this
+    list of conditions and the following disclaimer.
+
+2.  Redistributions in binary form must reproduce the above copyright notice,
+    this list of conditions and the following disclaimer in the documentation
+    and/or other materials provided with the distribution.
+
+3.  Neither the name of the copyright holder nor the names of its contributors
+    may be used to endorse or promote products derived from this software
+    without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
+ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE FOR
+ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

backend/README.md

@@ -0,0 +1,2 @@
+# hs-server
+this is a custom-built single-purpose server infrastructure based on Scorry, Warp, and Wai. It holds up MTGmonkey's personal website

backend/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

backend/app/Main.hs

@@ -0,0 +1,108 @@
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+module Main (main) where
+
+import ElmskellTypes
+import Data.Text.Lazy (Text)
+import Network.Wai.Handler.Warp (Port)
+import Network.Wai.Middleware.RequestLogger (logStdoutDev)
+import Text.Blaze ((!))
+import Text.Blaze.Html.Renderer.Text (renderHtml)
+
+import Network.HTTP.Types
+import Network.Wai.Middleware.Gzip
+import Web.Scotty as S
+
+import qualified Control.Exception as E
+import qualified Text.Blaze.Html5 as H
+import qualified Text.Blaze.Html5.Attributes as A
+
+-- HTML
+index :: H.Html -> Text
+index compiledElmApp = renderHtml $ do
+  H.docTypeHtml $ do
+    H.head $ do
+      H.title "TESTING Scotty+Elm"
+      H.meta ! A.charset "utf-8"
+      H.style "body{margin:0px;}"
+    (H.body ! A.id "body") $ do
+      embedJs compiledElmApp
+
+-- CONF
+port :: Port
+port = 8080
+
+adminContact :: String
+adminContact = "[Matrix] @mtgmonkey:calitabby.net"
+
+compiledElmAppFile :: AssetPath
+compiledElmAppFile = "/js/main.js"
+
+boilerplateJsFile :: AssetPath
+boilerplateJsFile = "/js/init.js"
+
+assetsFolder :: FilePath
+assetsFolder = "/home/mtgmonkey/elmskell/assets"
+
+-- MAIN
+main :: IO ()
+main = do
+
+  generateElmskellTypes
+
+  compiledElmAppOrExc <- E.try $ readFile $ assetsFolder ++ compiledElmAppFile :: IO (Either E.IOException String)
+  let compiledElmApp = case compiledElmAppOrExc of
+                        Left e -> serverErrorReadFile e
+                        Right contents -> H.toHtml $ contents
+
+  boilerplateJsOrExc <- E.try $ readFile $ assetsFolder ++ boilerplateJsFile :: IO (Either E.IOException String)
+  let boilerplateJs = case boilerplateJsOrExc of
+                        Left e -> serverErrorReadFile e
+                        Right contents -> H.toHtml $ contents
+
+  let anyRoute = regex "^.*$"
+  scotty port $ do
+    
+    middleware $ gzip $ def { gzipFiles = GzipCompress }
+    middleware logStdoutDev
+  
+    -- GET requests
+    get "/" $ do
+      shortCache
+      status ok200
+      S.html $ index $ do
+        compiledElmApp
+        boilerplateJs
+
+    get "/favicon.ico/" $ do
+      shortCache
+      status notFound404
+      S.html $ "you want a favi-<i>what</i>now!?"
+
+    -- ERR
+    notFound $ do
+      noCache
+      status methodNotAllowed405
+      S.text "Verb disallowed; OR, route doesn't exist :("
+
+
+-- FUNC
+serverErrorReadFile :: E.IOException -> Js
+serverErrorReadFile e = H.toHtml $ "document.getElementById('body').innerHTML='Server-side error occurred: "
+                            ++ (show e)
+                            ++ "; report this to a site administrator: "
+                            ++ adminContact
+                            ++ "';"
+
+shortCache :: ActionM ()
+shortCache = addHeader "Cache-Control" "max-age=21600"
+
+noCache :: ActionM ()
+noCache = addHeader "Cache-Control" "no-cache"
+
+embedJs :: Js -> H.Html
+embedJs js = H.script $ js
+
+ -- TYPES
+type AssetPath = FilePath
+type Js = H.Html

backend/hs-server.cabal

@@ -0,0 +1,91 @@
+cabal-version: 2.2
+
+-- This file has been generated from package.yaml by hpack version 0.37.0.
+--
+-- see: https://github.com/sol/hpack
+
+name:           hs-server
+version:        0.1.0.0
+description:    Please see README.md
+author:         mtgmonkey
+maintainer:     mtgmonkey
+copyright:      2025 mtgmonkey
+license:        BSD-3-Clause
+license-file:   LICENSE
+build-type:     Simple
+extra-source-files:
+    README.md
+    CHANGELOG.md
+
+library
+  exposed-modules:
+      ElmskellTypes
+  other-modules:
+      Paths_hs_server
+  autogen-modules:
+      Paths_hs_server
+  hs-source-dirs:
+      src
+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints
+  build-depends:
+      aeson >=2.2.3 && <2.3
+    , base >=4.19.2 && <4.20
+    , blaze-html >=0.9.2 && <0.10
+    , blaze-markup >=0.8.3 && <0.9
+    , directory >=1.3.8 && <1.4
+    , elm-street >=0.2.2 && <0.3
+    , http-types >=0.12.4 && <0.13
+    , scotty ==0.22.*
+    , text >=2.1.1 && <2.2
+    , wai-extra >=3.1.16 && <3.2
+    , warp >=3.4.7 && <3.5
+  default-language: Haskell2010
+
+executable hs-server-exe
+  main-is: Main.hs
+  other-modules:
+      Paths_hs_server
+  autogen-modules:
+      Paths_hs_server
+  hs-source-dirs:
+      app
+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
+  build-depends:
+      aeson >=2.2.3 && <2.3
+    , base >=4.19.2 && <4.20
+    , blaze-html >=0.9.2 && <0.10
+    , blaze-markup >=0.8.3 && <0.9
+    , directory >=1.3.8 && <1.4
+    , elm-street >=0.2.2 && <0.3
+    , hs-server
+    , http-types >=0.12.4 && <0.13
+    , scotty ==0.22.*
+    , text >=2.1.1 && <2.2
+    , wai-extra >=3.1.16 && <3.2
+    , warp >=3.4.7 && <3.5
+  default-language: Haskell2010
+
+test-suite hs-server-test
+  type: exitcode-stdio-1.0
+  main-is: Spec.hs
+  other-modules:
+      Paths_hs_server
+  autogen-modules:
+      Paths_hs_server
+  hs-source-dirs:
+      test
+  ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
+  build-depends:
+      aeson >=2.2.3 && <2.3
+    , base >=4.19.2 && <4.20
+    , blaze-html >=0.9.2 && <0.10
+    , blaze-markup >=0.8.3 && <0.9
+    , directory >=1.3.8 && <1.4
+    , elm-street >=0.2.2 && <0.3
+    , hs-server
+    , http-types >=0.12.4 && <0.13
+    , scotty ==0.22.*
+    , text >=2.1.1 && <2.2
+    , wai-extra >=3.1.16 && <3.2
+    , warp >=3.4.7 && <3.5
+  default-language: Haskell2010

backend/package.yaml

@@ -0,0 +1,68 @@
+name:                hs-server
+version:             0.1.0.0
+license:             BSD-3-Clause
+author:              "mtgmonkey"
+maintainer:          "mtgmonkey"
+copyright:           "2025 mtgmonkey"
+
+extra-source-files:
+- README.md
+- CHANGELOG.md
+
+# Metadata used when publishing your package
+# synopsis:            Short description of your package
+# category:            Web
+
+# To avoid duplicated efforts in documentation and dealing with the
+# complications of embedding Haddock markup inside cabal files, it is
+# common to point users to the README.md file.
+description:         Please see README.md
+
+dependencies:
+- aeson        >= 2.2.3  && < 2.3
+- base         >= 4.19.2 && < 4.20
+- blaze-html   >= 0.9.2  && < 0.10
+- blaze-markup >= 0.8.3  && < 0.9
+- directory    >= 1.3.8  && < 1.4
+- elm-street   >= 0.2.2  && < 0.3
+- http-types   >= 0.12.4 && < 0.13
+- scotty       >= 0.22   && < 0.23
+- text         >= 2.1.1  && < 2.2
+- wai-extra    >= 3.1.16 && < 3.2
+- warp         >= 3.4.7  && < 3.5
+
+ghc-options:
+- -Wall
+- -Wcompat
+- -Widentities
+- -Wincomplete-record-updates
+- -Wincomplete-uni-patterns
+- -Wmissing-export-lists
+- -Wmissing-home-modules
+- -Wpartial-fields
+- -Wredundant-constraints
+
+library:
+  source-dirs:           src
+
+executables:
+  hs-server-exe:
+    main:                Main.hs
+    source-dirs:         app
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - hs-server
+
+tests:
+  hs-server-test:
+    main:                Spec.hs
+    source-dirs:         test
+    ghc-options:
+    - -threaded
+    - -rtsopts
+    - -with-rtsopts=-N
+    dependencies:
+    - hs-server

backend/stack.yaml

@@ -0,0 +1,74 @@
+# This file was automatically generated by 'stack init'
+#
+# Some commonly used options have been documented as comments in this file.
+# For advanced use and comprehensive documentation of the format, please see:
+# https://docs.haskellstack.org/en/stable/yaml_configuration/
+
+# A 'specific' Stackage snapshot or a compiler version.
+# A snapshot resolver dictates the compiler version and the set of packages
+# to be used for project dependencies. For example:
+#
+# snapshot: lts-22.28
+# snapshot: nightly-2024-07-05
+# snapshot: ghc-9.6.6
+#
+# The location of a snapshot can be provided as a file or url. Stack assumes
+# a snapshot provided as a file might change, whereas a url resource does not.
+#
+# snapshot: ./custom-snapshot.yaml
+# snapshot: https://example.com/snapshots/2024-01-01.yaml
+snapshot:
+  url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/23/19.yaml
+
+# User packages to be built.
+# Various formats can be used as shown in the example below.
+#
+# packages:
+# - some-directory
+# - https://example.com/foo/bar/baz-0.0.2.tar.gz
+#   subdirs:
+#   - auto-update
+#   - wai
+#
+# packages is represented in package.yaml
+packages:
+- .
+
+nix:
+  enable: true
+  packages: [zlib]
+
+# Dependency packages to be pulled from upstream that are not in the snapshot.
+# These entries can reference officially published versions as well as
+# forks / in-progress versions pinned to a git hash. For example:
+#
+# extra-deps:
+# - acme-missiles-0.3
+# - git: https://github.com/commercialhaskell/stack.git
+#   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
+#
+# extra-deps: []
+
+# Override default flag values for project packages and extra-deps
+# flags: {}
+
+# Extra package databases containing global packages
+# extra-package-dbs: []
+
+# Control whether we use the GHC we find on the path
+# system-ghc: true
+#
+# Require a specific version of Stack, using version ranges
+# require-stack-version: -any # Default
+# require-stack-version: ">=3.1"
+#
+# Override the architecture used by Stack, especially useful on Windows
+# arch: i386
+# arch: x86_64
+#
+# Extra directories used by Stack for building
+# extra-include-dirs: [/path/to/dir]
+# extra-lib-dirs: [/path/to/dir]
+#
+# Allow a newer minor version of GHC than the snapshot specifies
+# compiler-check: newer-minor

backend/stack.yaml.lock

@@ -0,0 +1,13 @@
+# This file was autogenerated by Stack.
+# You should not edit this file by hand.
+# For more information, please see the documentation at:
+#   https://docs.haskellstack.org/en/stable/lock_files
+
+packages: []
+snapshots:
+- completed:
+    sha256: 296a7960c37efa382432ab497161a092684191815eb92a608c5d6ea5f894ace3
+    size: 683835
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/23/19.yaml
+  original:
+    url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/23/19.yaml

flake.lock

@@ -2,6 +2,7 @@
   "nodes": {
     "nixpkgs": {
       "locked": {
+<<<<<<< HEAD
         "lastModified": 1748708770,
         "narHash": "sha256-q8jG2HJWgooWa9H0iatZqBPF3bp0504e05MevFmnFLY=",
         "owner": "NixOS",
@@ -13,6 +14,20 @@
         "id": "nixpkgs",
         "ref": "nixos-25.05",
         "type": "indirect"
+=======
+        "lastModified": 1747958103,
+        "narHash": "sha256-qmmFCrfBwSHoWw7cVK4Aj+fns+c54EBP8cGqp/yK410=",
+        "owner": "NixOS",
+        "repo": "nixpkgs",
+        "rev": "fe51d34885f7b5e3e7b59572796e1bcb427eccb1",
+        "type": "github"
+      },
+      "original": {
+        "owner": "NixOS",
+        "ref": "nixpkgs-unstable",
+        "repo": "nixpkgs",
+        "type": "github"
+>>>>>>> master
       }
     },
     "root": {

flake.nix

@@ -1,4 +1,5 @@
 {
+<<<<<<< HEAD
   inputs = {
     nixpkgs.url = "nixpkgs/nixos-25.05";
   };
@@ -9,6 +10,37 @@
     packages.${system} = {
       default = pkgs.callPackage ./package.nix {};
       frontend = pkgs.callPackage ./elmskell-frontend.nix {};
+=======
+  description = "elmskell";
+  inputs = {
+    nixpkgs.url = "github:NixOS/nixpkgs/nixpkgs-unstable";
+  };
+  outputs = inputs @ {...}: let
+    utilities = [
+      pkgs.httpie
+    ];
+    deps = [
+      pkgs.cowsay
+      pkgs.just
+      pkgs.elmPackages.elm
+      pkgs.elmPackages.elm-format
+      pkgs.esbuild
+      pkgs.stack
+    ];
+    pkgs = import inputs.nixpkgs {
+      system = "x86_64-linux";
+    };
+  in {
+    devShell.x86_64-linux = pkgs.mkShell {
+      packages = [
+        utilities
+        deps
+      ];
+      shellHook = ''
+        export PS1='\h@\[\e[30;48;5;202;1m\]elmskell\[\e[0m\]|\w\\$ ' &&
+        cowsay "Welcome to elmskell! Run 'just' to build!"
+      '';
+>>>>>>> master
     };
   };
 }

frontend/shell.nix

@@ -0,0 +1,9 @@
+{pkgs ? import <nixpkgs> {}}:
+pkgs.mkShell {
+  nativeBuildInputs = [
+    pkgs.elmPackages.elm
+    pkgs.elmPackages.elm-format
+    pkgs.uglify-js
+    pkgs.ungoogled-chromium
+  ];
+}

frontend/src/ElmskellTypes/Generated/Decoder.elm

@@ -0,0 +1,40 @@
+module ElmskellTypes.Generated.Decoder exposing (..)
+
+import Iso8601 as Iso
+import Json.Decode as D exposing (..)
+import Json.Decode.Pipeline as D exposing (required)
+
+import ElmskellTypes.Generated.ElmStreet exposing (..)
+import ElmskellTypes.Generated.Types as T
+
+
+decodeCommand : Decoder T.Command
+decodeCommand = elmStreetDecodeEnum T.readCommand
+
+decodeCookiesKept : Decoder T.CookiesKept
+decodeCookiesKept = D.succeed T.CookiesKept
+    |> required "keepFont" D.bool
+    |> required "keepPrompt" D.bool
+    |> required "keepTheme" D.bool
+
+decodeCoreColor : Decoder T.CoreColor
+decodeCoreColor = elmStreetDecodeEnum T.readCoreColor
+
+decodeFont : Decoder T.Font
+decodeFont = D.succeed T.Font
+    |> required "fontSize" D.float
+
+decodeInput : Decoder T.Input
+decodeInput = D.succeed T.Input
+    |> required "command" decodeCommand
+    |> required "args" (D.list D.string)
+
+decodePrompt : Decoder T.Prompt
+decodePrompt = D.succeed T.Prompt
+    |> required "prompt" D.string
+
+decodeTheme : Decoder T.Theme
+decodeTheme = elmStreetDecodeEnum T.readTheme
+
+decodeThemeColor : Decoder T.ThemeColor
+decodeThemeColor = elmStreetDecodeEnum T.readThemeColor

frontend/src/ElmskellTypes/Generated/ElmStreet.elm

@@ -0,0 +1,52 @@
+module ElmskellTypes.Generated.ElmStreet exposing (..)
+
+import Json.Encode as E exposing (Value)
+import Json.Decode as D exposing (Decoder)
+import Json.Decode.Pipeline as D exposing (..)
+
+
+elmStreetEncodeMaybe : (a -> Value) -> Maybe a -> Value
+elmStreetEncodeMaybe enc = Maybe.withDefault E.null << Maybe.map enc
+
+elmStreetEncodeEither : (a -> Value) -> (b -> Value) -> Result a b -> Value
+elmStreetEncodeEither encA encB res = E.object <| case res of
+    Err a -> [("Left",  encA a)]
+    Ok b  -> [("Right", encB b)]
+
+elmStreetEncodePair : (a -> Value) -> (b -> Value) -> (a, b) -> Value
+elmStreetEncodePair encA encB (a, b) = E.list identity [encA a, encB b]
+
+elmStreetEncodeTriple : (a -> Value) -> (b -> Value) -> (c -> Value) -> (a, b, c) -> Value
+elmStreetEncodeTriple encA encB encC (a, b, c) = E.list identity [encA a, encB b, encC c]
+
+elmStreetEncodeNonEmpty : (a -> Value) -> (a, List a) -> Value
+elmStreetEncodeNonEmpty encA (a, xs) = E.list encA <| a :: xs
+
+decodeStr : (String -> Maybe a) -> String -> Decoder a
+decodeStr readX x = case readX x of
+    Just a  -> D.succeed a
+    Nothing -> D.fail "Constructor not matched"
+
+elmStreetDecodeEnum : (String -> Maybe a) -> Decoder a
+elmStreetDecodeEnum r = D.andThen (decodeStr r) D.string
+
+elmStreetDecodeChar : Decoder Char
+elmStreetDecodeChar = D.andThen (decodeStr (Maybe.map Tuple.first << String.uncons)) D.string
+
+elmStreetDecodeEither : Decoder a -> Decoder b -> Decoder (Result a b)
+elmStreetDecodeEither decA decB = D.oneOf 
+    [ D.field "Left"  (D.map Err decA)
+    , D.field "Right" (D.map Ok decB)
+    ]
+
+elmStreetDecodePair : Decoder a -> Decoder b -> Decoder (a, b)
+elmStreetDecodePair decA decB = D.map2 Tuple.pair (D.index 0 decA) (D.index 1 decB)
+
+elmStreetDecodeTriple : Decoder a -> Decoder b -> Decoder c -> Decoder (a, b, c)
+elmStreetDecodeTriple decA decB decC = D.map3 (\a b c -> (a,b,c)) (D.index 0 decA) (D.index 1 decB) (D.index 2 decC)
+
+elmStreetDecodeNonEmpty : Decoder a -> Decoder (a, List a)
+elmStreetDecodeNonEmpty decA = D.list decA |> D.andThen (\xs -> case xs of
+                                                 h::t -> D.succeed (h, t)
+                                                 _    -> D.fail "Expecting non-empty array")
+

frontend/src/ElmskellTypes/Generated/Encoder.elm

@@ -0,0 +1,47 @@
+module ElmskellTypes.Generated.Encoder exposing (..)
+
+import Iso8601 as Iso
+import Json.Encode as E exposing (..)
+
+import ElmskellTypes.Generated.ElmStreet exposing (..)
+import ElmskellTypes.Generated.Types as T
+
+
+encodeCommand : T.Command -> Value
+encodeCommand = E.string << T.showCommand
+
+encodeCookiesKept : T.CookiesKept -> Value
+encodeCookiesKept x = E.object
+    [ ("tag", E.string "CookiesKept")
+    , ("keepFont", E.bool x.keepFont)
+    , ("keepPrompt", E.bool x.keepPrompt)
+    , ("keepTheme", E.bool x.keepTheme)
+    ]
+
+encodeCoreColor : T.CoreColor -> Value
+encodeCoreColor = E.string << T.showCoreColor
+
+encodeFont : T.Font -> Value
+encodeFont x = E.object
+    [ ("tag", E.string "Font")
+    , ("fontSize", E.float x.fontSize)
+    ]
+
+encodeInput : T.Input -> Value
+encodeInput x = E.object
+    [ ("tag", E.string "Input")
+    , ("command", encodeCommand x.command)
+    , ("args", (E.list E.string) x.args)
+    ]
+
+encodePrompt : T.Prompt -> Value
+encodePrompt x = E.object
+    [ ("tag", E.string "Prompt")
+    , ("prompt", E.string x.prompt)
+    ]
+
+encodeTheme : T.Theme -> Value
+encodeTheme = E.string << T.showTheme
+
+encodeThemeColor : T.ThemeColor -> Value
+encodeThemeColor = E.string << T.showThemeColor

frontend/src/ElmskellTypes/Generated/Types.elm

@@ -0,0 +1,197 @@
+module ElmskellTypes.Generated.Types exposing (..)
+
+import Time exposing (Posix)
+import Json.Decode exposing (Value)
+
+
+type Command
+    = ClearCommand
+    | ColorsCommand
+    | CookiesCommand
+    | DebugCommand
+    | FontCommand
+    | HelloCommand
+    | HelpCommand
+    | PromptCommand
+    | ThemeCommand
+    | TodoCommand
+
+showCommand : Command -> String
+showCommand x = case x of
+    ClearCommand -> "ClearCommand"
+    ColorsCommand -> "ColorsCommand"
+    CookiesCommand -> "CookiesCommand"
+    DebugCommand -> "DebugCommand"
+    FontCommand -> "FontCommand"
+    HelloCommand -> "HelloCommand"
+    HelpCommand -> "HelpCommand"
+    PromptCommand -> "PromptCommand"
+    ThemeCommand -> "ThemeCommand"
+    TodoCommand -> "TodoCommand"
+
+readCommand : String -> Maybe Command
+readCommand x = case x of
+    "ClearCommand" -> Just ClearCommand
+    "ColorsCommand" -> Just ColorsCommand
+    "CookiesCommand" -> Just CookiesCommand
+    "DebugCommand" -> Just DebugCommand
+    "FontCommand" -> Just FontCommand
+    "HelloCommand" -> Just HelloCommand
+    "HelpCommand" -> Just HelpCommand
+    "PromptCommand" -> Just PromptCommand
+    "ThemeCommand" -> Just ThemeCommand
+    "TodoCommand" -> Just TodoCommand
+    _ -> Nothing
+
+universeCommand : List Command
+universeCommand = [ ClearCommand
+                  , ColorsCommand
+                  , CookiesCommand
+                  , DebugCommand
+                  , FontCommand
+                  , HelloCommand
+                  , HelpCommand
+                  , PromptCommand
+                  , ThemeCommand
+                  , TodoCommand ]
+
+type alias CookiesKept =
+    { keepFont : Bool
+    , keepPrompt : Bool
+    , keepTheme : Bool
+    }
+
+type CoreColor
+    = Red
+    | Green
+    | Yellow
+    | Blue
+    | Magenta
+    | Cyan
+    | BrightRed
+    | BrightGreen
+    | BrightYellow
+    | BrightBlue
+    | BrightMagenta
+    | BrightCyan
+
+showCoreColor : CoreColor -> String
+showCoreColor x = case x of
+    Red -> "Red"
+    Green -> "Green"
+    Yellow -> "Yellow"
+    Blue -> "Blue"
+    Magenta -> "Magenta"
+    Cyan -> "Cyan"
+    BrightRed -> "BrightRed"
+    BrightGreen -> "BrightGreen"
+    BrightYellow -> "BrightYellow"
+    BrightBlue -> "BrightBlue"
+    BrightMagenta -> "BrightMagenta"
+    BrightCyan -> "BrightCyan"
+
+readCoreColor : String -> Maybe CoreColor
+readCoreColor x = case x of
+    "Red" -> Just Red
+    "Green" -> Just Green
+    "Yellow" -> Just Yellow
+    "Blue" -> Just Blue
+    "Magenta" -> Just Magenta
+    "Cyan" -> Just Cyan
+    "BrightRed" -> Just BrightRed
+    "BrightGreen" -> Just BrightGreen
+    "BrightYellow" -> Just BrightYellow
+    "BrightBlue" -> Just BrightBlue
+    "BrightMagenta" -> Just BrightMagenta
+    "BrightCyan" -> Just BrightCyan
+    _ -> Nothing
+
+universeCoreColor : List CoreColor
+universeCoreColor = [ Red
+                    , Green
+                    , Yellow
+                    , Blue
+                    , Magenta
+                    , Cyan
+                    , BrightRed
+                    , BrightGreen
+                    , BrightYellow
+                    , BrightBlue
+                    , BrightMagenta
+                    , BrightCyan ]
+
+type alias Font =
+    { fontSize : Float
+    }
+
+type alias Input =
+    { command : Command
+    , args : List String
+    }
+
+type alias Prompt =
+    { prompt : String
+    }
+
+type Theme
+    = Pit
+    | Dim
+    | Sky
+    | Sun
+
+showTheme : Theme -> String
+showTheme x = case x of
+    Pit -> "Pit"
+    Dim -> "Dim"
+    Sky -> "Sky"
+    Sun -> "Sun"
+
+readTheme : String -> Maybe Theme
+readTheme x = case x of
+    "Pit" -> Just Pit
+    "Dim" -> Just Dim
+    "Sky" -> Just Sky
+    "Sun" -> Just Sun
+    _ -> Nothing
+
+universeTheme : List Theme
+universeTheme = [Pit, Dim, Sky, Sun]
+
+type ThemeColor
+    = Background
+    | Foreground
+    | Cursor
+    | Black
+    | White
+    | BrightBlack
+    | BrightWhite
+
+showThemeColor : ThemeColor -> String
+showThemeColor x = case x of
+    Background -> "Background"
+    Foreground -> "Foreground"
+    Cursor -> "Cursor"
+    Black -> "Black"
+    White -> "White"
+    BrightBlack -> "BrightBlack"
+    BrightWhite -> "BrightWhite"
+
+readThemeColor : String -> Maybe ThemeColor
+readThemeColor x = case x of
+    "Background" -> Just Background
+    "Foreground" -> Just Foreground
+    "Cursor" -> Just Cursor
+    "Black" -> Just Black
+    "White" -> Just White
+    "BrightBlack" -> Just BrightBlack
+    "BrightWhite" -> Just BrightWhite
+    _ -> Nothing
+
+universeThemeColor : List ThemeColor
+universeThemeColor = [ Background
+                     , Foreground
+                     , Cursor
+                     , Black
+                     , White
+                     , BrightBlack
+                     , BrightWhite ]

justfile

@@ -0,0 +1,32 @@
+produce: produce-elm haskell
+	echo "REMEMBER to RESTART elmskell.service TO UPDATE SITE IN PLACE"
+	echo "REMEMBER to RUN sudo iptables-apply -t 60 /etc/iptables/iptables.rules IF YOU HAVEN'T SINCE RESTART"
+
+types: haskell
+  rm -rf frontend/src/ElmskellTypes/Generated
+  stack exec ~/.local/bin/hs-server-exe
+
+compile: elm haskell
+
+run: produce exec
+
+exec:
+  stack exec ~/.local/bin/hs-server-exe
+
+haskell:
+	cd backend && stack install
+
+elm:
+	cd frontend && elm make src/Main.elm --output=../assets/js/main.js
+	rm -rf frontend/elm-stuff
+
+produce-elm:
+	cd frontend && elm make src/Main.elm --optimize --output=tmp.js
+	mv frontend/tmp.js assets/js/tmp.js
+	rm -rf frontend/elm-stuff
+	rm assets/js/main.js
+	esbuild assets/js/tmp.js --minify --target=es5 --outfile=assets/js/main.js
+	rm assets/js/tmp.js
+
+format-elm:
+	elm-format frontend/src/Main.elm --yes

src/elm.json

@@ -6,28 +6,15 @@
     "elm-version": "0.19.1",
     "dependencies": {
         "direct": {
-            "NoRedInk/elm-json-decode-pipeline": "1.0.1",
-            "bartavelle/json-helpers": "2.0.2",
             "elm/browser": "1.0.2",
             "elm/core": "1.0.5",
-            "elm/html": "1.0.0",
+            "elm/html": "1.0.0"
+        },
+        "indirect": {
             "elm/json": "1.1.3",
             "elm/time": "1.0.0",
             "elm/url": "1.0.0",
-            "lobanov/elm-localstorage": "1.0.1",
+            "elm/virtual-dom": "1.0.3"
-            "rtfeldman/elm-css": "18.0.0",
-            "rtfeldman/elm-iso8601-date-strings": "1.1.4"
-        },
-        "indirect": {
-            "elm/bytes": "1.0.8",
-            "elm/file": "1.0.5",
-            "elm/http": "2.0.0",
-            "elm/parser": "1.1.0",
-            "elm/random": "1.0.0",
-            "elm/virtual-dom": "1.0.3",
-            "lobanov/elm-taskport": "2.0.1",
-            "robinheghan/murmur3": "1.0.0",
-            "rtfeldman/elm-hex": "1.0.0"
         }
     },
     "test-dependencies": {