Re: [Orgmode] Problem exporting to LaTeX/PDF from command line

[Nick Dokos]

Nick Dokos <address@hidden> wrote:

> Francesco Pizzolante <address@hidden> 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))