daniel/ox-rst
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

slight change

Browse Source
This commit is contained in:
Masanao Igarashi
2025-04-28 14:34:00 +09:00
parent 7b75c18774
commit b73eff187e
1 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
ox-rst.el
View File

@@ -249,7 +249,7 @@ the same number of blank lines as in the original document."
(defcustom org-rst-headline-underline-characters '(?- ?~ ?^ ?: ?' ?\ ?_) (defcustom org-rst-headline-underline-characters '(?- ?~ ?^ ?: ?' ?\ ?_)
"List of underline characters for each headline level." "List of underline characters for each headline level."
:group 'org-export-rst :group 'org-export-rst
:type 'list) :type '(repeat character))
;;;; Drawers ;;;; Drawers
@@ -354,7 +354,7 @@ Empty lines are not indented."
(defun org-rst--make-attribute-string (attributes) (defun org-rst--make-attribute-string (attributes)
"Return a list of attributes, as a string. "Return a list of attributes, as a string.
ATTRIBUTES is a plist where values are either strings or nil. An ATTRIBUTES is a plist where values are either strings or nil. An
attributes with a nil value will be omitted from the result." attributes with a nil value will be omitted from the result."
(let (output) (let (output)
(dolist (item attributes (mapconcat 'identity (nreverse output) "\n")) (dolist (item attributes (mapconcat 'identity (nreverse output) "\n"))
@@ -433,6 +433,7 @@ possible. It doesn't apply to `inlinetask' elements."
(defun org-rst--text-markup (text markup info) (defun org-rst--text-markup (text markup info)
"Format TEXT depending on MARKUP text markup. "Format TEXT depending on MARKUP text markup.
INFO is a plist used as a communication channel.
See `org-rst-text-markup-alist' for details." See `org-rst-text-markup-alist' for details."
(let ((fmt (cdr (assq markup (plist-get info :rst-text-markup-alist)))) (let ((fmt (cdr (assq markup (plist-get info :rst-text-markup-alist))))
(text (replace-regexp-in-string "[ \t\n]+" " " text))) (text (replace-regexp-in-string "[ \t\n]+" " " text)))
@@ -775,7 +776,7 @@ holding export options."
(lines (split-string (org-export-data def info) "\n+[ \t\n]*")) (lines (split-string (org-export-data def info) "\n+[ \t\n]*"))
(fntext (concat (car lines) "\n" (fntext (concat (car lines) "\n"
(apply 'concat (mapcar (apply 'concat (mapcar
'(lambda (x) (if (> (length x) 0) #'(lambda (x) (if (> (length x) 0)
(concat (org-rst--indent-string x org-rst-quote-margin) "\n"))) (concat (org-rst--indent-string x org-rst-quote-margin) "\n")))
(cdr lines))))) (cdr lines)))))
) )
@@ -1025,11 +1026,11 @@ INFO is a plist holding contextual information."
(if desc (format "`%s <%s>`_" desc destination) (if desc (format "`%s <%s>`_" desc destination)
(format "`%s`_" destination))) (format "`%s`_" destination)))
;; Fuzzy link points nowhere. ;; Fuzzy link points nowhere.
('nil ;; ('nil
(let ((rawlink ;; (let ((rawlink
(org-export-data (org-element-property :raw-link link) info))) ;; (org-export-data (org-element-property :raw-link link) info)))
(if desc (format "`%s <%s>`_" desc rawlink) ;; (if desc (format "`%s <%s>`_" desc rawlink)
(format "`%s`_" rawlink)))) ;; (format "`%s`_" rawlink))))
;; LINK points to a headline. ;; LINK points to a headline.
(headline (headline
(if (member type '("custom-id" "id")) (if (member type '("custom-id" "id"))
@@ -1088,7 +1089,7 @@ the plist used as a communication channel."
(let ((lines (split-string contents "\n+[ \t\n]*"))) (let ((lines (split-string contents "\n+[ \t\n]*")))
(cond ((> (length lines) 2) (cond ((> (length lines) 2)
(setq contents (apply 'concat (mapcar (setq contents (apply 'concat (mapcar
'(lambda (x) (if (> (length x) 0) (concat "| " x "\n") x)) #'(lambda (x) (if (> (length x) 0) (concat "| " x "\n") x))
lines))))))) lines)))))))
contents) contents)