Nick Dokos <nicholas.do...@hp.com> wrote:
> Francesco Pizzolante <f...@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))
_______________________________________________
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
