Mercurial > emacs
comparison lisp/textmodes/org-publish.el @ 84500:1e8d15d124b9
(org-publish-org-to-html): Remove duplicate function definition.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 12 Sep 2007 07:30:25 +0000 |
| parents | 475ee2f96420 |
| children | d6e2d9d9924a |
comparison
equal
deleted
inserted
replaced
| 84499:1c66d0ff94ca | 84500:1e8d15d124b9 |
|---|---|
| 436 | 436 |
| 437 | 437 |
| 438 | 438 |
| 439 ;;;; Pluggable publishing back-end functions | 439 ;;;; Pluggable publishing back-end functions |
| 440 | 440 |
| 441 | |
| 442 (defun org-publish-org-to-html (plist filename) | |
| 443 "Publish an org file to HTML. | |
| 444 PLIST is the property list for the given project. | |
| 445 FILENAME is the filename of the org file to be published." | |
| 446 (require 'org) | |
| 447 (let* ((arg (plist-get plist :headline-levels))) | |
| 448 (progn | |
| 449 (find-file filename) | |
| 450 (org-export-as-html arg nil plist) | |
| 451 ;; get rid of HTML buffer | |
| 452 (kill-buffer (current-buffer))))) | |
| 453 | |
| 454 | |
| 455 (defun org-publish-org-to-latex (plist filename) | 441 (defun org-publish-org-to-latex (plist filename) |
| 456 "Publish an org file to LaTeX." | 442 "Publish an org file to LaTeX." |
| 457 (org-publish-org-to "latex" plist filename)) | 443 (org-publish-org-to "latex" plist filename)) |
| 458 | 444 |
| 459 (defun org-publish-org-to-html (plist filename) | 445 (defun org-publish-org-to-html (plist filename) |