Add fennel loader to rockspec

.busted

@@ -1,5 +1,8 @@
 return {
 	_all = {
 		lpath = "?.lua;?/init.lua"
-	}
+	};
+	core = {
+		recursive = false
+	};
 }

.editorconfig

@@ -0,0 +1,2 @@
+[*]
+indent_style = tab

.luarc.json

@@ -0,0 +1,3 @@
+{
+    "workspace.checkThirdParty": false
+}

glass-dev-1.rockspec

@@ -1,30 +0,0 @@
-package = "glass"
-version = "dev-1"
-source = {
-   url = "git+https://github.com/darkwiiplayer/glass"
-}
-description = {
-   homepage = "https://github.com/darkwiiplayer/glass",
-   license = "Unlicense"
-}
-dependencies = {
-	"luafilesystem"
-}
-build = {
-   type = "builtin",
-   modules = {
-      glass = "glass.lua",
-      ["glass.cosmo"] = "glass/cosmo.lua",
-      ["glass.csv"] = "glass/csv.lua",
-      ["glass.discount"] = "glass/discount.lua",
-      ["glass.environment"] = "glass/environment.lua",
-      ["glass.error"] = "glass/error.lua",
-      ["glass.json"] = "glass/json.lua",
-      ["glass.lua"] = "glass/lua.lua",
-      ["glass.raw"] = "glass/raw.lua",
-      ["glass.skooma.html"] = "glass/skooma/html.lua",
-      ["glass.skooma.xml"] = "glass/skooma/xml.lua",
-      ["glass.table"] = "glass/table.lua",
-      ["glass.yaml"] = "glass/yaml.lua",
-   }
-}

glass-dev-2.rockspec

@@ -0,0 +1,32 @@
+package = "glass"
+version = "dev-2"
+source = {
+	url = "git+https://github.com/darkwiiplayer/glass"
+}
+description = {
+	summary = "A library to load configuration files by accessing tables",
+	homepage = "https://github.com/darkwiiplayer/glass",
+	license = "Unlicense"
+}
+dependencies = {
+	"luafilesystem"
+}
+build = {
+	type = "builtin",
+	modules = {
+		glass = "glass.lua",
+		["glass.cosmo"] = "glass/cosmo.lua",
+		["glass.csv"] = "glass/csv.lua",
+		["glass.discount"] = "glass/discount.lua",
+		["glass.environment"] = "glass/environment.lua",
+		["glass.error"] = "glass/error.lua",
+		["glass.fennel"] = "glass/fennel.lua",
+		["glass.json"] = "glass/json.lua",
+		["glass.lua"] = "glass/lua.lua",
+		["glass.raw"] = "glass/raw.lua",
+		["glass.skooma.html"] = "glass/skooma/html.lua",
+		["glass.skooma.xml"] = "glass/skooma/xml.lua",
+		["glass.table"] = "glass/table.lua",
+		["glass.yaml"] = "glass/yaml.lua",
+	}
+}

glass.lua

@@ -21,8 +21,8 @@ function __metatable:__index(index)
 		return config.bind(path, self.__loaders)
 	else
 		for _, loader in ipairs(self.__loaders) do
-			local result = loader(path)
-			if result then
+			local success, result = loader(path)
+			if success then
 				rawset(self, index, result)
 				return result
 			end

glass/cosmo.lua

@@ -12,8 +12,6 @@ return function(name)
 	name = tostring(name) .. '.cosmo'
 	local text = raw(name)
 	if text then
-		return assert(cosmo.compile(text, name))
-	else
-		return nil
+		return true, assert(cosmo.compile(text, name))
 	end
 end

glass/csv.lua

@@ -10,6 +10,6 @@ local csv = require 'streamcsv'
 return function(name)
 	local file = io.open(name..'.csv')
 	if file then
-		return csv.file(file)
+		return true, csv.file(file)
 	end
 end

glass/discount.lua

@@ -14,10 +14,8 @@ return function(name)
 	local file = io.open(name)
 	if file then
 		local html = discount(file:read("*a"))
-		return function()
+		return true, function()
 			return html
 		end
-	else
-		return nil
 	end
 end

glass/environment.lua

@@ -4,5 +4,5 @@
 --- Loads values from environment variables
 -- @treturn string The value of the environment variable
 return function(name)
-	return os.getenv(name:match("[^/].+$"))
+	return true, os.getenv(name:match("[^/].+$"))
 end

glass/fennel.lua

@@ -0,0 +1,18 @@
+--- Loader for Fennel files
+-- @module glass.fennel
+
+local fennel = require "fennel"
+local read = require 'glass.raw'
+
+--- Loads and compiles a Fennel file and runs it.
+-- Returns the result of running the Fennel file.
+-- If running the code immediately is not desired,
+-- it has to be returned as a function.
+-- @return The result of the Fennel file after running it
+-- @function load
+return function(file)
+	local success, raw = read(file..'.fnl')
+	if success then
+		return true, fennel.eval(raw)
+	end
+end

glass/json.lua

@@ -11,8 +11,8 @@ local read = require 'glass.raw'
 -- @treturn table JSON-Data
 -- @function load
 return function(file)
