From d5998a712f4e11776a341195bd288274a7d97793 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 24 Sep 2012 20:22:29 -0700 Subject: [PATCH] tools.completion: add "paths-matching". --- basis/tools/completion/completion.factor | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/basis/tools/completion/completion.factor b/basis/tools/completion/completion.factor index f3dcb53eac..c1dace983a 100644 --- a/basis/tools/completion/completion.factor +++ b/basis/tools/completion/completion.factor @@ -2,9 +2,9 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays assocs colors.constants combinators fry -io kernel locals make math math.order namespaces sequences -sorting strings unicode.case unicode.categories unicode.data -vectors vocabs vocabs.hierarchy words ; +io io.directories kernel locals make math math.order namespaces +sequences sorting strings unicode.case unicode.categories +unicode.data vectors vocabs vocabs.hierarchy words ; IN: tools.completion @@ -97,3 +97,6 @@ PRIVATE> : colors-matching ( str -- seq ) named-colors dup zip completions ; + +: paths-matching ( str path -- seq ) + directory-files dup zip completions ;