From b6c2589eae30877cc5e362e06f3d480a0aee2e81 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.com>
Date: Fri, 5 May 2023 16:38:48 +0300
Subject: remove old files

---
 .config/nyxt/statusline.lisp | 73 --------------------------------------------
 1 file changed, 73 deletions(-)
 delete mode 100755 .config/nyxt/statusline.lisp

(limited to '.config/nyxt/statusline.lisp')

diff --git a/.config/nyxt/statusline.lisp b/.config/nyxt/statusline.lisp
deleted file mode 100755
index a90527e..0000000
--- a/.config/nyxt/statusline.lisp
+++ /dev/null
@@ -1,73 +0,0 @@
-;; (in-package #:nyxt-user)
-
-;; ;; Set StatusLines Mode Icons
-;; (define-configuration status-buffer ((glyph-mode-presentation-p t)))
-;; (define-configuration nyxt/force-https-mode:force-https-mode ((glyph "")))
-;; (define-configuration nyxt/blocker-mode:blocker-mode ((glyph "")))
-;; (define-configuration nyxt/proxy-mode:proxy-mode ((glyph "")))
-;; (define-configuration nyxt/reduce-tracking-mode:reduce-tracking-mode  ((glyph "")))
-;; (define-configuration nyxt/certificate-exception-mode:certificate-exception-mode ((glyph "")))
-;; (define-configuration nyxt/style-mode:style-mode ((glyph "")))
-;; (define-configuration nyxt/help-mode:help-mode ((glyph "")))
-;; (define-configuration nyxt/web-mode:web-mode ((glyph "ω")))
-;; (define-configuration nyxt/auto-mode:auto-mode ((glyph "α")))
-
-;;Set StatusLines URL Icons
-(defun laconic-format-status-load-status (buffer)
- (if (web-buffer-p buffer)
-     (case (slot-value buffer 'nyxt::load-status)
-       (:unloaded "∅")
-       (:loading "∞")
-       (:finished ""))
-     ""))
-
-;;Remove https/www from URL
-(defun laconic-format-status-url (buffer)
- (markup:markup
-  (:span
-      (format nil "~a ~a"
-              (laconic-format-status-load-status buffer)
-              (ppcre:regex-replace-all
-               "(https://|www\\.|/$)"
-               (render-url (url buffer))
-               "")))))
-
-;;Set StatusLines Webpage Loadtime
-(defun laconic-format-status-modes (buffer window)
- (str:concat
-  (format-status-modes buffer window)
-  " | "
-  (format nil "~d:~d"
-          (mod (+ 5 (local-time:timestamp-hour (local-time:now))) 24)
-          (local-time:timestamp-minute (local-time:now)))))
-
-;;Configure StatusLines Design
-(defun laconic-format-status (window)
- (flet ((input-indicating-background ()
-          (format nil "background-color: ~:[#50fa7b~;#ff5555~]"
-                  (or (current-mode 'vi-insert)
-                      (current-mode 'input-edit)))))
-   (let ((buffer (current-buffer window)))
-     (markup:markup
-      (:div :id "container"
-            (:div :id "controls"
-                  :style (input-indicating-background)
-                  (markup:raw ""))
-            (:div :class "arrow arrow-right"
-                  :style (input-indicating-background) "")
-            (:div :id "url"
-                  (markup:raw
-                   (laconic-format-status-url buffer)))
-            (:div :class "arrow arrow-right"
-                  :style "background-color:#21222C" "")
-            (:div :id "tabs"
-                  (title buffer))
-            (:div :class "arrow arrow-left"
-                  :style "background-color:#21222C" "")
-            (:div :id "modes"
-                  :title (nyxt::list-modes buffer)
-                  (laconic-format-status-modes buffer window)))))))
-
-;;Define Current Configuration
-(define-configuration window
- ((status-formatter #'laconic-format-status)))
-- 
cgit v1.2.3