[PATCH] org-export-pdf-remove-logfiles extensions

From: "Łukasz Stelmach" <lukasz.stelmach@iem.pw.edu.pl>
To: emacs-orgmode@gnu.org
Subject: [PATCH] org-export-pdf-remove-logfiles extensions
Date: Wed, 25 Nov 2009 18:31:43 +0100	[thread overview]
Message-ID: <87fx82ecjk.fsf_-_@dasa3.iem.pw.edu.pl> (raw)
In-Reply-To: F56376C9-8CC4-4421-844E-3285696A68A5@gmail.com

[-- Attachment #1: Type: text/plain, Size: 484 bytes --]

Carsten Dominik <carsten.dominik@gmail.com> writes:

> On Nov 25, 2009, at 1:56 PM, Łukasz Stelmach wrote:
>> XeLaTeX[1,2] produces some more files than pdflatex. These are:
>> .nav, .snm, .vrb. All named the same as the base file. The list in
>> org-export-as-pdf should be extended or even made customisable.
> I have fixed this.

That's great. How about this one? I'm just not sure 'sexp is the best
type.

P.S. Is it ok to post patches here?

-- 
Miłego dnia,
Łukasz Stelmach


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: customisable list of logfile types --]
[-- Type: text/x-diff, Size: 1076 bytes --]

diff --git a/lisp/org-latex.el b/lisp/org-latex.el
index 09e7067..e2959c1 100644
--- a/lisp/org-latex.el
+++ b/lisp/org-latex.el
@@ -400,6 +400,12 @@ This function should accept the file name as its single argument."
 		  (string :tag "Shell command"))
 		 (function)))
 
+(defcustom org-export-pdf-logfiles
+  '("aux" "idx" "log" "out" "toc" "nav" "snm" "vrb")
+  "The list of file extensions to consider as LaTeX logfiles."
+  :group 'org-export-pdf
+  :type 'sexp)
+
 (defcustom org-export-pdf-remove-logfiles t
   "Non-nil means, remove the logfiles produced by PDF production.
 These are the .aux, .log, .out, and .toc files."
@@ -719,7 +725,7 @@ when PUB-DIR is set, use this as the publishing directory."
 	(error "PDF file was not produced")
       (set-window-configuration wconfig)
       (when org-export-pdf-remove-logfiles
-	(dolist (ext '("aux" "idx" "log" "out" "toc" "nav" "snm" "vrb"))
+	(dolist (ext org-export-pdf-logfiles)
 	  (setq file (concat base "." ext))
 	  (and (file-exists-p file) (delete-file file))))
       (message "Exporting to PDF...done")

[-- Attachment #3: Type: text/plain, Size: 201 bytes --]

_______________________________________________
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
