From d9e602e4128a8aaae39ba81296f7042bc2545053 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 13 Oct 2021 17:58:04 -0500 Subject: I told myself I'd have useful commit messages today Apparently I lied. --- lisp/acdw-modeline.el | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'lisp/acdw-modeline.el') diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index d9b1c8b..0dc23ff 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el @@ -87,10 +87,16 @@ Otherwise, cdr should be a function that takes two points (see `count-words')." (defun acdw-modeline/nyan-cat () "Display the nyan cat from function `nyan-mode' in the mode-line." - (when (and (bound-and-true-p nyan-mode) - (eq (bound-and-true-p actually-selected-window) - (get-buffer-window))) - '(" " (:eval (list (nyan-create)))))) + (when (bound-and-true-p nyan-mode) + (if (eq (bound-and-true-p actually-selected-window) + (get-buffer-window)) + '(" " (:eval (list (nyan-create)))) + `(:propertize " " + display + (space ;; pixel perfect babeeeee + . (:width (,(+ 9 (* 8 (or + (bound-and-true-p nyan-bar-length) + 20)))))))))) (defun acdw-modeline/modified () ; modified from `simple-modeline' "Displays a color-coded buffer modification/read-only -- cgit 1.4.1-21-gabe81