Handle lints raised by Luacheck

Author: alerque

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("/*~[]\\{}|")
@@ -185,6 +183,6 @@ local grammar = P{ "Doc",
          / pandoc.Strong ;
 }
 
-function Reader(input, reader_options)
+function Reader(input, _reader_options)
   return lpeg.match(grammar, tostring(input))
 end

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
@@ -17,11 +17,11 @@ function Table(el)
   local rendered = pandoc.write(pandoc.Pandoc({el}), "plain")
   local adjusted = rendered  -- tame grid table lines
                      :gsub("%+([=:][=:]+)",
-                       function(s)
-                         return " " .. string.rep("-", #s - 1)
+                       function(str)
+                         return " " .. string.rep("-", #str - 1)
                        end)
                      :gsub("(%+[-:][-:]+)",
-                       function(s)
+                       function(_str)
                          return ""
                        end)
                      :gsub("%+\n","\n")
@@ -39,6 +39,6 @@ function Link(el)
 end
 
 -- remove notes
-function Note(el)
+function Note(_el)
     return {}
 end

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

@@ -1,4 +1,4 @@
-function ByteStringReader (input, opts)
+function ByteStringReader (input, _opts)
   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 (_doc, _opts)
   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 (_doc, 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(_el)
   num_blocks = num_blocks + 1
 end
 
-function Pandoc(blocks, meta)
+function Pandoc(_blocks, _meta)
   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(_doc)
       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 (_doc)
   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(_blocks, _meta)
   return pandoc.Pandoc {
     pandoc.Para{pandoc.Str(num_inlines)}
   }