Aded extended commands and editor
This commit is contained in:
+5
-1
@@ -9,7 +9,7 @@
|
||||
|
||||
(provide pwd ls mkdir rmdir rm cp mv cat touch echo which
|
||||
head tail wc sort uniq cut tee tr basename dirname realpath readlink
|
||||
stat du df mktemp printenv env date help raco)
|
||||
stat du df mktemp printenv env date time edit help raco)
|
||||
|
||||
(define (make-command-procedure name)
|
||||
(λ args
|
||||
@@ -45,6 +45,8 @@
|
||||
(define printenv-command (make-command-procedure 'printenv))
|
||||
(define env-command (make-command-procedure 'env))
|
||||
(define date-command (make-command-procedure 'date))
|
||||
(define time-command (make-command-procedure 'time))
|
||||
(define edit-command (make-command-procedure 'edit))
|
||||
(define raco-command coreutils-raco)
|
||||
|
||||
(define (help-command . args)
|
||||
@@ -131,5 +133,7 @@
|
||||
(define-pipeline-alias printenv (make-coreutils-alias #'printenv-command))
|
||||
(define-pipeline-alias env (make-env-alias #'env-command))
|
||||
(define-pipeline-alias date (make-coreutils-alias #'date-command))
|
||||
(define-pipeline-alias time (make-coreutils-alias #'time-command))
|
||||
(define-pipeline-alias edit (make-coreutils-alias #'edit-command))
|
||||
(define-pipeline-alias help (make-coreutils-alias #'help-command))
|
||||
(define-pipeline-alias raco (make-coreutils-alias #'raco-command))
|
||||
|
||||
Reference in New Issue
Block a user