From: Carsten Dominik <dominik@science.uva.nl>
Date: Wed, 22 Aug 2007 11:51:09 +0000 (+0000)
Subject: * textmodes/org-publish.el (org-publish-org-to-latex): New
X-Git-Tag: emacs-pretest-23.0.90~11380
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=daa89d0f73b4dc1c8ec608c002519349f0c91c61;p=emacs.git

* textmodes/org-publish.el (org-publish-org-to-latex): New
	function.
---

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  <dominik@science.uva.nl>
 
+	* 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  <dominik@science.uva.nl>
+
+	* 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  <rgm@gnu.org>
 
 	* faq.texi (Learning how to do something): Refcards now in