Handle lints raised by Luacheck

data/creole.lua

@@ -2,9 +2,7 @@
 -- http://www.wikicreole.org/wiki/CheatSheet
 
 -- For better performance we put these functions in local variables:
-local P, S, R, Cf, Cc, Ct, V, Cs, Cg, Cb, B, C, Cmt =
-  lpeg.P, lpeg.S, lpeg.R, lpeg.Cf, lpeg.Cc, lpeg.Ct, lpeg.V,
-  lpeg.Cs, lpeg.Cg, lpeg.Cb, lpeg.B, lpeg.C, lpeg.Cmt
+local P, S, Cc, Ct, V, C = lpeg.P, lpeg.S, lpeg.Cc, lpeg.Ct, lpeg.V, lpeg.C
 
 local whitespacechar = S(" \t\r\n")
 local specialchar = S("/*~[]\\{}|")

man/manfilter.lua

@@ -5,8 +5,8 @@ local text = require('text')
 function Header(el)
     if el.level == 1 then
       return pandoc.walk_block(el, {
-        Str = function(el)
-            return pandoc.Str(text.upper(el.text))
+        Str = function(str_el)
+            return pandoc.Str(text.upper(str_el.text))
         end })
     end
 end
@@ -21,7 +21,7 @@ function Table(el)
                          return " " .. string.rep("-", #s - 1)
                        end)
                      :gsub("(%+[-:][-:]+)",
-                       function(s)
+                       function(_)
                          return ""
                        end)
                      :gsub("%+\n","\n")
@@ -39,6 +39,6 @@ function Link(el)
 end
 
 -- remove notes
-function Note(el)
+function Note(_)
     return {}
 end

pandoc-lua-engine/test/bytestring-reader.lua

@@ -1,4 +1,4 @@
-function ByteStringReader (input, opts)
+function ByteStringReader (input, _)
   local chars = pandoc.List{}
   for i = 1, #input do
     chars:insert(utf8.char(input:byte(i,i)))

pandoc-lua-engine/test/bytestring.lua

@@ -1,4 +1,4 @@
-function ByteStringWriter (doc, opts)
+function ByteStringWriter (_, _)
   local buffer = {}
   for i=0, 255 do
     table.insert(buffer, string.char(i))

pandoc-lua-engine/test/extensions.lua

@@ -1,4 +1,4 @@
-function Writer (doc, opts)
+function Writer (_, opts)
   local output = 'smart extension is %s;\ncitations extension is %s\n'
   local status = function (ext)
     return opts.extensions:includes(ext) and 'enabled' or 'disabled'

pandoc-lua-engine/test/lua/block-count.lua

@@ -1,10 +1,10 @@
 local num_blocks = 0
 
-function Block(el)
+function Block(_)
   num_blocks = num_blocks + 1
 end
 
-function Pandoc(blocks, meta)
+function Pandoc(_, _)
   return pandoc.Pandoc {
     pandoc.Para{pandoc.Str(num_blocks)}
   }

pandoc-lua-engine/test/lua/hello-world-doc.lua

