TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Tweaks for mode-line display at startup time

Browse source
This commit is contained in:
syl20bnr 2015-03-12 00:25:52 -04:00
parent 9faa1542cb
commit c9e4864f50
2 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
core/core-configuration-layer.el
View file

@ -760,9 +760,6 @@ deleted safely."
;; (message "orphans: %s" orphans)
(if orphans
(progn
;; for the loading dot bar
(when dotspacemacs-loading-progress-bar
(spacemacs/append-to-buffer "OK!\n"))
(spacemacs/append-to-buffer
(format "Found %s orphan package(s) to delete...\n"
orphans-count))

6
core/core-spacemacs-buffer.el
View file

@ -95,7 +95,8 @@ buffer, right justified."
(goto-char (point-max))
(let ((buffer-read-only nil))
(insert msg)
(if messagebuf (message "(Spacemacs) %s" msg)))))
(if messagebuf (message "(Spacemacs) %s" msg)))
(setq mode-line-format "")))
(defun spacemacs/replace-last-line-of-buffer (msg &optional messagebuf)
"Replace the last line of the spacemacs buffer with MSG. If MESSAGEBUF is
@ -105,7 +106,8 @@ buffer, right justified."
(let ((buffer-read-only nil))
(delete-region (line-beginning-position) (point-max))
(insert msg)
(if messagebuf (message "(Spacemacs) %s" msg)))))
(if messagebuf (message "(Spacemacs) %s" msg)))
(setq mode-line-format "")))
(defun spacemacs/loading-animation ()
"Display LOADING-TITLE with trailing dots of max length