awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor narf-init

Browse Source
This commit is contained in:
Henrik Lissner
2015-12-11 02:22:53 -05:00
parent bc83f46349
commit 8943bbc79f
1 changed files with 1 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
core/core.el
View File

@ -138,17 +138,7 @@
(defun display-startup-echo-area-message () (defun display-startup-echo-area-message ()
(after! workgroups2 (after! workgroups2
(let ((wg-list (if (wg-current-session t) (message "%s Loaded in %s" (narf/workgroup-display t t) (emacs-init-time))))
(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))))
(require 'server) (require 'server)
(unless (server-running-p) (unless (server-running-p)