From daa89d0f73b4dc1c8ec608c002519349f0c91c61 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Wed, 22 Aug 2007 11:51:09 +0000 Subject: [PATCH] * textmodes/org-publish.el (org-publish-org-to-latex): New function. --- lisp/ChangeLog | 2 ++ lisp/textmodes/org-publish.el | 27 ++++++++++++++++++++++++--- man/ChangeLog | 8 ++++++++ 3 files changed, 34 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9ef7f409184..0b45104acb3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2007-08-22 Carsten Dominik + * textmodes/org-export-latex.el: New file. + * textmodes/org-publish.el (org-publish-org-to-latex): New function. diff --git a/lisp/textmodes/org-publish.el b/lisp/textmodes/org-publish.el index 5a2a146dbaa..cdfc673b0f3 100644 --- a/lisp/textmodes/org-publish.el +++ b/lisp/textmodes/org-publish.el @@ -6,9 +6,11 @@ ;; Keywords: hypermedia, outlines ;; Version: 1.80 +;; $Id: org-publish.el,v 1.80 2007/03/22 02:31:03 dto Exp dto $ + ;; This file is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 3, or (at your option) +;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This file is distributed in the hope that it will be useful, @@ -452,6 +454,27 @@ FILENAME is the filename of the org file to be published." (kill-buffer (current-buffer))))) +(defun org-publish-org-to-latex (plist filename) + "Publish an org file to LaTeX." + (org-publish-org-to "latex" plist filename)) + +(defun org-publish-org-to-html (plist filename) + "Publish an org file to HTML." + (org-publish-org-to "html" plist filename)) + +(defun org-publish-org-to (format plist filename) + "Publish an org file to FORMAT. +PLIST is the property list for the given project. +FILENAME is the filename of the org file to be published." + (require 'org) + (let* ((arg (plist-get plist :headline-levels))) + (progn + (find-file filename) + (funcall (intern (concat "org-export-as-" format)) + arg nil plist) + (kill-buffer (current-buffer))))) + + (defun org-publish-attachment (plist filename) "Publish a file with no transformation of any kind. PLIST is the property list for the given project. @@ -596,6 +619,4 @@ With prefix argument, force publish all files." (provide 'org-publish) - -;; arch-tag: 72807f3c-8af0-4a6b-8dca-c3376eb25adb ;;; org-publish.el ends here diff --git a/man/ChangeLog b/man/ChangeLog index 7d743561627..732c18c980d 100644 --- a/man/ChangeLog +++ b/man/ChangeLog @@ -1,3 +1,11 @@ +2007-08-22 Carsten Dominik + + * org.texi (Adding hyperlink types): New section. + (Embedded LaTeX): Chapter updated because of LaTeX export. + (LaTeX export): New section. + (Using links out): New section. + + 2007-08-22 Glenn Morris * faq.texi (Learning how to do something): Refcards now in -- 2.39.2