Refactor into narf-init

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

init.el

@@ -99,13 +99,8 @@
 
           my-bindings
           my-commands
-          )))
+          ))
 
-(defun display-startup-echo-area-message ()
+  (narf-init))
-  (message ">>> Loaded in %s" (emacs-init-time)))
-
-(require 'server)
-(unless (server-running-p)
-  (server-start))
 
 ;;; I think so Brain...