Re: Temp files are not deleted after beamer export with source code blocks

[Nicolas Goaziou <n.goaziou@gmail.com>]

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

Hello,

James Harkins <jamshark70@gmail.com> writes:

> Hm, you're right -- I was sure they are hyphens, but I just looked
> again and they are indeed dots.

Thanks for checking.

> As a final test, I deleted all the .vrb files manually and exported my
> document again. Then, after the export process finished, I refreshed
> a dired buffer for the directory in question:
>
>  -rw-rw-r-- 1 dlm dlm   504 Nov  7 09:28 lp-slides.5.vrb
>  -rw-rw-r-- 1 dlm dlm   667 Nov  7 09:28 lp-slides.6.vrb
>  -rw-rw-r-- 1 dlm dlm   563 Nov  7 09:28 lp-slides.7.vrb
>  -rw-rw-r-- 1 dlm dlm   662 Nov  7 09:28 lp-slides.8.vrb
>
> These were all created during the last export cycle, and not deleted
> by that cycle.

The previous patch used a regexp matching an hyphen before the number.

Here's an update which should properly remove these files. Could you
confirm it?


Regards,

-- 
Nicolas Goaziou

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0001-ox-latex-Remove-all-temporary-files-when-compiling.patch --]
[-- Type: text/x-diff, Size: 1302 bytes --]

From 77fb3960eacc15cdf05559235c20243d7d4eb0b1 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Tue, 29 Oct 2013 09:02:29 +0100
Subject: [PATCH] ox-latex: Remove all temporary files when compiling

* lisp/ox-latex.el (org-latex-compile): Remove all numbered temporary
  files after compiling.
---
 lisp/ox-latex.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lisp/ox-latex.el b/lisp/ox-latex.el
index f14a1f9..1da5f52 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2900,9 +2900,13 @@ Return PDF file name or an error if it couldn't be produced."
 	  ;; Else remove log files, when specified, and signal end of
 	  ;; process to user, along with any error encountered.
 	  (when (and (not snippet) org-latex-remove-logfiles)
-	    (dolist (ext org-latex-logfiles-extensions)
-	      (let ((file (concat out-dir base-name "." ext)))
-		(when (file-exists-p file) (delete-file file)))))
+	    (dolist (file (directory-files
+			   out-dir t
+			   (concat (regexp-quote base-name)
+				   "\\(?:\\.[0-9]+\\)?"
+				   "\\."
+				   (regexp-opt org-latex-logfiles-extensions))))
+	      (delete-file file)))
 	  (message (concat "Process completed"
 			   (if (not errors) "."
 			     (concat " with errors: " errors)))))
-- 
1.8.4.2