From 664e4e78ffc6be5ffd06b50c840b44ecc6e22644 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 28 Oct 2023 13:16:50 +0000
Subject: [PATCH] tweak

---
 doc/reference/std/cli/shell.md | 71 ----------------------------------
 1 file changed, 71 deletions(-)

diff --git a/doc/reference/std/cli/shell.md b/doc/reference/std/cli/shell.md
index 4f89128d1..45238afdd 100644
--- a/doc/reference/std/cli/shell.md
+++ b/doc/reference/std/cli/shell.md
@@ -1,72 +1 @@
 # Shell Command Support
-
-The `:std/cli/shell` library provides facilities for working with Unix shell code
-
-::: tip usage
-```scheme
-(import :std/cli/shell)
-```
-:::
-
-An earlier version of this library used to be available as `:clan/shell`
-in gerbil-utils.
-
-## Interface
-
-### easy-shell-character?
-```scheme
-(easy-shell-character? character) => bool
-```
-
-Returns true if the `character` if a string may contain the character in any position
-without that this fact requiring the string to be quoted in any shell.
-This include alphanumeric characters and those in `"@%-_=+:,./"`
-(not including the double quotes).
-
-All other ASCII characters may require the string to be quoted.
-For good measure we also quote strings containing non-ASCII characters.
-
-::: tip Examples:
-```scheme
-> (string-for-each (lambda (c) (or (easy-shell-character? c) (error "foo")))
-    "abcdefghijklmnopqrstuvwxzABCDEFGHIJKLMNOPQRSTUVWXZ012345678@%-_=+:,./") ;; no error
-> (string-for-each (lambda (c) (or (not (easy-shell-character? c)) (error "foo")))
-    "!`~#$^&*()[{]}\\|;'\"<>? \r\n\t\v") ;; no error either
-```
-:::
-
-### needs-shell-escape?
-```scheme
-(needs-shell-escape? string) => bool
-```
-Returns true if the `string` is known not to require quoting in a Unix shell.
-
-The current implementation only trusts strings where every character
-satisfies `easy-shell-character?` to not require quoting.
-
-::: tip Examples:
-```scheme
-> (map needs-shell-escape ["foo?" "~user" "$1" "*.*" "!1" "ab\\cd" "{}" "a;b" "&amp;" "|" "a b  c"])
-(#t #t #t #t #t #t #t #t #t #t #t)
-> (map needs-shell-escape ["foo" "%-_=+:,./" "1" "..." "abcd" "x=y:z,t.z/u+v_w"])
-(#f #f #f #f #f #f)
-```
-:::
-
-### escape-shell-token
-```scheme
-(escape-shell-token string) => shell-escaped-string
-```
-Given a `string`, returns a shell-escaped-string that,
-when included in a Unix shell command, will expand into the input `string`.
-
-::: tip Examples:
-```scheme
-> (map escape-shell-token ["foo?" "~user" "$1" "*.*" "!1" "ab\\cd" "{}" "a;b" "&amp;" "|" "a b  c"])
-("\"foo?\"" "\"~user\"" "\"\\$1\"" "\"*.*\"" "\"!1\"" "\"ab\\\\cd\"" "\"{}\"" "\"a;b\"" "\"&amp;\"" "\"|\"" "\"a b  c\"")
-> (let (l ["foo" "%-_=+:,./" "1" "..." "abcd" "x=y:z,t.z/u+v_w"])
-    (equal? l (map escape-shell-token l)))
-#t
-```
-:::
-