From: Nick Dokos <nicholas.dokos@hp.com>
To: nicholas.dokos@hp.com
Cc: mailing-list-org-mode <emacs-orgmode@gnu.org>
Subject: Re: Problem exporting to LaTeX/PDF from command line
Date: Tue, 20 Apr 2010 11:38:43 -0400 [thread overview]
Message-ID: <10248.1271777923@gamaville.dokosmarshall.org> (raw)
In-Reply-To: Message from Nick Dokos <nicholas.dokos@hp.com> of "Tue, 20 Apr 2010 11:12:24 EDT." <9004.1271776344@gamaville.dokosmarshall.org>
Nick Dokos <nicholas.dokos@hp.com> wrote:
> Francesco Pizzolante <fpz@missioncriticalit.com> 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))
prev parent reply other threads:[~2010-04-20 15:39 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-04-19 15:49 Problem exporting to LaTeX/PDF from command line Francesco Pizzolante
[not found] ` <87d3xv5to7.fsf-pwAqS3aGAJQybS5Ee8rs3A@public.gmane.org>
2010-04-20 8:06 ` Francesco Pizzolante
2010-04-20 15:12 ` Nick Dokos
2010-04-20 15:38 ` Nick Dokos [this message]
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=10248.1271777923@gamaville.dokosmarshall.org \
--to=nicholas.dokos@hp.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).