Create magithub-dir if it doesn't already exist

vermiculus · vermiculus · commit e69a79a37e04 · 2017-05-15T20:07:21.000-05:00
diff --git a/magithub-cache.el b/magithub-cache.el
@@ -185,9 +185,10 @@ context.  If t, `magithub-source-repo' is used."
   (if (active-minibuffer-window)
       (run-with-idle-timer 10 nil #'magithub-cache-write-to-disk) ;defer
     (when magithub-cache--needs-write
-      (with-temp-buffer
-        (insert (prin1-to-string magithub-cache--cache))
-        (write-file magithub-cache-file))
+      (magithub-in-data-dir
+       (with-temp-buffer
+         (insert (prin1-to-string magithub-cache--cache))
+         (write-file magithub-cache-file)))
       (setq magithub-cache--needs-write nil)
       (magithub-debug-message "wrote cache to disk"))))
 
diff --git a/magithub-core.el b/magithub-core.el
@@ -49,6 +49,16 @@ Respects `magithub-debug-mode' and `debug-on-error'."
   (expand-file-name "magithub" user-emacs-directory)
   "Data directory.")
 
+(defmacro magithub-in-data-dir (&rest forms)
+  "Execute forms in `magithub-dir'.
+If `magithub-dir' does not yet exist, it and its parents will be
+created automatically."
+  `(progn
+     (unless (file-directory-p magithub-dir)
+       (mkdir magithub-dir t))
+     (let ((default-directory magithub-dir))
+       ,@forms)))
+
 (defun magithub-github-repository-p ()
   "Non-nil if \"origin\" points to GitHub or a whitelisted domain."
   (when-let ((origin (magit-get "remote" "origin" "url")))
