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