|
@@ -999,14 +999,18 @@ to make available an enhanced version of `htmlfontify' library."
|
|
"Format source or example blocks much like fixedwidth blocks.
|
|
"Format source or example blocks much like fixedwidth blocks.
|
|
Use this when `org-export-odt-use-htmlfontify' option is turned
|
|
Use this when `org-export-odt-use-htmlfontify' option is turned
|
|
off."
|
|
off."
|
|
- (mapconcat
|
|
|
|
- (lambda (line)
|
|
|
|
- (org-odt-format-source-line-with-line-number-and-label
|
|
|
|
- line rpllbl num (lambda (line)
|
|
|
|
- (org-odt-fill-tabs-and-spaces
|
|
|
|
- (org-xml-encode-plain-text line)))
|
|
|
|
- 'fixedwidth))
|
|
|
|
- (org-split-string lines "[\r\n]") "\n"))
|
|
|
|
|
|
+ (let* ((lines (org-split-string lines "[\r\n]"))
|
|
|
|
+ (line-count (length lines))
|
|
|
|
+ (i 0))
|
|
|
|
+ (mapconcat
|
|
|
|
+ (lambda (line)
|
|
|
|
+ (incf i)
|
|
|
|
+ (org-odt-format-source-line-with-line-number-and-label
|
|
|
|
+ line rpllbl num (lambda (line)
|
|
|
|
+ (org-odt-fill-tabs-and-spaces
|
|
|
|
+ (org-xml-encode-plain-text line)))
|
|
|
|
+ (if (= i line-count) "OrgFixedWidthBlockLastLine" "OrgFixedWidthBlock")))
|
|
|
|
+ lines "\n")))
|
|
|
|
|
|
(defvar org-src-block-paragraph-format
|
|
(defvar org-src-block-paragraph-format
|
|
"<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
|
|
"<style:style style:name=\"OrgSrcBlock\" style:family=\"paragraph\" style:parent-style-name=\"Preformatted_20_Text\">
|
|
@@ -1117,11 +1121,16 @@ turned on."
|
|
(insert (format "<text:span text:style-name=\"%s\">" style))))
|
|
(insert (format "<text:span text:style-name=\"%s\">" style))))
|
|
(hfy-end-span-handler (lambda nil (insert "</text:span>"))))
|
|
(hfy-end-span-handler (lambda nil (insert "</text:span>"))))
|
|
(when (fboundp 'htmlfontify-string)
|
|
(when (fboundp 'htmlfontify-string)
|
|
- (mapconcat
|
|
|
|
- (lambda (line)
|
|
|
|
- (org-odt-format-source-line-with-line-number-and-label
|
|
|
|
- line rpllbl num 'htmlfontify-string 'src))
|
|
|
|
- (org-split-string lines "[\r\n]") "\n"))))
|
|
|
|
|
|
+ (let* ((lines (org-split-string lines "[\r\n]"))
|
|
|
|
+ (line-count (length lines))
|
|
|
|
+ (i 0))
|
|
|
|
+ (mapconcat
|
|
|
|
+ (lambda (line)
|
|
|
|
+ (incf i)
|
|
|
|
+ (org-odt-format-source-line-with-line-number-and-label
|
|
|
|
+ line rpllbl num 'htmlfontify-string
|
|
|
|
+ (if (= i line-count) "OrgSrcBlockLastLine" "OrgSrcBlock")))
|
|
|
|
+ lines "\n")))))
|
|
|
|
|
|
(defun org-odt-format-source-code-or-example (lines lang caption textareap
|
|
(defun org-odt-format-source-code-or-example (lines lang caption textareap
|
|
cols rows num cont
|
|
cols rows num cont
|