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

nyxt: Disable custom status bar. 

New bar works well enough for my needs.
master
Pierre Neidhardt 2021-07-21 09:23:38 +02:00
parent be5b4a1200
commit 618e270eb5
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
.config/nyxt/init.lisp
View File

@ -264,34 +264,34 @@ format."
(|.button:hover| (|.button:hover|
:color "black")))) :color "black"))))
(defun my-format-status (window) ;; (defun my-format-status (window)
(let ((buffer (current-buffer window))) ;; (let ((buffer (current-buffer window)))
(if (or (internal-buffer-p buffer) ;; (if (or (internal-buffer-p buffer)
(find-submode buffer 'proxy-mode)) ;; (find-submode buffer 'proxy-mode))
(setf (style (status-buffer window)) ;; (setf (style (status-buffer window))
(my-status-style)) ;; (my-status-style))
(setf (style (status-buffer window)) ;; (setf (style (status-buffer window))
(my-status-style :mode-background-color "rgb(255,0,0)"))) ;; (my-status-style :mode-background-color "rgb(255,0,0)")))
(markup:markup ;; (markup:markup
(:div :id "container" ;; (:div :id "container"
(:div :id "controls" ;; (:div :id "controls"
(markup:raw (format-status-buttons))) ;; (markup:raw (format-status-buttons)))
(:div :class "arrow arrow-right" ;; (:div :class "arrow arrow-right"
:style "background-color:rgb(80,80,80)" "") ;; :style "background-color:rgb(80,80,80)" "")
(:div :id "url" ;; (:div :id "url"
(markup:raw ;; (markup:raw
(format-status-load-status buffer) ;; (format-status-load-status buffer)
(format-status-url buffer))) ;; (format-status-url buffer)))
(:div :class "arrow arrow-left" ;; (:div :class "arrow arrow-left"
:style "background-color:rgb(220,120,120);background-color:rgb(120,120,120)" "") ;; :style "background-color:rgb(220,120,120);background-color:rgb(120,120,120)" "")
(:div :id "modes" ;; (:div :id "modes"
(format-status-modes buffer window)))))) ;; (format-status-modes buffer window))))))
;; (define-configuration status-buffer ;; (define-configuration status-buffer
;; ((glyph-mode-presentation-p t))) ;; ((glyph-mode-presentation-p t)))
(define-configuration window ;; (define-configuration window
((status-formatter #'my-format-status))) ;; ((status-formatter #'my-format-status)))
(load-after-system :slynk (nyxt-init-file "slynk.lisp")) (load-after-system :slynk (nyxt-init-file "slynk.lisp"))