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

Fix HTML export

Browse source
This commit is contained in:
Tom Willemse 2014-01-27 23:43:57 +01:00
parent 8f4fa5d2f4
commit 6dada9e33d
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
edocs.el
View file

@ -213,15 +213,16 @@ 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))
(edocs--with-tag "div" '(("class" . "container")) (edocs--with-tag "div" '(("class" . "container"))
(org-export-string-as (insert
(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)
@ -352,7 +353,7 @@ into a buffer called `*edocs*' and switches to that buffer."
(edocs--export-insert-title exporter (edocs--export-insert-title exporter
(edocs--module-name binfo) (edocs--module-name binfo)
(edocs--module-summary binfo)) (edocs--module-summary binfo))
(insert (edocs--format-commentary exporter commentary symbols)) (edocs--format-commentary exporter commentary symbols)
(edocs--export-insert-header exporter 2 "API") (edocs--export-insert-header exporter 2 "API")
(mapc (lambda (spec) (edocs--format-symbol exporter spec symbols)) (mapc (lambda (spec) (edocs--format-symbol exporter spec symbols))
symbol-specs) symbol-specs)