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.

1 files changed, 10 insertions, 8 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)))
-
-            (copy-file src-filename dst-filename))))
+            (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
+                       (kaarvok-parse-file-name dst-filename)))))
       (set 'files (cdr files)))))
 
 ;;;###autoload