1 files changed, 29 insertions, 0 deletions
diff --git a/paper/lua-filters/wordcount/wordcount.lua b/paper/lua-filters/wordcount/wordcount.lua
new file mode 100644
index 0000000..19aec11
--- /dev/null
+++ b/paper/lua-filters/wordcount/wordcount.lua
@@ -0,0 +1,29 @@
+-- counts words in a document 
+
+words = 0 
+
+wordcount = { 
+  Str = function(el) 
+    -- we don't count a word if it's entirely punctuation: 
+    if el.text:match("%P") then 
+        words = words + 1 
+    end 
+  end, 
+
+  Code = function(el) 
+    _,n = el.text:gsub("%S+","") 
+    words = words + n 
+  end, 
+
+  CodeBlock = function(el) 
+    _,n = el.text:gsub("%S+","") 
+    words = words + n 
+  end 
+} 
+
+function Pandoc(el) 
+    -- skip metadata, just count body: 
+    pandoc.walk_block(pandoc.Div(el.blocks), wordcount) 
+    print(words .. " words in body") 
+    os.exit(0) 
+end