From 8943bbc79f85b9d2ccda581e0179bf2594213ef7 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 11 Dec 2015 02:22:53 -0500 Subject: [PATCH] Refactor narf-init --- core/core.el | 12 +----------- 1 file changed, 1 insertion(+), 11 deletions(-) diff --git a/core/core.el b/core/core.el index 07d48637c..dba72ffb4 100644 --- a/core/core.el +++ b/core/core.el @@ -138,17 +138,7 @@ (defun display-startup-echo-area-message () (after! workgroups2 - (let ((wg-list (if (wg-current-session t) - (wg-display-internal - (lambda (workgroup index) - (if (not workgroup) wg-nowg-string - (wg-element-display - workgroup - (format "%d %s" (1+ index) (wg-workgroup-name workgroup)) - 'wg-current-workgroup-p - 'wg-previous-workgroup-p))) - (wg-workgroup-list)) ""))) - (message "> Loaded in %s. %s" (emacs-init-time) wg-list)))) + (message "%s Loaded in %s" (narf/workgroup-display t t) (emacs-init-time)))) (require 'server) (unless (server-running-p)