From 4bbaf1993bc05494193c55e2bb33c072ce03ebbd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andr=C3=A9=20A=2E=20Gomes?= Date: Sat, 9 Oct 2021 16:28:45 +0300 Subject: [PATCH 56/76] Deprecate org-md--headline-title. No alias since the function is internal. --- lisp/ox-md.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ox-md.el b/lisp/ox-md.el index c04c36406..bf54e6884 100644 --- a/lisp/ox-md.el +++ b/lisp/ox-md.el @@ -200,7 +200,7 @@ of contents can refer to headings." (_ nil)))) info t)))) -(defun org-md--headline-title (style level title &optional anchor tags) +(defun org-md--heading-title (style level title &optional anchor tags) "Generate a heading title in the preferred Markdown heading style. STYLE is the preferred style (`atx' or `setext'). LEVEL is the header level. TITLE is the heading title. ANCHOR is the HTML @@ -231,7 +231,7 @@ contents according to the specified element." (unless scope (let ((style (plist-get info :md-headline-style)) (title (org-html--translate "Table of Contents" info))) - (org-md--headline-title style 1 title nil))) + (org-md--heading-title style 1 title nil))) (mapconcat (lambda (heading) (let* ((indentation @@ -283,7 +283,7 @@ INFO is a plist used as a communication channel." (section-title (org-html--translate "Footnotes" info))) (when fn-alist (format (plist-get info :md-footnotes-section) - (org-md--headline-title headline-style 1 section-title) + (org-md--heading-title headline-style 1 section-title) (mapconcat (lambda (fn) (org-md--footnote-formatted fn info)) fn-alist "\n"))))) @@ -387,7 +387,7 @@ a communication channel." (format "" (or (org-element-property :CUSTOM_ID heading) (org-export-get-reference heading info)))))) - (concat (org-md--headline-title style level heading anchor tags) + (concat (org-md--heading-title style level heading anchor tags) contents))))))) ;;;; Horizontal Rule -- 2.33.0