mirrors/markdown.lua
1
0
Fork 0
mirror of https://github.com/TangentFoxy/markdown.lua.git synced 2025-07-27 17:42:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove unused variables

Browse Source
This commit is contained in:
mpeterv
2015-09-10 22:21:34 +03:00
parent af68f61c50
commit 48758fe77b
1 changed files with 3 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
markdown.lua
View File

@@ -122,19 +122,6 @@ THE SOFTWARE.
local unpack = table.unpack or unpack local unpack = table.unpack or unpack
-- Locks table t from changes, writes an error if someone attempts to change the table.
-- This is useful for detecting variables that have "accidently" been made global. Something
-- I tend to do all too much.
local function lock(t)
local function lock_new_index(t, k, v)
error("module has been locked -- " .. k .. " must be declared local", 2)
end
local mt = {__newindex = lock_new_index}
if getmetatable(t) then mt.__index = getmetatable(t).__index end
setmetatable(t, mt)
end
-- Returns the result of mapping the values in table t through the function f -- Returns the result of mapping the values in table t through the function f
local function map(t, f) local function map(t, f)
local out = {} local out = {}
@@ -142,9 +129,6 @@ local function map(t, f)
return out return out
end end
-- The identity function, useful as a placeholder.
local function identity(text) return text end
-- Functional style if statement. (NOTE: no short circuit evaluation) -- Functional style if statement. (NOTE: no short circuit evaluation)
local function iff(t, a, b) if t then return a else return b end end local function iff(t, a, b) if t then return a else return b end end
@@ -194,7 +178,7 @@ local function splice(array, start, stop, replacement)
table.remove(array, start) table.remove(array, start)
n = n - 1 n = n - 1
end end
for i,v in ipairs(replacement) do for _,v in ipairs(replacement) do
table.insert(array, start, v) table.insert(array, start, v)
end end
return array return array
@@ -760,14 +744,6 @@ function block_transform(text, sublist)
return text return text
end end
-- Debug function for printing a line array to see the result
-- of partial transforms.
local function print_lines(lines)
for i, line in ipairs(lines) do
print(i, line.type, line.text or line.line)
end
end
---------------------------------------------------------------------- ----------------------------------------------------------------------
-- Span transform -- Span transform
---------------------------------------------------------------------- ----------------------------------------------------------------------
@@ -1219,7 +1195,7 @@ local function run_command_line(arg)
local function run(s, options) local function run(s, options)
s = markdown(s) s = markdown(s)
if not options.wrap_header then return s end if not options.wrap_header then return s end
local header = "" local header
if options.header then if options.header then
local f = io.open(options.header) or error("Could not open file: " .. options.header) local f = io.open(options.header) or error("Could not open file: " .. options.header)
header = f:read("*a") header = f:read("*a")
@@ -1310,7 +1286,7 @@ Other options:
op:param("c", "charset", function (x) options.charset = x end) op:param("c", "charset", function (x) options.charset = x end)
op:param("i", "title", function(x) options.title = x end) op:param("i", "title", function(x) options.title = x end)
op:param("s", "style", function(x) options.stylesheet = x end) op:param("s", "style", function(x) options.stylesheet = x end)
op:flag("l", "inline-style", function(x) options.inline_style = true end) op:flag("l", "inline-style", function() options.inline_style = true end)
op:flag("a", "append", function() options.append = true end) op:flag("a", "append", function() options.append = true end)
op:flag("t", "test", function() op:flag("t", "test", function()
local n = arg[0]:gsub("markdown.lua", "markdown-tests.lua") local n = arg[0]:gsub("markdown.lua", "markdown-tests.lua")