From 67b7ed6c50e2be7935d4e5d92ec0e6d2e2fbfbb8 Mon Sep 17 00:00:00 2001
From: 10sr <8slashes+git@gmail.com>
Date: Sun, 17 Aug 2014 21:34:36 +0900
Subject: [PATCH] emacs.el: add function prepare-init-el

---
 emacs.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/emacs.el b/emacs.el
index 8b9f512..d64dfa0 100644
--- a/emacs.el
+++ b/emacs.el
@@ -20,6 +20,21 @@
   (require 'cl nil t))
 
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; prepare init.el
+
+(defun prepare-init-el (elfile)
+  "Prepare ~/.emacs/init.el to load ELFILE."
+  (interactive "fFilename to set to be loaded: ")
+  (with-temp-buffer
+      (insert (format "(and (file-readable-p \"%s\")
+     (load-file \"%s\"))"
+                      elfile
+                      elfile))
+      (write-file (expand-file-name (concat user-emacs-directory
+                                            "init.el")))))
+
+
 ;; (add-hook 'after-change-major-mode-hook
 ;;           (lambda ()
 ;;             (message "cmm: %S %s"