parent
be5b4a1200
commit
618e270eb5
|
@ -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"))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue