ryuslash/edocs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Put tag in correct place

Browse source
This commit is contained in:
Tom Willemse 2014-01-27 23:32:21 +01:00
parent 76d63682e6
commit 8f4fa5d2f4
1 changed files with 16 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

32
edocs.el
View file

@ -212,15 +212,16 @@ KNOWN-SYMBOLS is used for referencing symbols found in other
parts of the module." parts of the module."
(let ((org-export-with-toc nil) (let ((org-export-with-toc nil)
(org-export-with-section-numbers nil)) (org-export-with-section-numbers nil))
(org-export-string-as (edocs--with-tag "div" '(("class" . "container"))
(replace-regexp-in-string (org-export-string-as
"`\\([^']+\\)'" (replace-regexp-in-string
(lambda (match) "`\\([^']+\\)'"
(if (member (substring match 1 -1) known-symbols) (lambda (match)
"@@html:<a href=\"#\\1\"><code>@@\\1@@html:</code></a>@@" (if (member (substring match 1 -1) known-symbols)
"~\\1~")) "@@html:<a href=\"#\\1\"><code>@@\\1@@html:</code></a>@@"
txt) "~\\1~"))
'html t))) txt)
'html t))))
(defmethod edocs--export-format-text ((exporter edocs-ascii-exporter) (defmethod edocs--export-format-text ((exporter edocs-ascii-exporter)
txt known-symbols) txt known-symbols)
@ -243,13 +244,12 @@ parts of the module."
KNOWN-SYMBOLS is used for referencing symbols found in other KNOWN-SYMBOLS is used for referencing symbols found in other
parts of the module." parts of the module."
(edocs--with-tag "div" '(("class" . "container")) (edocs--export-format-text
(edocs--export-format-text exporter
exporter (replace-regexp-in-string
(replace-regexp-in-string ";" "*" (replace-regexp-in-string
";" "*" (replace-regexp-in-string "^;; " "" (replace-regexp-in-string
"^;; " "" (replace-regexp-in-string ";;; Commentary:\n+" "" cmt))) known-symbols))
";;; Commentary:\n+" "" cmt))) known-symbols)))
(defun edocs--format-doc (exporter doc known-symbols) (defun edocs--format-doc (exporter doc known-symbols)
"Make EXPORTER perform formatting operations on DOC or on DOC's `cdr'. "Make EXPORTER perform formatting operations on DOC or on DOC's `cdr'.