Create image cache directory with parents

johnbcoughlin · Aug 9, 2019 · 812baee · 812baee
1 parent 7aa4c92
commit 812baee
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/calctex-test.el b/calctex-test.el
@@ -79,4 +79,13 @@
      (assert-nth-overlay-equals 0 "resources/2a.png" 'png)
      (assert-nth-overlay-equals 1 "resources/4a.png" 'png))))
 
+(ert-deftest creates-parents-of-image-cache ()
+  (with-calc-test-harness
+   (lambda ()
+     (setq calctex-latex-image-directory "~/foo/bar/calctex")
+     (calctex-mode 1)
+     (execute-kbd-macro (kbd "' a <RET>"))
+     (execute-kbd-macro (kbd "2 <RET> *"))
+     (assert-nth-overlay-equals 0 "resources/2a.png" 'png))))
+
 (provide 'calctex-test)
diff --git a/calctex.el b/calctex.el
@@ -15,7 +15,7 @@ rendered image and the image type.
       (lambda (src)
         (if (file-exists-p calctex-latex-image-directory)
             ()
-          (make-directory calctex-latex-image-directory))
+          (make-directory calctex-latex-image-directory 'parents))
         (let* ((fg (calctex-latex-color :foreground))
                (bg (calctex-latex-color :background))
                (hash (sha1 (prin1-to-string (list src fg bg))))