From 4c157a4d5dc1fe7c4dfbfd3c05572942e46d2a80 Mon Sep 17 00:00:00 2001 From: Tom Willemse Date: Mon, 23 Sep 2013 00:43:22 +0200 Subject: [PATCH] Parse only directory names too Files that aren't parsed for their contents should still have their destination name parsed in case either the file or parent directory have variables in them. --- kaarvok.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/kaarvok.el b/kaarvok.el index 40be88a..55f1e0b 100644 --- a/kaarvok.el +++ b/kaarvok.el @@ -113,14 +113,16 @@ Parse both paths and files in the process." (if (string-equal (file-name-extension src-filename) "etpl") (kaarvok-parse-and-copy-file src-filename (file-name-sans-extension dst-filename)) - (if (not (file-exists-p to)) - (make-directory to t) - (unless (file-directory-p to) - (error - (concat "Cannot create project at %s, file " - "already exists and is not a directory.") to))) + (let ((to (kaarvok-parse-file-name to))) + (if (not (file-exists-p to)) + (make-directory to t) + (unless (file-directory-p to) + (error + (concat "Cannot create project at %s, file " + "already exists and is not a directory.") to)))) - (copy-file src-filename dst-filename)))) + (copy-file src-filename + (kaarvok-parse-file-name dst-filename))))) (set 'files (cdr files))))) ;;;###autoload