1 files changed, 29 insertions, 0 deletions
diff --git a/.config/nyxt/status.lisp b/.config/nyxt/status.lisp
new file mode 100644
index 0000000..50d2090
--- /dev/null
+++ b/.config/nyxt/status.lisp
@@ -0,0 +1,29 @@
+(in-package #:nyxt-user)
+
+(define-configuration :status-buffer
+  "Display modes as short glyphs."
+  ((glyph-mode-presentation-p t)))
+
+(define-configuration :force-https-mode ((glyph "ϕ")))
+(define-configuration :reduce-tracking-mode ((glyph "τ")))
+(define-configuration :no-script-mode ((glyph "σ")))
+(define-configuration :no-webgl-mode ((glyph "ω")))
+(define-configuration :blocker-mode ((glyph "β")))
+
+(define-configuration status-buffer
+  "Hide most of the status elements but URL and modes."
+  ((style (str:concat
+           %slot-value%
+           (theme:themed-css (theme *browser*)
+                             `("#controls,#tabs"
+                               :display none !important))))))
+
+(defmethod format-status-load-status ((status status-buffer))
+  "A fancier load status."
+  (spinneret:with-html-string
+   (:span (if (web-buffer-p (current-buffer))
+              (case (slot-value (current-buffer) 'nyxt::status)
+                    (:unloaded "∅")
+                    (:loading "∞")
+                    (:finished ""))
+            ""))))