ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/ox-html.el: Fix some checkdoc warnings 

* lisp/ox-html.el (org-html-mathjax-options): Use two spaces between
sentences and remove trailing newline in the docstring.
(org-html--container):
(org-html-xhtml-p):
(org-html-html5-p): Add docstring.
(org-html--anchor):
(org-html--todo):
(org-html-format-headline-default-function):
(org-html-format-inlinetask-default-function): Document all the
function arguments.
This commit is contained in:
Ihor Radchenko 2023-12-10 12:52:16 +01:00
parent 282c0fb6d1
commit 4f92738774
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/ox-html.el
View File

@ -1244,8 +1244,7 @@ The legacy values of the \"font\" option, namely \"TeX\",
\"Gyre-Termes\", \"Latin-Modern\", become converted to the \"Gyre-Termes\", \"Latin-Modern\", become converted to the
corresponding MathJax 4+ font names. corresponding MathJax 4+ font names.
Legacy options and values always take precedence. Legacy options and values always take precedence."
"
:group 'org-export-html :group 'org-export-html
:package-version '(Org . "9.6") :package-version '(Org . "9.6")
:type '(list :greedy t :type '(list :greedy t
@ -1670,10 +1669,12 @@ CSS classes, then this prefix can be very useful."
;;; Internal Functions ;;; Internal Functions
(defun org-html-xhtml-p (info) (defun org-html-xhtml-p (info)
"Return non-nil when :html-doctype property in INFO plist is xhtml."
(let ((dt (downcase (plist-get info :html-doctype)))) (let ((dt (downcase (plist-get info :html-doctype))))
(string-match-p "xhtml" dt))) (string-match-p "xhtml" dt)))
(defun org-html-html5-p (info) (defun org-html-html5-p (info)
"Return non-nil when :html-doctype property in INFO plist is html5 or equivalent."
(let ((dt (downcase (plist-get info :html-doctype)))) (let ((dt (downcase (plist-get info :html-doctype))))
(member dt '("html5" "xhtml5" "<!doctype html>")))) (member dt '("html5" "xhtml5" "<!doctype html>"))))
@ -2279,7 +2280,9 @@ INFO is a plist used as a communication channel."
;;;; Anchor ;;;; Anchor
(defun org-html--anchor (id desc attributes info) (defun org-html--anchor (id desc attributes info)
"Format a HTML anchor." "Format a HTML anchor.
ID is the anchor id. ATTRIBUTES is the anchor attributes, as a string.
DESC is the anchor text. INFO is the info plist."
(let* ((name (and (plist-get info :html-allow-name-attribute-in-anchors) id)) (let* ((name (and (plist-get info :html-allow-name-attribute-in-anchors) id))
(attributes (concat (and id (format " id=\"%s\"" id)) (attributes (concat (and id (format " id=\"%s\"" id))
(and name (format " name=\"%s\"" name)) (and name (format " name=\"%s\"" name))
@ -2289,7 +2292,9 @@ INFO is a plist used as a communication channel."
;;;; Todo ;;;; Todo
(defun org-html--todo (todo info) (defun org-html--todo (todo info)
"Format TODO keywords into HTML." "Format TODO keywords into HTML.
TODO is the keyword, as a string.
INFO is the info plist."
(when todo (when todo
(format "<span class=\"%s %s%s\">%s</span>" (format "<span class=\"%s %s%s\">%s</span>"
(if (member todo org-done-keywords) "done" "todo") (if (member todo org-done-keywords) "done" "todo")
@ -2812,7 +2817,8 @@ holding contextual information."
(defun org-html-format-headline-default-function (defun org-html-format-headline-default-function
(todo _todo-type priority text tags info) (todo _todo-type priority text tags info)
"Default format function for a headline. "Default format function for a headline.
See `org-html-format-headline-function' for details." See `org-html-format-headline-function' for details and the
description of TODO, PRIORITY, TEXT, TAGS, and INFO arguments."
(let ((todo (org-html--todo todo info)) (let ((todo (org-html--todo todo info))
(priority (org-html--priority priority info)) (priority (org-html--priority priority info))
(tags (org-html--tags tags info))) (tags (org-html--tags tags info)))
@ -2822,6 +2828,8 @@ See `org-html-format-headline-function' for details."
(and tags "&#xa0;&#xa0;&#xa0;") tags))) (and tags "&#xa0;&#xa0;&#xa0;") tags)))
(defun org-html--container (headline info) (defun org-html--container (headline info)
"Return HTML container name for HEADLINE as a string.
INFO is the info plist."
(or (org-element-property :HTML_CONTAINER headline) (or (org-element-property :HTML_CONTAINER headline)
(if (= 1 (org-export-get-relative-level headline info)) (if (= 1 (org-export-get-relative-level headline info))
(plist-get info :html-container) (plist-get info :html-container)
@ -2870,7 +2878,9 @@ holding contextual information."
(defun org-html-format-inlinetask-default-function (defun org-html-format-inlinetask-default-function
(todo todo-type priority text tags contents info) (todo todo-type priority text tags contents info)
"Default format function for inlinetasks. "Default format function for inlinetasks.
See `org-html-format-inlinetask-function' for details." See `org-html-format-inlinetask-function' for details and the
description of TODO, TODO-TYPE, PRIORITY, TEXT, TAGS, CONTENTS, and
INFO arguments."
(format "<div class=\"inlinetask\">\n<b>%s</b>%s\n%s</div>" (format "<div class=\"inlinetask\">\n<b>%s</b>%s\n%s</div>"
(org-html-format-headline-default-function (org-html-format-headline-default-function
todo todo-type priority text tags info) todo todo-type priority text tags info)