Problem exporting to LaTeX/PDF from command line

Problem exporting to LaTeX/PDF from command line

[Francesco Pizzolante]

Hi,

I'm trying to write a shell script in order to convert/export Org files to
LaTeX/PDF from the command line (org2tex/org2pdf). The whole process works
well, except that it seems that some bits of the exportation are not executed.

Here's an example of what I do.

I'm using the org-interaction.el file from Blorgit:

--8<---------------cut here---------------start------------->8---
(require 'org)
(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))
--8<---------------cut here---------------end--------------->8---


Here's the file I'm trying to convert (test.org):

--8<---------------cut here---------------start------------->8---
#+TITLE:   Features report
#+AUTHOR:    Francesco Pizzolante
#+EMAIL:     fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org
#+DATE:      2010-04-19
#+DESCRIPTION:
#+KEYWORDS:
#+LANGUAGE: en_US

#+LaTeX_CLASS_OPTIONS: [a4paper]

* First test
** tatatata
--8<---------------cut here---------------end--------------->8---


On the command line, I run the following command:

--8<---------------cut here---------------start------------->8---
emacs --batch -l org-interaction.el --eval "(org-file-to-latex  \"~/test.org\")"
--8<---------------cut here---------------end--------------->8---


My observation is that the #+LATEX_CLASS_OPTIONS are not taken into account. I
can add any option there, I always see the default one (11pt).

It is really strange because if I add a #+LATEX_CLASS directive, this one is
well taken into account and I get the desired class.

I don't know whether it's a bug somewhere or whether I miss some arguments
somewhere...

I also tested whith Blorgit and it is the same behavior (options not
exported).

Thanks a lot for your help,
Francesco


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Problem exporting to LaTeX/PDF from command line

[Francesco Pizzolante]

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?

Thanks,
Francesco

Francesco Pizzolante wrote:
> Hi,
>
> I'm trying to write a shell script in order to convert/export Org files to
> LaTeX/PDF from the command line (org2tex/org2pdf). The whole process works
> well, except that it seems that some bits of the exportation are not executed.
>
> Here's an example of what I do.
>
> I'm using the org-interaction.el file from Blorgit:
>
> (require 'org)
> (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))
>
>
> Here's the file I'm trying to convert (test.org):
>
> #+TITLE:   Features report
> #+AUTHOR:    Francesco Pizzolante
> #+EMAIL:     fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org
> #+DATE:      2010-04-19
> #+DESCRIPTION:
> #+KEYWORDS:
> #+LANGUAGE: en_US
>
> #+LaTeX_CLASS_OPTIONS: [a4paper]
>
> * First test
> ** tatatata
>
>
> On the command line, I run the following command:
>
> emacs --batch -l org-interaction.el --eval "(org-file-to-latex  \"~/test.org\")"
>
>
> My observation is that the #+LATEX_CLASS_OPTIONS are not taken into account. I
> can add any option there, I always see the default one (11pt).
>
> It is really strange because if I add a #+LATEX_CLASS directive, this one is
> well taken into account and I get the desired class.
>
> I don't know whether it's a bug somewhere or whether I miss some arguments
> somewhere...
>
> I also tested whith Blorgit and it is the same behavior (options not
> exported).
>
> Thanks a lot for your help,
> Francesco


_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Problem exporting to LaTeX/PDF from command line

[Nick Dokos]

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.

Nick

> 
> Francesco Pizzolante wrote:
> > Hi,
> >
> > I'm trying to write a shell script in order to convert/export Org files to
> > LaTeX/PDF from the command line (org2tex/org2pdf). The whole process works
> > well, except that it seems that some bits of the exportation are not executed.
> >
> > Here's an example of what I do.
> >
> > I'm using the org-interaction.el file from Blorgit:
> >
> > (require 'org)
> > (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))
> >
> >
> > Here's the file I'm trying to convert (test.org):
> >
> > #+TITLE:   Features report
> > #+AUTHOR:    Francesco Pizzolante
> > #+EMAIL:     fpz@missioncriticalit.com
> > #+DATE:      2010-04-19
> > #+DESCRIPTION:
> > #+KEYWORDS:
> > #+LANGUAGE: en_US
> >
> > #+LaTeX_CLASS_OPTIONS: [a4paper]
> >
> > * First test
> > ** tatatata
> >
> >
> > On the command line, I run the following command:
> >
> > emacs --batch -l org-interaction.el --eval "(org-file-to-latex  \"~/test.org\")"
> >
> >
> > My observation is that the #+LATEX_CLASS_OPTIONS are not taken into account. I
> > can add any option there, I always see the default one (11pt).
> >
> > It is really strange because if I add a #+LATEX_CLASS directive, this one is
> > well taken into account and I get the desired class.
> >
> > I don't know whether it's a bug somewhere or whether I miss some arguments
> > somewhere...
> >
> > I also tested whith Blorgit and it is the same behavior (options not
> > exported).
> >
> > Thanks a lot for your help,
> > Francesco
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
> 

Re: Problem exporting to LaTeX/PDF from command line

[Nick Dokos]

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))