init cli
This commit is contained in:
waalge
commit
9851b6ceda
|
|
@ -0,0 +1,12 @@
|
||||||
|
#!/usr/bin/env bash
|
||||||
|
# ^ added for shellcheck and file-type detection
|
||||||
|
|
||||||
|
# Watch & reload direnv on change
|
||||||
|
watch_file devshell.toml
|
||||||
|
|
||||||
|
if [[ $(type -t use_flake) != function ]]; then
|
||||||
|
echo "ERROR: use_flake function missing."
|
||||||
|
echo "Please update direnv to v2.30.0 or later."
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
use flake
|
||||||
|
|
@ -0,0 +1,4 @@
|
||||||
|
.direnv/
|
||||||
|
out/
|
||||||
|
elm-stuff/
|
||||||
|
node_modules/
|
||||||
|
|
@ -0,0 +1 @@
|
||||||
|
/nix/store/fvhmybn6prayixnc92dwnsmvzf1lywm4-pre-commit-config.json
|
||||||
|
|
@ -0,0 +1,29 @@
|
||||||
|
# Tx elm
|
||||||
|
|
||||||
|
> Subbit.xyz tx builder using elm-cardano
|
||||||
|
|
||||||
|
## Setup
|
||||||
|
|
||||||
|
This repo is using nix flakes.
|
||||||
|
|
||||||
|
The "right" way to package elm with nix is not known to the author.
|
||||||
|
|
||||||
|
- Maybe [elm2nix](https://github.com/cachix/elm2nix)
|
||||||
|
|
||||||
|
## CLi
|
||||||
|
|
||||||
|
The way elm works seems to be rather sneaky. It adds `Elm` to the global js
|
||||||
|
scope. In typical use this is then picked up by some script embedded in the page
|
||||||
|
:
|
||||||
|
|
||||||
|
```js
|
||||||
|
var app = Elm.Main.init({ node: document.getElementById("elm"), flags : ... });
|
||||||
|
```
|
||||||
|
|
||||||
|
Instead we want to call it with node. Appending the output file with
|
||||||
|
|
||||||
|
```js
|
||||||
|
this.Elm.Cli.init({ flags: process.argv });
|
||||||
|
```
|
||||||
|
|
||||||
|
Does the job. But there must be a better way ...
|
||||||
|
|
@ -0,0 +1,13 @@
|
||||||
|
{
|
||||||
|
"MartinSStewart/elm-uint64": "2.0.0 <= v < 3.0.0",
|
||||||
|
"dwayne/elm-integer": "1.0.0 <= v < 2.0.0",
|
||||||
|
"dwayne/elm-natural": "1.1.1 <= v < 2.0.0",
|
||||||
|
"elm/bytes": "1.0.8 <= v < 2.0.0",
|
||||||
|
"elm/core": "1.0.5 <= v < 2.0.0",
|
||||||
|
"elm/json": "1.1.3 <= v < 2.0.0",
|
||||||
|
"elm-cardano/bech32": "1.0.0 <= v < 2.0.0",
|
||||||
|
"elm-toulouse/cbor": "4.0.1 <= v < 5.0.0",
|
||||||
|
"elmcraft/core-extra": "2.1.0 <= v < 3.0.0",
|
||||||
|
"jxxcarlson/hex": "4.0.1 <= v < 5.0.0",
|
||||||
|
"turboMaCk/any-dict": "2.6.0 <= v < 3.0.0"
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,8 @@
|
||||||
|
{
|
||||||
|
"git-dependencies": {
|
||||||
|
"direct": {
|
||||||
|
"git@github.com:elm-cardano/elm-cardano.git": "v0.2.0"
|
||||||
|
},
|
||||||
|
"indirect": {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,36 @@
|
||||||
|
{
|
||||||
|
"type": "application",
|
||||||
|
"source-directories": [
|
||||||
|
"elm-stuff/gitdeps/github.com/elm-cardano/elm-cardano.git/src",
|
||||||
|
"src"
|
||||||
|
],
|
||||||
|
"elm-version": "0.19.1",
|
||||||
|
"dependencies": {
|
||||||
|
"direct": {
|
||||||
|
"MartinSStewart/elm-uint64": "2.0.0",
|
||||||
|
"dwayne/elm-integer": "1.0.0",
|
||||||
|
"dwayne/elm-natural": "1.1.1",
|
||||||
|
"elm/browser": "1.0.2",
|
||||||
|
"elm/bytes": "1.0.8",
|
||||||
|
"elm/core": "1.0.5",
|
||||||
|
"elm/html": "1.0.0",
|
||||||
|
"elm/json": "1.1.3",
|
||||||
|
"elm-cardano/bech32": "1.0.0",
|
||||||
|
"elm-toulouse/cbor": "4.0.1",
|
||||||
|
"elmcraft/core-extra": "2.1.0",
|
||||||
|
"jxxcarlson/hex": "4.0.1",
|
||||||
|
"turboMaCk/any-dict": "3.0.0"
|
||||||
|
},
|
||||||
|
"indirect": {
|
||||||
|
"elm/regex": "1.0.0",
|
||||||
|
"elm/time": "1.0.0",
|
||||||
|
"elm/url": "1.0.0",
|
||||||
|
"elm/virtual-dom": "1.0.3",
|
||||||
|
"elm-toulouse/float16": "1.0.1"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"test-dependencies": {
|
||||||
|
"direct": {},
|
||||||
|
"indirect": {}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,244 @@
|
||||||
|
{
|
||||||
|
"nodes": {
|
||||||
|
"aiken": {
|
||||||
|
"inputs": {
|
||||||
|
"flake-utils": "flake-utils",
|
||||||
|
"nixpkgs": "nixpkgs",
|
||||||
|
"rust-overlay": "rust-overlay"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1739388398,
|
||||||
|
"narHash": "sha256-VwGpkkp4isiiy8GUgJEz6HZklqiKOqc3zluKMVb/UxU=",
|
||||||
|
"owner": "waalge",
|
||||||
|
"repo": "aiken",
|
||||||
|
"rev": "68d7f9ff07a6ab0e8230bb85d475acfaaa0dbca7",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "waalge",
|
||||||
|
"ref": "waalge/fix-nix-build",
|
||||||
|
"repo": "aiken",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"flake-compat": {
|
||||||
|
"flake": false,
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1696426674,
|
||||||
|
"narHash": "sha256-kvjfFW7WAETZlt09AgDn1MrtKzP7t90Vf7vypd3OL1U=",
|
||||||
|
"owner": "edolstra",
|
||||||
|
"repo": "flake-compat",
|
||||||
|
"rev": "0f9255e01c2351cc7d116c072cb317785dd33b33",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "edolstra",
|
||||||
|
"repo": "flake-compat",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"flake-parts": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs-lib": "nixpkgs-lib"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1738453229,
|
||||||
|
"narHash": "sha256-7H9XgNiGLKN1G1CgRh0vUL4AheZSYzPm+zmZ7vxbJdo=",
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "flake-parts",
|
||||||
|
"rev": "32ea77a06711b758da0ad9bd6a844c5740a87abd",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "flake-parts",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"flake-utils": {
|
||||||
|
"inputs": {
|
||||||
|
"systems": "systems"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1731533236,
|
||||||
|
"narHash": "sha256-l0KFg5HjrsfsO/JpG+r7fRrqm12kzFHyUHqHCVpMMbI=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"rev": "11707dc2f618dd54ca8739b309ec4fc024de578b",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "flake-utils",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"git-hooks-nix": {
|
||||||
|
"inputs": {
|
||||||
|
"flake-compat": "flake-compat",
|
||||||
|
"gitignore": "gitignore",
|
||||||
|
"nixpkgs": [
|
||||||
|
"nixpkgs"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1737465171,
|
||||||
|
"narHash": "sha256-R10v2hoJRLq8jcL4syVFag7nIGE7m13qO48wRIukWNg=",
|
||||||
|
"owner": "cachix",
|
||||||
|
"repo": "git-hooks.nix",
|
||||||
|
"rev": "9364dc02281ce2d37a1f55b6e51f7c0f65a75f17",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "cachix",
|
||||||
|
"repo": "git-hooks.nix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"gitignore": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": [
|
||||||
|
"git-hooks-nix",
|
||||||
|
"nixpkgs"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1709087332,
|
||||||
|
"narHash": "sha256-HG2cCnktfHsKV0s4XW83gU3F57gaTljL9KNSuG6bnQs=",
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "gitignore.nix",
|
||||||
|
"rev": "637db329424fd7e46cf4185293b9cc8c88c95394",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "hercules-ci",
|
||||||
|
"repo": "gitignore.nix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1739214665,
|
||||||
|
"narHash": "sha256-26L8VAu3/1YRxS8MHgBOyOM8xALdo6N0I04PgorE7UM=",
|
||||||
|
"owner": "nixos",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "64e75cd44acf21c7933d61d7721e812eac1b5a0a",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nixos",
|
||||||
|
"ref": "nixos-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs-lib": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1738452942,
|
||||||
|
"narHash": "sha256-vJzFZGaCpnmo7I6i416HaBLpC+hvcURh/BQwROcGIp8=",
|
||||||
|
"type": "tarball",
|
||||||
|
"url": "https://github.com/NixOS/nixpkgs/archive/072a6db25e947df2f31aab9eccd0ab75d5b2da11.tar.gz"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"type": "tarball",
|
||||||
|
"url": "https://github.com/NixOS/nixpkgs/archive/072a6db25e947df2f31aab9eccd0ab75d5b2da11.tar.gz"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_2": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1736320768,
|
||||||
|
"narHash": "sha256-nIYdTAiKIGnFNugbomgBJR+Xv5F1ZQU+HfaBqJKroC0=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "4bc9c909d9ac828a039f288cf872d16d38185db8",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "NixOS",
|
||||||
|
"ref": "nixpkgs-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"nixpkgs_3": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1740560979,
|
||||||
|
"narHash": "sha256-Vr3Qi346M+8CjedtbyUevIGDZW8LcA1fTG0ugPY/Hic=",
|
||||||
|
"owner": "NixOS",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"rev": "5135c59491985879812717f4c9fea69604e7f26f",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "NixOS",
|
||||||
|
"ref": "nixos-unstable",
|
||||||
|
"repo": "nixpkgs",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": {
|
||||||
|
"inputs": {
|
||||||
|
"aiken": "aiken",
|
||||||
|
"flake-parts": "flake-parts",
|
||||||
|
"git-hooks-nix": "git-hooks-nix",
|
||||||
|
"nixpkgs": "nixpkgs_3",
|
||||||
|
"treefmt-nix": "treefmt-nix"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"rust-overlay": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": "nixpkgs_2"
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1739327257,
|
||||||
|
"narHash": "sha256-rlGK8wxz/e50Z+PQRzuP+m03IrGkhcPGmgkBnkEZ9C8=",
|
||||||
|
"owner": "oxalica",
|
||||||
|
"repo": "rust-overlay",
|
||||||
|
"rev": "e01f2c035b7b8a428c119b183f4cbc55f2eef07c",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "oxalica",
|
||||||
|
"repo": "rust-overlay",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"systems": {
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1681028828,
|
||||||
|
"narHash": "sha256-Vy1rq5AaRuLzOxct8nz4T6wlgyUR7zLU309k9mBC768=",
|
||||||
|
"owner": "nix-systems",
|
||||||
|
"repo": "default",
|
||||||
|
"rev": "da67096a3b9bf56a91d16901293e51ba5b49a27e",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "nix-systems",
|
||||||
|
"repo": "default",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"treefmt-nix": {
|
||||||
|
"inputs": {
|
||||||
|
"nixpkgs": [
|
||||||
|
"nixpkgs"
|
||||||
|
]
|
||||||
|
},
|
||||||
|
"locked": {
|
||||||
|
"lastModified": 1739829690,
|
||||||
|
"narHash": "sha256-mL1szCeIsjh6Khn3nH2cYtwO5YXG6gBiTw1A30iGeDU=",
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "treefmt-nix",
|
||||||
|
"rev": "3d0579f5cc93436052d94b73925b48973a104204",
|
||||||
|
"type": "github"
|
||||||
|
},
|
||||||
|
"original": {
|
||||||
|
"owner": "numtide",
|
||||||
|
"repo": "treefmt-nix",
|
||||||
|
"type": "github"
|
||||||
|
}
|
||||||
|
}
|
||||||
|
},
|
||||||
|
"root": "root",
|
||||||
|
"version": 7
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,89 @@
|
||||||
|
{
|
||||||
|
description = "Subbit.xyz : Cardano's featherweight L2";
|
||||||
|
|
||||||
|
inputs = {
|
||||||
|
flake-parts.url = "github:hercules-ci/flake-parts";
|
||||||
|
nixpkgs.url = "github:NixOS/nixpkgs/nixos-unstable";
|
||||||
|
git-hooks-nix.url = "github:cachix/git-hooks.nix";
|
||||||
|
git-hooks-nix.inputs.nixpkgs.follows = "nixpkgs";
|
||||||
|
treefmt-nix.url = "github:numtide/treefmt-nix";
|
||||||
|
treefmt-nix.inputs.nixpkgs.follows = "nixpkgs";
|
||||||
|
aiken.url = "github:waalge/aiken/waalge/fix-nix-build";
|
||||||
|
};
|
||||||
|
|
||||||
|
outputs = inputs @ {flake-parts, ...}:
|
||||||
|
flake-parts.lib.mkFlake {inherit inputs;}
|
||||||
|
{
|
||||||
|
imports = [
|
||||||
|
inputs.git-hooks-nix.flakeModule
|
||||||
|
inputs.treefmt-nix.flakeModule
|
||||||
|
];
|
||||||
|
systems = ["x86_64-linux" "aarch64-darwin"];
|
||||||
|
perSystem = {
|
||||||
|
config,
|
||||||
|
self',
|
||||||
|
inputs',
|
||||||
|
pkgs,
|
||||||
|
system,
|
||||||
|
...
|
||||||
|
}: {
|
||||||
|
treefmt = {
|
||||||
|
projectRootFile = "flake.nix";
|
||||||
|
flakeFormatter = true;
|
||||||
|
programs = {
|
||||||
|
prettier = {
|
||||||
|
enable = true;
|
||||||
|
settings = {
|
||||||
|
printWidth = 80;
|
||||||
|
proseWrap = "always";
|
||||||
|
};
|
||||||
|
};
|
||||||
|
alejandra.enable = true;
|
||||||
|
elm-format.enable = true;
|
||||||
|
};
|
||||||
|
};
|
||||||
|
pre-commit.settings.hooks = {
|
||||||
|
treefmt.enable = true;
|
||||||
|
aiken = {
|
||||||
|
enable = true;
|
||||||
|
name = "aiken";
|
||||||
|
description = "Run aiken's formatter on ./aik";
|
||||||
|
files = "\\.ak";
|
||||||
|
entry = "${inputs'.aiken.packages.aiken}/bin/aiken fmt ./aik";
|
||||||
|
};
|
||||||
|
};
|
||||||
|
devShells.default = let
|
||||||
|
subbit =
|
||||||
|
pkgs.writeShellScriptBin "subbit"
|
||||||
|
''
|
||||||
|
#!/usr/bin/env bash
|
||||||
|
node out/index.js $@
|
||||||
|
'';
|
||||||
|
in
|
||||||
|
pkgs.mkShell {
|
||||||
|
nativeBuildInputs = [
|
||||||
|
config.treefmt.build.wrapper
|
||||||
|
];
|
||||||
|
shellHook = ''
|
||||||
|
${config.pre-commit.installationScript}
|
||||||
|
echo 1>&2 "Welcome to the development shell!"
|
||||||
|
export alias subbit="node out/index.js "
|
||||||
|
'';
|
||||||
|
packages = [
|
||||||
|
pkgs.just
|
||||||
|
inputs'.aiken.packages.aiken
|
||||||
|
pkgs.elmPackages.elm
|
||||||
|
pkgs.elmPackages.nodejs
|
||||||
|
pkgs.elmPackages.elm-language-server
|
||||||
|
pkgs.elmPackages.elm-git-install
|
||||||
|
pkgs.uglify-js
|
||||||
|
pkgs.caddy
|
||||||
|
pkgs.pnpm
|
||||||
|
pkgs.typescript-language-server
|
||||||
|
subbit
|
||||||
|
];
|
||||||
|
};
|
||||||
|
};
|
||||||
|
flake = {};
|
||||||
|
};
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,26 @@
|
||||||
|
default:
|
||||||
|
just -l
|
||||||
|
|
||||||
|
out_dir := "./out"
|
||||||
|
filename := "elm.js"
|
||||||
|
out_path := out_dir + "/" + filename
|
||||||
|
min_out_path := out_dir + "/" + filename
|
||||||
|
|
||||||
|
static_dir := "./static"
|
||||||
|
|
||||||
|
setup:
|
||||||
|
mkdir -p {{out_dir}}
|
||||||
|
cp -r {{static_dir}}/* {{out_dir}}
|
||||||
|
|
||||||
|
dev args:
|
||||||
|
just setup
|
||||||
|
elm make --optimize src/Cli.elm --output {{out_path}}
|
||||||
|
cp src/index.js {{out_dir}}
|
||||||
|
node out/index.js {{args}}
|
||||||
|
|
||||||
|
serve:
|
||||||
|
caddy file-server --listen :8888 --root {{out_dir}}
|
||||||
|
|
||||||
|
# Make main and optimize
|
||||||
|
make:
|
||||||
|
elm make src/Main.elm --output elm.js --optimize
|
||||||
|
|
@ -0,0 +1,14 @@
|
||||||
|
{
|
||||||
|
"name": "tx-elm",
|
||||||
|
"version": "1.0.0",
|
||||||
|
"description": "",
|
||||||
|
"main": "out/index.js",
|
||||||
|
"scripts": {
|
||||||
|
"test": "echo \"Error: no test specified\" && exit 1"
|
||||||
|
},
|
||||||
|
"keywords": [],
|
||||||
|
"author": "",
|
||||||
|
"license": "ISC",
|
||||||
|
"packageManager": "pnpm@10.4.1",
|
||||||
|
"dependencies": {}
|
||||||
|
}
|
||||||
|
|
@ -0,0 +1,8 @@
|
||||||
|
lockfileVersion: "9.0"
|
||||||
|
|
||||||
|
settings:
|
||||||
|
autoInstallPeers: true
|
||||||
|
excludeLinksFromLockfile: false
|
||||||
|
|
||||||
|
importers:
|
||||||
|
.: {}
|
||||||
|
|
@ -0,0 +1,91 @@
|
||||||
|
port module Cli exposing (..)
|
||||||
|
|
||||||
|
import Cbor.Tag exposing (Tag(..))
|
||||||
|
import CliTools exposing (doOnCmd, mkCLi)
|
||||||
|
import Platform exposing (worker)
|
||||||
|
|
||||||
|
|
||||||
|
version : String
|
||||||
|
version =
|
||||||
|
"0.0.1"
|
||||||
|
|
||||||
|
|
||||||
|
versionMessage : String
|
||||||
|
versionMessage =
|
||||||
|
version
|
||||||
|
|
||||||
|
|
||||||
|
helpMessage : String
|
||||||
|
helpMessage =
|
||||||
|
"""
|
||||||
|
cli - a cli tool in elm
|
||||||
|
|
||||||
|
How to build a cli tool in elm
|
||||||
|
"""
|
||||||
|
|
||||||
|
|
||||||
|
type alias Flags =
|
||||||
|
()
|
||||||
|
|
||||||
|
|
||||||
|
type alias Model =
|
||||||
|
()
|
||||||
|
|
||||||
|
|
||||||
|
type Msg
|
||||||
|
= Args (List String)
|
||||||
|
|
||||||
|
|
||||||
|
main : Program Flags Model Msg
|
||||||
|
main =
|
||||||
|
worker
|
||||||
|
{ init = init
|
||||||
|
, update = update
|
||||||
|
, subscriptions = subscriptions
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
init : Flags -> ( Model, Cmd Msg )
|
||||||
|
init _ =
|
||||||
|
( (), Cmd.none )
|
||||||
|
|
||||||
|
|
||||||
|
subscriptions : Model -> Sub Msg
|
||||||
|
subscriptions _ =
|
||||||
|
do Args
|
||||||
|
|
||||||
|
|
||||||
|
port do : (List String -> msg) -> Sub msg
|
||||||
|
|
||||||
|
|
||||||
|
port stdout : String -> Cmd msg
|
||||||
|
|
||||||
|
|
||||||
|
s : String -> ( Model, Cmd msg )
|
||||||
|
s x =
|
||||||
|
( (), stdout x )
|
||||||
|
|
||||||
|
|
||||||
|
update : Msg -> Model -> ( Model, Cmd Msg )
|
||||||
|
update (Args l) model =
|
||||||
|
cli l model
|
||||||
|
|
||||||
|
|
||||||
|
cli : List String -> Model -> ( Model, Cmd Msg )
|
||||||
|
cli =
|
||||||
|
mkCLi stdout version helpMessage dos
|
||||||
|
|
||||||
|
|
||||||
|
dos : List (List String -> Model -> Maybe ( Model, Cmd Msg ))
|
||||||
|
dos =
|
||||||
|
[ doOnCmd "tx" doTx, doOnCmd "view" doView ]
|
||||||
|
|
||||||
|
|
||||||
|
doTx : List String -> Model -> ( Model, Cmd Msg )
|
||||||
|
doTx _ _ =
|
||||||
|
s "doTx is not yet implemented"
|
||||||
|
|
||||||
|
|
||||||
|
doView : List String -> Model -> ( Model, Cmd Msg )
|
||||||
|
doView _ _ =
|
||||||
|
s "doView is not yet implemented"
|
||||||
|
|
@ -0,0 +1,90 @@
|
||||||
|
module CliTools exposing (..)
|
||||||
|
|
||||||
|
import Basics.Extra exposing (uncurry)
|
||||||
|
import MaybeExtra exposing (..)
|
||||||
|
|
||||||
|
|
||||||
|
{-| -}
|
||||||
|
doWrapString : (String -> Cmd msg) -> (List String -> Maybe String) -> List String -> model -> Maybe ( model, Cmd msg )
|
||||||
|
doWrapString pt fn args model =
|
||||||
|
Maybe.map (\x -> ( model, pt x )) (fn args)
|
||||||
|
|
||||||
|
|
||||||
|
isHelp : List String -> Bool
|
||||||
|
isHelp l =
|
||||||
|
case l of
|
||||||
|
[] ->
|
||||||
|
True
|
||||||
|
|
||||||
|
fst :: _ ->
|
||||||
|
List.member fst [ "help", "-h", "--help" ]
|
||||||
|
|
||||||
|
|
||||||
|
justHelp : String -> List String -> Maybe String
|
||||||
|
justHelp =
|
||||||
|
justIf isHelp
|
||||||
|
|
||||||
|
|
||||||
|
doHelpWith : (String -> Cmd msg) -> String -> List String -> model -> Maybe ( model, Cmd msg )
|
||||||
|
doHelpWith pt msg args =
|
||||||
|
doWrapString pt (justHelp msg) args
|
||||||
|
|
||||||
|
|
||||||
|
isVersion : List String -> Bool
|
||||||
|
isVersion l =
|
||||||
|
case l of
|
||||||
|
[] ->
|
||||||
|
False
|
||||||
|
|
||||||
|
fst :: _ ->
|
||||||
|
List.member fst [ "version", "-v", "--version" ]
|
||||||
|
|
||||||
|
|
||||||
|
justVersionWith : String -> List String -> Maybe String
|
||||||
|
justVersionWith =
|
||||||
|
justIf isVersion
|
||||||
|
|
||||||
|
|
||||||
|
doVersionWith : (String -> Cmd msg) -> String -> List String -> model -> Maybe ( model, Cmd msg )
|
||||||
|
doVersionWith pt version args =
|
||||||
|
doWrapString pt (justVersionWith version) args
|
||||||
|
|
||||||
|
|
||||||
|
mkDefDos : (String -> Cmd msg) -> String -> String -> List (List String -> model -> Maybe ( model, Cmd msg ))
|
||||||
|
mkDefDos stdout version helpMessage =
|
||||||
|
[ doHelpWith stdout helpMessage
|
||||||
|
, doVersionWith stdout version
|
||||||
|
]
|
||||||
|
|
||||||
|
|
||||||
|
doElse : (String -> Cmd msg) -> List String -> model -> ( model, Cmd msg )
|
||||||
|
doElse pt l model =
|
||||||
|
case l of
|
||||||
|
[] ->
|
||||||
|
( model, pt "Try `help`" )
|
||||||
|
|
||||||
|
fst :: _ ->
|
||||||
|
( model, pt ("Unknown cmd : `" ++ fst ++ "`") )
|
||||||
|
|
||||||
|
|
||||||
|
doOnCmd : String -> (List String -> model -> ( model, Cmd msg )) -> List String -> model -> Maybe ( model, Cmd msg )
|
||||||
|
doOnCmd cmd doThing args model =
|
||||||
|
case args of
|
||||||
|
[] ->
|
||||||
|
Nothing
|
||||||
|
|
||||||
|
fst :: rest ->
|
||||||
|
if cmd == fst then
|
||||||
|
Just (doThing rest model)
|
||||||
|
|
||||||
|
else
|
||||||
|
Nothing
|
||||||
|
|
||||||
|
|
||||||
|
mkCLi : (String -> Cmd msg) -> String -> String -> List (List String -> model -> Maybe ( model, Cmd msg )) -> List String -> model -> ( model, Cmd msg )
|
||||||
|
mkCLi stdout version helpMessage dos =
|
||||||
|
let
|
||||||
|
defDos =
|
||||||
|
mkDefDos stdout version helpMessage
|
||||||
|
in
|
||||||
|
\args -> \model -> justFirstElse (List.map uncurry (defDos ++ dos)) (uncurry (doElse stdout)) ( args, model )
|
||||||
|
|
@ -0,0 +1,100 @@
|
||||||
|
module Main exposing (main)
|
||||||
|
|
||||||
|
import Browser
|
||||||
|
import Cardano.Data exposing (Data(..), toCbor)
|
||||||
|
import Cbor.Encode as CborE
|
||||||
|
import Hex.Convert as Hex
|
||||||
|
import Html exposing (Html, button, div, h1, text)
|
||||||
|
import Html.Attributes exposing (class)
|
||||||
|
import Html.Events exposing (onClick)
|
||||||
|
import Integer exposing (Integer)
|
||||||
|
import Natural
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- MAIN
|
||||||
|
|
||||||
|
|
||||||
|
main : Program () Model Msg
|
||||||
|
main =
|
||||||
|
Browser.sandbox { init = init, update = update, view = view }
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- MODEL
|
||||||
|
|
||||||
|
|
||||||
|
type alias Model =
|
||||||
|
Int
|
||||||
|
|
||||||
|
|
||||||
|
init : Model
|
||||||
|
init =
|
||||||
|
0
|
||||||
|
|
||||||
|
|
||||||
|
modelToData model =
|
||||||
|
case Integer.fromInt model of
|
||||||
|
Just i ->
|
||||||
|
Int i
|
||||||
|
|
||||||
|
_ ->
|
||||||
|
Int Integer.one
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- type Data
|
||||||
|
-- = Constr Natural (List Data)
|
||||||
|
-- | Map (List ( Data, Data ))
|
||||||
|
-- | List (List Data)
|
||||||
|
-- | Int Integer
|
||||||
|
-- | Bytes (Bytes Any)
|
||||||
|
|
||||||
|
|
||||||
|
asString : Data -> String
|
||||||
|
asString d =
|
||||||
|
case d of
|
||||||
|
Constr n _ ->
|
||||||
|
"Constr " ++ Natural.toString n
|
||||||
|
|
||||||
|
Map l ->
|
||||||
|
"Map " ++ String.fromInt (List.length l)
|
||||||
|
|
||||||
|
_ ->
|
||||||
|
"OTHER "
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- UPDATE
|
||||||
|
|
||||||
|
|
||||||
|
type Msg
|
||||||
|
= Increment
|
||||||
|
| Decrement
|
||||||
|
|
||||||
|
|
||||||
|
update : Msg -> Model -> Model
|
||||||
|
update msg model =
|
||||||
|
case msg of
|
||||||
|
Increment ->
|
||||||
|
model * model + 1
|
||||||
|
|
||||||
|
Decrement ->
|
||||||
|
model - 1
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
-- VIEW
|
||||||
|
|
||||||
|
|
||||||
|
view : Model -> Html Msg
|
||||||
|
view model =
|
||||||
|
div [ class "container" ]
|
||||||
|
[ div [ class "row" ]
|
||||||
|
[ div [ class "col-sm-8" ] [ h1 [] [ text "Title" ] ] ]
|
||||||
|
, div [ class "row" ]
|
||||||
|
[ div [ class "col-sm-2" ] [ button [ onClick Increment ] [ text "+" ] ]
|
||||||
|
, div [ class "col-sm-2" ] [ text (Hex.toString (CborE.encode (toCbor (modelToData model)))) ]
|
||||||
|
, div [ class "col-sm-2" ] [ button [ onClick Decrement ] [ text "-" ] ]
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
@ -0,0 +1,35 @@
|
||||||
|
module MaybeExtra exposing (justFirst, justFirstElse, justIf)
|
||||||
|
|
||||||
|
|
||||||
|
justFirst : List (a -> Maybe b) -> a -> Maybe b
|
||||||
|
justFirst l x =
|
||||||
|
case l of
|
||||||
|
[] ->
|
||||||
|
Nothing
|
||||||
|
|
||||||
|
first :: rest ->
|
||||||
|
case first x of
|
||||||
|
Just y ->
|
||||||
|
Just y
|
||||||
|
|
||||||
|
_ ->
|
||||||
|
justFirst rest x
|
||||||
|
|
||||||
|
|
||||||
|
justFirstElse : List (a -> Maybe b) -> (a -> b) -> a -> b
|
||||||
|
justFirstElse l def x =
|
||||||
|
case justFirst l x of
|
||||||
|
Just y ->
|
||||||
|
y
|
||||||
|
|
||||||
|
Nothing ->
|
||||||
|
def x
|
||||||
|
|
||||||
|
|
||||||
|
justIf : (a -> Bool) -> b -> a -> Maybe b
|
||||||
|
justIf pred y x =
|
||||||
|
if pred x then
|
||||||
|
Just y
|
||||||
|
|
||||||
|
else
|
||||||
|
Nothing
|
||||||
|
|
@ -0,0 +1,10 @@
|
||||||
|
var { stdout } = require("node:process");
|
||||||
|
|
||||||
|
var Elm = require("./elm").Elm;
|
||||||
|
var app = Elm.Cli.init({});
|
||||||
|
|
||||||
|
app.ports.stdout.subscribe(function (message) {
|
||||||
|
stdout.write(message + "\n");
|
||||||
|
});
|
||||||
|
|
||||||
|
app.ports.do.send(process.argv.slice(2));
|
||||||
|
|
@ -0,0 +1,16 @@
|
||||||
|
<!doctype html>
|
||||||
|
<html>
|
||||||
|
<head>
|
||||||
|
<title>My Elm Project</title>
|
||||||
|
<meta charset="UTF-8" />
|
||||||
|
<title>Main</title>
|
||||||
|
<link rel="stylesheet" href="./nord-minicss.css" />
|
||||||
|
<script src="elm.js"></script>
|
||||||
|
</head>
|
||||||
|
<body>
|
||||||
|
<div id="elm"></div>
|
||||||
|
<script>
|
||||||
|
var app = Elm.Main.init({ node: document.getElementById("elm") });
|
||||||
|
</script>
|
||||||
|
</body>
|
||||||
|
</html>
|
||||||
File diff suppressed because it is too large
Load Diff
Loading…
Reference in New Issue