diff --git a/.config/nyxt/init.lisp b/.config/nyxt/init.lisp index 3c6f13f9..b2205113 100644 --- a/.config/nyxt/init.lisp +++ b/.config/nyxt/init.lisp @@ -203,11 +203,10 @@ format." "~/.local/share/emacs/site-lisp")) (defun my-format-status (window) - (declare (ignore window)) - (let* ((buffer (current-buffer)) + (let* ((buffer (current-buffer window)) (buffer-count (1+ (or (position buffer (sort (buffer-list) - #'< + #'string< :key #'id)) 0)))) (str:concat @@ -217,11 +216,15 @@ format." (str:downcase (class-name (class-of m))))) (modes buffer))))) - (format nil " (~a/~a) ~a — ~a" + (format nil " (~a/~a) " buffer-count - (length (buffer-list)) - (object-display (url buffer)) - (title buffer))))) + (length (buffer-list))) + (format nil "~a~a — ~a" + (if (eq (slot-value buffer 'load-status) :loading) + "(Loading) " + "") + (object-display (url buffer)) + (title buffer))))) (define-configuration window ((status-formatter #'my-format-status)))