-	local raw = read(file..'.json')
-	if raw then
-		return json.decode(raw)
+	local success, raw = read(file..'.json')
+	if success then
+		return true, json.decode(raw)
 	end
 end

glass/lua.lua

@@ -9,5 +9,7 @@
 -- @function load
 return function(name)
 	local f = loadfile(name..'.lua')
-	return f and f() or nil
+	if f then
+		return true, f()
+	end
 end

glass/moonhtml.lua

@@ -1,7 +1,6 @@
 --- Loader for MoonHTML files
 -- @module glass.moonhtml
 
-
 local template = require 'restia.template'
 
 --- Loads and compiles a moonhtml template.
@@ -11,7 +10,7 @@ return function(name)
 	name = tostring(name) .. '.moonhtml'
 	local file = io.open(name)
 	if file then
-		return assert(template.loadmoon(file:read("*a"), name))
+		return true, assert(template.loadmoon(file:read("*a"), name))
 	else
 		return nil
 	end

glass/raw.lua

@@ -6,8 +6,10 @@
 -- @function load
 return function(path)
 	local f = io.open(path)
-	if not f then return end
+	if not f then
+		return false
+	end
 	local result = f:read("*a")
 	f:close()
-	return result
+	return true, result
 end

glass/skooma/html.lua

@@ -17,9 +17,12 @@ end})
 -- @function load
 return function(name)
 	name = tostring(name)..'.html.skooma'
-	local template = loadfile(name, "t", env)
+	local template, err = loadfile(name, "t", env)
+	if template == nil then
+		return nil, err
+	end
 	if setfenv then
 		setfenv(template, env)
 	end
-	return template
+	return true, template
 end

glass/skooma/xml.lua

@@ -17,9 +17,12 @@ end})
 -- @function load
 return function(name)
 	name = tostring(name)..'.xml.skooma'
-	local template = loadfile(name, "t", env)
+	local template, err = loadfile(name, "t", env)
+	if template == nil then
+		return nil, err
+	end
 	if setfenv then
 		setfenv(template, env)
 	end
-	return template
+	return true, template
 end

glass/table.lua

@@ -7,6 +7,9 @@
 -- @treturn function A loader function to be used with `glass.bind`
 return function(input)
 	return function(name)
-		return input[name:match("[^/].+$")]
+		local result = input[name:match("[^/].+$")]
+		if result then
+			return true, result
+		end
 	end
 end

glass/yaml.lua

@@ -11,8 +11,11 @@ local read = require 'glass.raw'
 -- @treturn table YAML-Data
 -- @function load
 return function(file)
-	local raw = read(file..'.yml') or read(file..'.yaml')
-	if raw then
-		return yaml.load(raw)
+	local success, raw = read(file..'.yml')
+	if not success then
+		success, raw = read(file..'.yaml')
+	end
+	if success then
+		return true, yaml.load(raw)
 	end
 end

readme.md

@@ -31,6 +31,7 @@ Glass offers the following loaders out of the box:
 * `csv` loads csv files (with header line)
 * `discount` loads markdown files\*.
 * `environment` loads environment variables.
+* `fennel` loads and executes fennel files.
 * `json` loads a JSON file as a Lua table. (requires `cjson`)
 * `lua` loads and executes a Lua file.
 * `moonhtml` loads a MoonHTML template and returns it as a function.
@@ -53,6 +54,8 @@ file and attempts to load it into a Lua value.
 Loaders will typically add an extension to the given file name before checking
 whether that file exists and can be loaded.
 
-When a loader cannot find the expected file, it should return `nil` to let glass
-continue the loader chain. When a loader returns a truthy value, this will be
-used and no further loaders will be tried.
+A successful loader should return `true` followed by its result.
+When a loader can't load a key, it should return `false` and an optional
+description of why.
+When a loader encounters an error (file found but can't be parsed), it should
+error.

spec/fennel/fennel_loader_spec.moon

@@ -0,0 +1,6 @@
+describe 'fennel loader', ->
+	before_each -> export loader = require 'glass.fennel'
+	it 'loads Fennel files', ->
+		success, result = loader 'spec/fixtures/test'
+		assert.true success
+		assert.same { foo: 'bar', tab: {} }, result

spec/fixtures/test.fnl

@@ -0,0 +1,2 @@
+{"foo" "bar"
+ "tab" []}

spec/loaders_spec.moon

@@ -1,9 +1,11 @@
 describe 'raw loader', ->
 	before_each -> export loader = require 'glass.raw'
 	it 'loads files as plain text', ->
-		assert.same 'plain text\n', loader 'spec/fixtures/test'
+		assert.same {true, 'plain text\n'}, {loader 'spec/fixtures/test'}
 
 describe 'lua loader', ->
 	before_each -> export loader = require 'glass.lua'
 	it 'loads Lua files', ->
-		assert.same { foo: 'bar', tab: {} }, loader 'spec/fixtures/test'
+		success, result = loader 'spec/fixtures/test'
+		assert.true success
+		assert.same { foo: 'bar', tab: {} }, result