emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Francesco Pizzolante <fpz-djc/iPCCuDYQheJpep6IedvLeJWuRmrY@public.gmane.org>
To: mailing-list-org-mode <emacs-orgmode-mXXj517/zsQ@public.gmane.org>
Subject: Problem exporting to LaTeX/PDF from command line
Date: Mon, 19 Apr 2010 17:49:28 +0200	[thread overview]
Message-ID: <87d3xv5to7.fsf@mundaneum.com> (raw)

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

             reply	other threads:[~2010-04-19 15:49 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-04-19 15:49 Francesco Pizzolante [this message]
     [not found] ` <87d3xv5to7.fsf-pwAqS3aGAJQybS5Ee8rs3A@public.gmane.org>
2010-04-20  8:06   ` Problem exporting to LaTeX/PDF from command line Francesco Pizzolante
2010-04-20 15:12     ` Nick Dokos
2010-04-20 15:38       ` Nick Dokos

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=87d3xv5to7.fsf@mundaneum.com \
    --to=fpz-djc/ipccudyqhejpep6iedvlejwurmry@public.gmane.org \
    --cc=emacs-orgmode-mXXj517/zsQ@public.gmane.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).