scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

let ls not default to ls -l -a

This commit is contained in:
mainzelm 2006-04-07 07:36:04 +00:00
parent 9321a0e8cf
commit bd1f30f129
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scheme/std-command.scm
View File

@ -127,8 +127,8 @@
;; We don't care for options that format the output. ;; We don't care for options that format the output.
(define defaults-ls-options (define defaults-ls-options
'((long . #t) '((long . #f)
(dot-files? . #t) (dot-files? . #f)
(sort-by-mtime . #f) (sort-by-mtime . #f)
(reverse-sort . #f))) (reverse-sort . #f)))
@ -170,7 +170,7 @@
no-completer no-completer
(lambda (command args) (lambda (command args)
(debug-message "running ls plugin" command args) (debug-message "running ls plugin" command args)
(receive (options paths) (parse-ls-arguments args) (receive (options paths) (parse-ls-arguments args) ;; 'long is ignored
(let* ((set? (lambda (opt) (cdr (assoc opt options)))) (let* ((set? (lambda (opt) (cdr (assoc opt options))))
(sort (sort
(if (set? 'sort-by-mtime) (if (set? 'sort-by-mtime)