@@ -1,6 +1,6 @@
 return {
   {
-    Pandoc = function(doc)
+    Pandoc = function(_)
       local meta = {}
       local hello = { pandoc.Str "Hello,", pandoc.Space(), pandoc.Str "World!" }
       local blocks = { pandoc.Para(hello) }

pandoc-lua-engine/test/lua/implicit-doc-filter.lua

@@ -1,4 +1,4 @@
-function Pandoc (doc)
+function Pandoc (_)
   local meta = {}
   local hello = { pandoc.Str "Hello,", pandoc.Space(), pandoc.Str "World!" }
   local blocks = { pandoc.Para(hello) }

pandoc-lua-engine/test/lua/inlines-filter.lua

@@ -1,4 +1,4 @@
-function isWorldAfterSpace (fst, snd)
+local function isWorldAfterSpace (fst, snd)
   return fst and fst.t == 'LineBreak'
    and snd and snd.t == 'Str' and snd.text == 'World!'
 end

pandoc-lua-engine/test/lua/metatable-catch-all.lua

@@ -1,12 +1,12 @@
 local num_inlines = 0
 
-function catch_all(el)
+local function catch_all(el)
   if el.tag and pandoc.Inline.constructor[el.tag] then
     num_inlines = num_inlines + 1
   end
 end
 
-function Pandoc(blocks, meta)
+function Pandoc(_, _)
   return pandoc.Pandoc {
     pandoc.Para{pandoc.Str(num_inlines)}
   }

pandoc-lua-engine/test/lua/module/pandoc-json.lua

@@ -33,7 +33,7 @@ return {
       local obj = setmetatable(
         {title = 23},
         {
-          __tojson = function (obj)
+          __tojson = function (_)
             return '"Nichts ist so wie es scheint"'
           end
         }

pandoc-lua-engine/test/lua/module/pandoc-list.lua

@@ -7,7 +7,7 @@ local group = tasty.test_group
 
 return {
   group 'List as function' {
-    test('equivalent to List:new', function (x)
+    test('equivalent to List:new', function (_)
       local new = List:new {'ramen'}
       local list = List {'ramen'}
       assert.are_same(new, list)
@@ -109,7 +109,7 @@ return {
     end),
     test('leaves original list unchanged', function ()
       local primes = List:new {2, 3, 5, 7}
-      local squares = primes:map(function (x) return x^2 end)
+      local _ = primes:map(function (x) return x^2 end)
       assert.are_same({2, 3, 5, 7}, primes)
     end)
   },

pandoc-lua-engine/test/lua/module/pandoc-structure.lua

@@ -1,7 +1,5 @@
 local tasty = require 'tasty'
 local structure = require 'pandoc.structure'
-local path = require 'pandoc.path'
-local system = require 'pandoc.system'
 
 local assert = tasty.assert
 local test = tasty.test_case

pandoc-lua-engine/test/lua/module/pandoc-template.lua

@@ -24,7 +24,7 @@ return {
       )
     end),
     test('fails on unknown format', function ()
-      local success, msg = pcall(function ()
+      local success, _ = pcall(function ()
           return pandoc.utils.type(template.default 'nosuchformat')
       end)
       assert.is_falsy(success)

pandoc-lua-engine/test/lua/module/pandoc-utils.lua

@@ -240,7 +240,7 @@ return {
 
   group 'to_simple_table' {
     test('convertes Table', function ()
-      function simple_cell (blocks)
+      local function simple_cell (blocks)
         return {
           attr = pandoc.Attr(),
           alignment = "AlignDefault",

pandoc-lua-engine/test/lua/module/pandoc.lua

@@ -4,7 +4,7 @@ local test = tasty.test_case
 local group = tasty.test_group
 local assert = tasty.assert
 
-function os_is_windows ()
+local function os_is_windows ()
   return package.config:sub(1,1) == '\\'
 end
 

pandoc-lua-engine/test/sample.lua

@@ -21,7 +21,6 @@ function Writer (doc, opts)
 end
 
 local pipe = pandoc.pipe
-local stringify = (require 'pandoc.utils').stringify
 
 -- Choose the image format based on the value of the
 -- `image_format` environment variable.
@@ -80,7 +79,7 @@ end
 -- This gives you a fragment.  You could use the metadata table to
 -- fill variables in a custom lua template.  Or, pass `--template=...`
 -- to pandoc, and pandoc will do the template processing as usual.
-function Doc(body, metadata, variables)
+function Doc(body, _, _)
   local buffer = {}
   local function add(s)
     table.insert(buffer, s)
@@ -146,7 +145,7 @@ function Link(s, tgt, tit, attr)
          escape(tit,true) .. '"' .. attributes(attr) .. '>' .. s .. '</a>'
 end
 
-function Image(s, src, tit, attr)
+function Image(_, src, tit, _ttr)
   return '<img src="' .. escape(src,true) .. '" title="' ..
          escape(tit,true) .. '"/>'
 end
@@ -283,7 +282,7 @@ local function html_align(align)
   end
 end
 
-function CaptionedImage(src, tit, caption, attr)
+function CaptionedImage(src, _, caption, attr)
   if #caption == 0 then
     return '<p><img src="' .. escape(src,true) .. '" id="' .. attr.id ..
       '"/></p>'

tools/extract-changes.lua

@@ -2,7 +2,7 @@
 
 function Pandoc(el)
   local newblocks = {}
-  i = 1
+  local i = 1
   while i <= #el.blocks and
       not (el.blocks[i].t == "Header" and el.blocks[i].level == 2) do
     i = i+1

tools/moduledeps.lua

@@ -35,11 +35,11 @@ end
 
 local transitive = {}
 
-function prind(ind, s)
+local function prind(ind, s)
   io.write(string.rep(" ",ind) .. s .. "\n")
 end
 
-function add_transitive_deps(mod)
+local function add_transitive_deps(mod)
   if transitive[mod] then
     return
   end
@@ -53,7 +53,7 @@ function add_transitive_deps(mod)
   end
 end
 
-function print_direct_deps(mod, ind)
+local function print_direct_deps(mod, ind)
   ind = ind or 0
   prind(ind, mod)
   for dep,_ in pairs(dependencies[mod]) do