update readme

README.md

@@ -53,31 +53,26 @@ import argv
 import glint
 import glint/flag
 
-/// the key for the caps flag
-const caps = "caps"
 
-/// a boolean flag with default False to control message capitalization.
-///
+// this function returns the builder for the caps flag
 fn caps_flag() -> flag.Builder(Bool) {
   flag.bool()
   |> flag.default(False)
   |> flag.description("Capitalize the provided name")
 }
 
-/// the command function that will be executed
+/// the glint command that will be executed
 ///
-fn hello(input: glint.CommandInput) -> Nil {
-  let assert Ok(caps) = flag.get_bool(from: input.flags, for: caps)
-
-  let name =
-    case input.args {
+fn hello() -> glint.Command(Nil) {
+  use <- glint.description("Prints Hello, <NAME>!")
+  use caps <- glint.flag("caps",caps_flag())
+  use _, args, flags <- glint.command()
+  let assert Ok(caps) = caps(flags)
+  let name = case args {
         [] -> "Joe"
         [name,..] -> name
-    }
-
+  }
   let msg = "Hello, " <> name <> "!"
-
-
   case caps {
     True -> uppercase(msg)
     False -> msg
@@ -93,16 +88,8 @@ pub fn main() {
   // with pretty help enabled, using the built-in colours
   |> glint.with_pretty_help(glint.default_pretty_help())
   // with a root command that executes the `hello` function
-  |> glint.add(
-      // add the command to the root
-      at: [],
-      // create the command, add any flags
-      do: glint.command(hello)
-      // with flag `caps`
-      |> glint.flag(caps, caps_flag())
-      // with a short description
-      |> glint.description("Prints Hello, <NAME>!"),
-  )
+  |> glint.add(at: [], do: hello)
+  // execute given arguments from stdin
   |> glint.run(argv.load().arguments)
 }
 ```

src/glint.gleam

@@ -484,12 +484,12 @@ fn execute_root(
           False ->
             snag.error(
               "unmatched named arguments: "
-              <> {
-                contents.named_args
-                |> list.drop(list.length(named))
-                |> list.map(fn(s) { "'" <> s <> "'" })
-                |> string.join(", ")
-              },
+                <> {
+                  contents.named_args
+                  |> list.drop(list.length(named))
+                  |> list.map(fn(s) { "'" <> s <> "'" })
+                  |> string.join(", ")
+                },
             )
         }
       })
@@ -515,8 +515,8 @@ fn execute_root(
     Error(#(snag, help)) ->
       Error(
         snag.pretty_print(snag)
-        <> "\nSee the following help text, available via the '--help' flag.\n\n"
-        <> help,
+          <> "\nSee the following help text, available via the '--help' flag.\n\n"
+          <> help,
       )
   }
 }
@@ -708,8 +708,8 @@ fn build_subcommands_help(
     Metadata(
       name: name,
       description: cmd.contents
-        |> option.map(fn(command) { command.description })
-        |> option.unwrap(""),
+      |> option.map(fn(command) { command.description })
+      |> option.unwrap(""),
     ),
     ..acc
   ]