diff --git a/.config/nyxt/init.lisp b/.config/nyxt/init.lisp index ee2bbaff..0bc6c68d 100644 --- a/.config/nyxt/init.lisp +++ b/.config/nyxt/init.lisp @@ -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"))