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: 734 bytes --]

Hello,

James Harkins <jamshark70@gmail.com> writes:

> I've set org-latex-listings to "Use listings" (not minted), and then run 
> this minimal example.

[...]

> Now there is a file "beamer-listings-2.vrb" containing the LaTeX code for 
> the second frame. This file never gets deleted. As I'm developing the 
> presentation, chances are that frame will end up becoming a different frame 
> number, so I keep getting more and more vrb files on disk.
>
> Shouldn't org clean these up after LaTeX is finished? It already cleans up 
> other temporary LaTeX files.

It should clean them up. Though, the "-2" suffix implies that a regexp
is needed to find temporary files.

Does the following patch work?


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: 1300 bytes --]

From 0820b155258f3f675c40089ea67bb7ab359f0709 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 b0cc4bb..a1d30aa 100644
--- a/lisp/ox-latex.el
+++ b/lisp/ox-latex.el
@@ -2903,9 +2903,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.1