Export source block: Use caption instead of name if exists.
This commit is contained in:
parent
527ce87206
commit
5420b6cea8
@ -71,7 +71,8 @@
|
|||||||
|
|
||||||
(defun org-gemini-code-block (src-block _contents info)
|
(defun org-gemini-code-block (src-block _contents info)
|
||||||
"SRC-BLOCK is a codeblock. INFO is a plist."
|
"SRC-BLOCK is a codeblock. INFO is a plist."
|
||||||
(let ((name (org-element-property :name src-block)))
|
(let ((name (or (caaar (org-element-property :caption src-block))
|
||||||
|
(org-element-property :name src-block))))
|
||||||
(org-remove-indentation
|
(org-remove-indentation
|
||||||
(format "```%s\n%s```"
|
(format "```%s\n%s```"
|
||||||
(or name "")
|
(or name "")
|
||||||
|
Loading…
Reference in New Issue
Block a user