From 8f4fa5d2f435a4db6fb55ada29cc61c9f49b4f82 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 27 Jan 2014 23:32:21 +0100 Subject: [PATCH] Put tag in correct place --- edocs.el | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/edocs.el b/edocs.el index 18cdb0b..533bd84 100644 --- a/edocs.el +++ b/edocs.el @@ -212,15 +212,16 @@ KNOWN-SYMBOLS is used for referencing symbols found in other parts of the module." (let ((org-export-with-toc nil) (org-export-with-section-numbers nil)) - (org-export-string-as - (replace-regexp-in-string - "`\\([^']+\\)'" - (lambda (match) - (if (member (substring match 1 -1) known-symbols) - "@@html:@@\\1@@html:@@" - "~\\1~")) - txt) - 'html t))) + (edocs--with-tag "div" '(("class" . "container")) + (org-export-string-as + (replace-regexp-in-string + "`\\([^']+\\)'" + (lambda (match) + (if (member (substring match 1 -1) known-symbols) + "@@html:@@\\1@@html:@@" + "~\\1~")) + txt) + 'html t)))) (defmethod edocs--export-format-text ((exporter edocs-ascii-exporter) txt known-symbols) @@ -243,13 +244,12 @@ parts of the module." KNOWN-SYMBOLS is used for referencing symbols found in other parts of the module." - (edocs--with-tag "div" '(("class" . "container")) - (edocs--export-format-text - exporter - (replace-regexp-in-string - ";" "*" (replace-regexp-in-string - "^;; " "" (replace-regexp-in-string - ";;; Commentary:\n+" "" cmt))) known-symbols))) + (edocs--export-format-text + exporter + (replace-regexp-in-string + ";" "*" (replace-regexp-in-string + "^;; " "" (replace-regexp-in-string + ";;; Commentary:\n+" "" cmt))) known-symbols)) (defun edocs--format-doc (exporter doc known-symbols) "Make EXPORTER perform formatting operations on DOC or on DOC's `cdr'.