From 94a7f21ebb2aa50b8456b60083ac512815723449 Mon Sep 17 00:00:00 2001
From: Rongsong Shen <shenrs@cn.ibm.com>
Date: Mon, 17 Dec 2018 11:41:36 +0800
Subject: [PATCH] minor improvement

---
 init/dot.emacs.el | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/init/dot.emacs.el b/init/dot.emacs.el
index 203c9b4..5a07cf1 100644
--- a/init/dot.emacs.el
+++ b/init/dot.emacs.el
@@ -18,7 +18,8 @@
 (setq emacs-config-directory
       (let ((config-dir (getenv "EMACS_CONFIG_DIR")))
         (if config-dir
-            (concat config-dir "/" emacs-config-name "/")
+            (concat config-dir "/"
+                    emacs-config-name "/")
           (concat (substitute-in-file-name "~/.config/emacs/")
                   emacs-config-name "/"))))
 
@@ -77,22 +78,26 @@
                      (list
                       (concat "git clone https://github.com/syl20bnr/spacemacs.git " dir))))))
 
-(defun on-installer-finished (process event)
-  "Callback function when uinstaller process has finished.
-We use this function to load startkit initialization file"
-  (cond
-   ((string= event "finished\n") (load-file emacs-init-file))
-   (t (message "Event %s has been ignored" event))))
 
 (defun install-emacs-startkit (name location)
   (progn (let* ((shell-buffer (make-comint-in-buffer "installer" nil "/bin/sh"))
                 (shell-process (get-buffer-process shell-buffer)))
            (progn
+             (defun on-installer-finished (process event)
+               "Callback function when uinstaller process has finished.
+We use this function to load startkit initialization file"
+               (cond
+                ((string= event "finished\n") (load-file emacs-init-file))
+                (t (message "Event %s has been ignored" event))))
+
              (set-process-sentinel shell-process 'on-installer-finished)
              (display-buffer shell-buffer)
-             (cl-loop for cmd in (funcall (cdr (assoc (intern name) startkit-info)) location)
-                      do (comint-simple-send shell-process (concat cmd "\n")))
-             (comint-simple-send shell-process "exit\n")))))
+             (cl-loop for cmd in (funcall (cdr (assoc (intern name) startkit-info))
+                                          location)
+                      do (comint-simple-send shell-process
+                                             (concat cmd "\n")))
+             (comint-simple-send shell-process
+                                 "exit\n")))))
 
 (if (not (file-exists-p emacs-init-file))
     (progn