From ccb174c424ca2728c73651720d804f69c4369d53 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 1 Oct 2015 13:48:35 -0400
Subject: [PATCH] Refactor into narf-init

---
 core/core.el | 7 +++++++
 init.el      | 9 ++-------
 2 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/core/core.el b/core/core.el
index 30e47a251..12d0bb26d 100644
--- a/core/core.el
+++ b/core/core.el
@@ -128,5 +128,12 @@
     "Prevent annoying \"Active processes exist\" query when you quit Emacs."
     (flet ((process-list ())) ad-do-it)))
 
+(defun narf-init ()
+  (defun display-startup-echo-area-message ()
+    (message ">>> Loaded in %s" (emacs-init-time)))
+  (require 'server)
+  (unless (server-running-p)
+    (server-start)))
+
 (provide 'core)
 ;;; core.el ends here
diff --git a/init.el b/init.el
index a02446023..626837b1a 100644
--- a/init.el
+++ b/init.el
@@ -99,13 +99,8 @@
 
           my-bindings
           my-commands
-          )))
+          ))
 
-(defun display-startup-echo-area-message ()
-  (message ">>> Loaded in %s" (emacs-init-time)))
-
-(require 'server)
-(unless (server-running-p)
-  (server-start))
+  (narf-init))
 
 ;;; I think so Brain...