From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Problem exporting to LaTeX/PDF from command line Date: Tue, 20 Apr 2010 11:38:43 -0400 Message-ID: <10248.1271777923@gamaville.dokosmarshall.org> References: <87d3xv5to7.fsf@mundaneum.com> <874oj65yzh.fsf@mundaneum.com> <9004.1271776344@gamaville.dokosmarshall.org> Reply-To: nicholas.dokos@hp.com Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1O4FXj-0004sK-O5 for emacs-orgmode@gnu.org; Tue, 20 Apr 2010 11:39:19 -0400 Received: from [140.186.70.92] (port=39633 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1O4FXe-0004r0-Gd for emacs-orgmode@gnu.org; Tue, 20 Apr 2010 11:39:18 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1O4FXZ-00088l-Ie for emacs-orgmode@gnu.org; Tue, 20 Apr 2010 11:39:14 -0400 Received: from vms173019pub.verizon.net ([206.46.173.19]:45837) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1O4FXZ-00088Y-8F for emacs-orgmode@gnu.org; Tue, 20 Apr 2010 11:39:09 -0400 Received: from gamaville.dokosmarshall.org ([unknown] [173.76.32.106]) by vms173019.mailsrvcs.net (Sun Java(tm) System Messaging Server 7u2-7.02 32bit (built Apr 16 2009)) with ESMTPA id <0L16004EEM4JZYP5@vms173019.mailsrvcs.net> for emacs-orgmode@gnu.org; Tue, 20 Apr 2010 10:38:44 -0500 (CDT) In-reply-to: Message from Nick Dokos of "Tue, 20 Apr 2010 11:12:24 EDT." <9004.1271776344@gamaville.dokosmarshall.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: nicholas.dokos@hp.com Cc: mailing-list-org-mode Nick Dokos wrote: > Francesco Pizzolante wrote: > > > Hi, > > > > I forgot to mention that, of course, when I do the same operation within > > Emacs, using the C-c C-e l, the file is exported without problem. > > > > Any idea? > > > > I tried a little debugging on this, but I didn't get very far before I > ran out of time. The re-search-forward for "#+LaTeX_CLASS_OPTIONS" in > org-export-latex-set-initial-vars fails and it looks to me like a rather > subtle problem: the temp file buffer looks empty. Whether that's the > fault of the with-temp-file-buffer macro or something else, I'm not > sure. > Still not sure what is going on, but this modified org-interaction.el file (it loads the necessary org-XXX.el files explicitly - be sure to change the load-path appropriately) seems to work for me. I have not tried to load org-XXX.elc files to see whether that works or not. Nick --------------------------------------------------------------------------- (add-to-list 'load-path "/home/nick/src/emacs/org/org-mode/lisp") (load-library "org.el") (load-library "org-latex.el") (load-library "org-list.el") (load-library "org-macs.el") (load-library "org-compat.el") (require 'cl) (setq font-lock-mode t) (defun refresh-then-find-file (file) "Find file ensuring that the latest changes on disk are represented in the file." (let (file-buf) (while (setq file-buf (get-file-buffer file)) (kill-buffer file-buf)) (find-file file))) (defmacro with-temp-filebuffer (file &rest body) "Open FILE into a temporary buffer execute BODY there like `progn', then kill the FILE buffer returning the result of evaluating BODY." (let ((temp-result (make-symbol "temp-result")) (temp-file (make-symbol "temp-file"))) `(let (,temp-result ,temp-file) (refresh-then-find-file ,file) (setf ,temp-file (current-buffer)) (setf ,temp-result (progn ,@body)) (kill-buffer ,temp-file) ,temp-result))) ;; (defvar org-interaction-prefix ".exported_") (defvar org-interaction-prefix "") (defun org-file-to-html (file-path) "Open up an org file, publish it to html, and then return the html as a string." (let* ((file-name (file-name-nondirectory file-path)) (file-dir (file-name-directory file-path)) (html-path (expand-file-name (concat org-interaction-prefix file-name) file-dir))) (if (and (file-exists-p html-path) (< 0 (time-to-seconds (time-subtract (nth 5 (file-attributes html-path)) (nth 5 (file-attributes file-path)))))) html-path (with-temp-filebuffer file-path (org-mode) (save-window-excursion (org-export-as-html-to-buffer nil) (write-file html-path) (kill-buffer (current-buffer))))))) (defun org-file-to-latex (file-path) "Open up an org file, publish it to latex, and then return the latex as a string." (let* ((file-name (file-name-nondirectory file-path)) (file-dir (file-name-directory file-path)) (latex-path (expand-file-name (concat org-interaction-prefix file-name ".tex") file-dir))) (if (and (file-exists-p latex-path) (< 0 (time-to-seconds (time-subtract (nth 5 (file-attributes latex-path)) (nth 5 (file-attributes file-path)))))) latex-path (with-temp-filebuffer file-path (org-mode) (save-window-excursion (org-export-as-latex-to-buffer nil) (write-file latex-path) (kill-buffer (current-buffer))))))) (defun org-file-to-pdf (file-path) "Open up an org file and export it as pdf." (let* ((file-name (file-name-sans-extension file-path)) (file-dir (file-name-directory file-path)) (org-tmp-path (make-temp-file "org-file-to-pdf-")) (pdf-tmp-path (concat org-tmp-path ".pdf")) (tex-tmp-path (concat org-tmp-path ".tex")) (pdf-path (expand-file-name (concat org-interaction-prefix file-name ".pdf") file-dir))) (if (and (file-exists-p pdf-path) (< 0 (time-to-seconds (time-subtract (nth 5 (file-attributes pdf-path)) (nth 5 (file-attributes file-path)))))) pdf-path (with-temp-filebuffer file-path (write-file org-tmp-path) (org-mode) (save-window-excursion (org-export-as-pdf nil) (rename-file pdf-tmp-path pdf-path t) (delete-file org-tmp-path) ;; (delete-file tex-tmp-path) (kill-buffer (current-buffer))))))) ;; customization ;; (setq org-export-blocks-witheld '(hidden comment)) ;; Start the server ;; (server-start) ;; save the emacsclient server socket location ;; (with-temp-file "/tmp/emacsclient-socket-dir" ;; (insert server-socket-dir))