From 858adad304d20d1f3bf4d46ccdfa898b21920be2 Mon Sep 17 00:00:00 2001
From: mitchell <70453897+667e-11@users.noreply.github.com>
Date: Wed, 13 Oct 2010 21:29:37 -0400
Subject: Make recursion depth a parameter; modules/textadept/snapopen.lua

---
 modules/textadept/snapopen.lua | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/modules/textadept/snapopen.lua b/modules/textadept/snapopen.lua
index dfc80db3..da4581d3 100644
--- a/modules/textadept/snapopen.lua
+++ b/modules/textadept/snapopen.lua
@@ -10,18 +10,18 @@ module('_m.textadept.snapopen', package.seeall)
 -- ## Settings
 --
 -- * `PATHS`: Table of default paths to search.
--- * `DEPTH`: Maximum directory depth to search (defaults to 4).
+-- * `DEFAULT_DEPTH`: Maximum directory depth to search (defaults to 4).
 -- * `MAX`: Maximum number of files to list (defaults to 1000).
 --
 -- ## Examples
 --
---     local snapopen = _m.textadept.snapopen.open
+--     local snapopen = _m.textadept.snapopen
 --
 --     -- Show all files in PATHS.
 --     snapopen()
 --
 --     -- Show all files in the current file's directory.
---     snapopen(buffer.filename:match('^(.+)[/\\]'), nil, true)
+--     snapopen(buffer.filename:match('^.+[/\\]'), nil, true)
 --
 --     -- Show all Lua files in PATHS.
 --     snapopen(nil, '!%.lua$')
@@ -32,11 +32,12 @@ module('_m.textadept.snapopen', package.seeall)
 
 -- settings
 PATHS = {}
-DEPTH = 4
+DEFAULT_DEPTH = 4
 MAX = 1000
 -- end settings
 
 local lfs = require 'lfs'
+local DEPTH = DEFAULT_DEPTH
 
 -- Determines whether or not the given file matches the given filter.
 -- @param file The filename.
@@ -88,11 +89,13 @@ end
 --   a table assigned to a 'folders' key in the filter table.
 -- @param exclusive Flag indicating whether or not to exclude PATHS in the
 --   search. Defaults to false.
+-- @param depth Number of directories to recurse into for finding files.
+--   Defaults to DEFAULT_DEPTH.
 -- @usage _m.textadept.snapopen.open()
 -- @usage _m.textadept.snapopen.open(buffer.filename:match('^.+/'), nil, true)
 -- @usage _m.textadept.snapopen.open(nil, '!%.lua$')
 -- @usage _m.textadept.snapopen.open(nil, { folders = { '%.hg' } })
-function open(paths, filter, exclusive)
+function open(paths, filter, exclusive, depth)
   if not paths then paths = {} end
   if type(paths) == 'string' then paths = { paths } end
   if not filter then filter = {} end
@@ -100,6 +103,7 @@ function open(paths, filter, exclusive)
   if not exclusive then
     for _, path in ipairs(PATHS) do paths[#paths + 1] = path end
   end
+  DEPTH = depth or DEFAULT_DEPTH
   local list = {}
   for _, path in ipairs(paths) do add_directory(path, list, 1, filter) end
   if #list >= MAX then
-- 
cgit v1.2.3