Reformat org-html-markdown-style-footnotes--section

Author: jeffkreeftmeijer

ox-html-markdown-style-footnotes.el

@@ -27,24 +27,24 @@
 (defun org-html-markdown-style-footnotes--section (orig-fun info)
   (if org-html-markdown-style-footnotes
       (pcase (org-export-collect-footnote-definitions info)
-	(`nil nil)
-	(definitions
-	 (format
-	  (plist-get info :html-footnotes-section)
-	  (org-html--translate "Footnotes" info)
-	  (format
-	   "<ol>\n%s</ol>\n"
-	   (mapconcat
-	    (lambda (definition)
-	      (pcase definition
-		(`(,n ,_ ,def)
-		 (format
-		  "<li id=\"fn.%d\" class=\"footdef\" role=\"doc-footnote\" tabindex=\"-1\">%s %s</li>\n"
+        (`nil nil)
+        (definitions
+         (format
+          (plist-get info :html-footnotes-section)
+          (org-html--translate "Footnotes" info)
+          (format
+           "<ol>\n%s</ol>\n"
+           (mapconcat
+            (lambda (definition)
+              (pcase definition
+                (`(,n ,_ ,def)
+                 (format
+                  "<li id=\"fn.%d\" class=\"footdef\" role=\"doc-footnote\" tabindex=\"-1\">%s %s</li>\n"
                   n
-		  (org-trim (org-export-data def info))
-		  (format "<a href=\"#fnr.%d\" role=\"doc-backlink\">↩&#65038;</a>" n)))))
-	    definitions
-	    "\n")))))
+                  (org-trim (org-export-data def info))
+                  (format "<a href=\"#fnr.%d\" role=\"doc-backlink\">↩&#65038;</a>" n)))))
+            definitions
+            "\n")))))
     (funcall orig-fun info)))
 
   ;;;###autoload

ox-html-markdown-style-footnotes.org

@@ -235,25 +235,25 @@ The updated copy is defined as ~org-html-markdown-style-footnotes--section~:
 #+begin_src emacs-lisp
   (defun org-html-markdown-style-footnotes--section (orig-fun info)
     (if org-html-markdown-style-footnotes
-	(pcase (org-export-collect-footnote-definitions info)
-	  (`nil nil)
-	  (definitions
-	   (format
-	    (plist-get info :html-footnotes-section)
-	    (org-html--translate "Footnotes" info)
-	    (format
-	     "<ol>\n%s</ol>\n"
-	     (mapconcat
-	      (lambda (definition)
-		(pcase definition
-		  (`(,n ,_ ,def)
-		   (format
-		    "<li id=\"fn.%d\" class=\"footdef\" role=\"doc-footnote\" tabindex=\"-1\">%s %s</li>\n"
+        (pcase (org-export-collect-footnote-definitions info)
+          (`nil nil)
+          (definitions
+           (format
+            (plist-get info :html-footnotes-section)
+            (org-html--translate "Footnotes" info)
+            (format
+             "<ol>\n%s</ol>\n"
+             (mapconcat
+              (lambda (definition)
+                (pcase definition
+                  (`(,n ,_ ,def)
+                   (format
+                    "<li id=\"fn.%d\" class=\"footdef\" role=\"doc-footnote\" tabindex=\"-1\">%s %s</li>\n"
                     n
-		    (org-trim (org-export-data def info))
-		    (format "<a href=\"#fnr.%d\" role=\"doc-backlink\">↩&#65038;</a>" n)))))
-	      definitions
-	      "\n")))))
+                    (org-trim (org-export-data def info))
+                    (format "<a href=\"#fnr.%d\" role=\"doc-backlink\">↩&#65038;</a>" n)))))
+              definitions
+              "\n")))))
       (funcall orig-fun info)))
 #+end_src