feat(import): Assume italicized blockquotes are redundant inline form…

…atting

pandoc-filters/unitalicize-blockquotes.lua

@@ -0,0 +1,17 @@
+local function unitalicize (element)
+   element = pandoc.walk_block(element, {
+      Para = function(el)
+         if #el.content == 1 then
+            local inner = el.content[1]
+            if inner.tag == "Emph" then
+               return pandoc.Plain(inner.content)
+            end
+         end
+      end
+   })
+   return element
+end
+
+return {
+   { BlockQuote = unitalicize },
+}

scripts/import.zsh.in

@@ -38,6 +38,7 @@ function import_docx () {
 	pandoc_args+=(
 		--from=docx-gfm_auto_identifiers-ascii_identifiers-empty_paragraphs
 		--lua-filter="$CASILEDIR/pandoc-filters/guess-headings.lua"
+		--lua-filter="$CASILEDIR/pandoc-filters/unitalicize-blockquotes.lua"
 	)
 	alias pandoc="${PANDOC:-@PANDOC@}"
 	: ${bookid:=$1}