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

Use org to export text

Browse source
This commit is contained in:
Tom Willemse 2013-12-28 17:38:20 +01:00
parent 6006120614
commit f3315a4ddb
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
edocs.el
View file

@ -1,4 +1,4 @@
;;; edocs.el --- Extract documentation from file(s) ;;; edocs.el --- Extract and format documentation from file(s)
;; Copyright (C) 2013 Tom Willemse ;; Copyright (C) 2013 Tom Willemse
@ -25,12 +25,13 @@
;; simple HTML export of the Commentary and all the docstrings in a ;; simple HTML export of the Commentary and all the docstrings in a
;; file. It is meant to be used as a batch operation, like so: ;; file. It is meant to be used as a batch operation, like so:
;; emacs -batch -l edocs.el -f edocs-generate-batch file.el ;; : emacs -batch -l edocs.el -f edocs-generate-batch file.el
;;; Code: ;;; Code:
(require 'help-fns) (require 'help-fns)
(require 'lisp-mnt) (require 'lisp-mnt)
(require 'ox-html)
(require 'package) (require 'package)
(defvar edocs-stylesheet-location "style.css" (defvar edocs-stylesheet-location "style.css"
@ -128,7 +129,7 @@ etc."
(defun edocs--format-text (txt) (defun edocs--format-text (txt)
"Perform formatting operations on TXT." "Perform formatting operations on TXT."
(replace-regexp-in-string "\n\n" "</p><p>" txt)) (org-export-string-as txt 'html t))
(defun edocs--format-commentary (cmt) (defun edocs--format-commentary (cmt)
"Perform special commentary formatting operations on CMT." "Perform special commentary formatting operations on CMT."