Handle simultaneous emacs invocations if init files are on NFS

1 files changed, 13 insertions, 2 deletions

diff --git a/init.el b/init.el
index 20f1e64..8bb3b16 100644
--- a/init.el
+++ b/init.el
@@ -2,9 +2,20 @@
 
 ;; Remember the initialization directory
 (setq ravi/init-dir (file-name-directory (or load-file-name (buffer-file-name))))
+(setq ravi/init-dir-is-local
+      (let* ((df (executable-find "df"))
+             (ret (call-process df nil nil nil "-l" (or load-file-name (buffer-file-name)))))
+        (eql ret 0)))
 (defun ravi/emacs-file (filename)
-  (expand-file-name filename ravi/init-dir)
-  )
+  (expand-file-name filename ravi/init-dir))
+(setq ravi/past-directory
+      (ravi/emacs-file (if ravi/init-dir-is-local
+                           "past"
+                         (format "past-%s" (system-name)))))
+(unless (file-accessible-directory-p ravi/past-directory)
+  (make-directory ravi/past-directory))
+(defun ravi/past-file (filename)
+  (expand-file-name filename ravi/past-directory))
 
 ;; Initialize some customizations early on to avoid flicker
 (when window-system