andrius
/
gash
mirror of https://git.savannah.gnu.org/git/gash.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

replace file-system-tree with scandir

This commit is contained in:
Rutger van Beusekom 2016-10-19 14:26:06 +02:00
parent 4997c4421d
commit fb6a7d0279
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
sh/anguish.scm
View File

@ -213,9 +213,8 @@ copyleft.
(define (filename-completion text state)
(if (not state)
(let ((completions (map car
(filter (cute string-prefix? text <>)
(map car (cddr (file-system-tree (getcwd))))))))
(let ((completions (filter (cute string-prefix? text <>)
(scandir (getcwd)))))
(cond ((< 1 (length completions)) (begin (newline)
(display (string-join completions " ")) (newline)
(redraw-current-line)
@ -226,9 +225,8 @@ copyleft.
(define (search-binary-in-path-completion text state)
(if (not state)
(let ((completions (map car
(filter (cute string-prefix? text <>)
(map car (cddr (file-system-tree "/bin")))))))
(let ((completions (filter (cute string-prefix? text <>)
(scandir "/bin"))))
(cond ((< 1 (length completions)) (begin (newline)
(display (string-join completions " ")) (newline)
(redraw-current-line)
@ -239,5 +237,4 @@ copyleft.
(define (completion text state)
(or (filename-completion text state)
;;(search-binary-in-path-completion text state)
))
(search-binary-in-path-completion text state)))