Export source block: Use caption instead of name if exists.

2022-01-15 20:49:52 -03:00 · 2022-01-15 20:49:52 -03:00 · 5420b6cea8
commit 5420b6cea8
parent 527ce87206
1 changed files with 2 additions and 1 deletions
--- a/ox-gemini.el
+++ b/ox-gemini.el
@ -71,7 +71,8 @@

 (defun org-gemini-code-block (src-block _contents info)
  "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
     (format "```%s\n%s```"
             (or name "")