mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

nyxt: Update my-format-status.

master
Pierre Neidhardt 2020-07-11 20:22:27 +02:00
parent 39a902d385
commit 46630ac650
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
.config/nyxt/init.lisp
View File

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