larstvei/ox-gfm
1
0
Fork 0
mirror of https://github.com/larstvei/ox-gfm.git synced 2024-11-26 01:28:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

org-gfm-footnote-section: Cosmetics

Browse Source
This commit is contained in:
Jonas Bernoulli 2023-07-19 02:32:57 +02:00
parent a971997f8f
commit 4f774f13d3
1 changed files with 14 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ox-gfm.el
View File

@ -239,31 +239,20 @@ contextual information."
(defun org-gfm-footnote-section (info)
"Format the footnote section.
INFO is a plist used as a communication channel."
(let* ((fn-alist (org-export-collect-footnote-definitions info))
(fn-alist
(cl-loop for (n _type raw) in fn-alist collect
(cons n (org-trim (org-export-data raw info))))))
(when fn-alist
(format
"## %s\n%s"
"Footnotes"
(format
"\n%s\n"
(mapconcat
(lambda (fn)
(let ((n (car fn)) (def (cdr fn)))
(format
"%s %s\n"
(format
(plist-get info :html-footnote-format)
(org-html--anchor
(format "fn.%d" n)
n
(format " class=\"footnum\" href=\"#fnr.%d\"" n)
info))
def)))
fn-alist
"\n"))))))
(and-let* ((fn-alist (org-export-collect-footnote-definitions info)))
(format
"## Footnotes\n\n%s\n"
(mapconcat (pcase-lambda (`(,n ,_type ,def))
(format
"%s %s\n"
(format (plist-get info :html-footnote-format)
(org-html--anchor
(format "fn.%d" n)
n
(format " class=\"footnum\" href=\"#fnr.%d\"" n)
info))
(org-trim (org-export-data def info))))
fn-alist "\n"))))
;;;; Template