Update help and root prompt.
This commit is contained in:
parent
41f723c417
commit
f5ee21eb36
|
@ -29,6 +29,7 @@
|
||||||
#:use-module (gash guix-build-utils)
|
#:use-module (gash guix-build-utils)
|
||||||
#:use-module (gash io)
|
#:use-module (gash io)
|
||||||
#:export (
|
#:export (
|
||||||
|
display-tabulated
|
||||||
cat-command
|
cat-command
|
||||||
ls-command
|
ls-command
|
||||||
reboot-command
|
reboot-command
|
||||||
|
|
|
@ -250,8 +250,12 @@ copyleft.
|
||||||
(display "\
|
(display "\
|
||||||
Hello, this is gash, Guile As SHell.
|
Hello, this is gash, Guile As SHell.
|
||||||
|
|
||||||
TODO
|
Gash is work in progress; many language constructs work, pipes work,
|
||||||
"))
|
some redirections work.
|
||||||
|
")
|
||||||
|
(when (or %prefer-builtins? (not (PATH-search-path "ls")))
|
||||||
|
(display "\nIt features the following, somewhat naive builtin commands\n")
|
||||||
|
(display-tabulated (map car %commands))))
|
||||||
|
|
||||||
(define (cp-command source dest)
|
(define (cp-command source dest)
|
||||||
`(copy-file ,source ,dest))
|
`(copy-file ,source ,dest))
|
||||||
|
@ -405,7 +409,7 @@ TODO
|
||||||
(report-jobs)
|
(report-jobs)
|
||||||
(string-append
|
(string-append
|
||||||
l e "[01;32m" r user "@" host l e "[00m" r ":"
|
l e "[01;32m" r user "@" host l e "[00m" r ":"
|
||||||
l e "[01;34m" r cwd l e "[00m" r "$ ")))))
|
l e "[01;34m" r cwd l e "[00m" r (if (zero? (getuid)) "# " "$ "))))))
|
||||||
|
|
||||||
(define (string-prefix s1 s2)
|
(define (string-prefix s1 s2)
|
||||||
(substring/read-only s1 0 (string-prefix-length s1 s2)))
|
(substring/read-only s1 0 (string-prefix-length s1 s2)))
|
||||||
|
|
Loading…
Reference in New Issue