Remove commented functions

1 files changed, 0 insertions, 36 deletions

diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm
index 524f667..c742151 100644
--- a/mowedline/.config/mowedline/init.scm
+++ b/mowedline/.config/mowedline/init.scm
@@ -3,42 +3,6 @@
       text
       (string-append " " text)))
 
-;; (define (buttonize-workspaces text)
-;;   (cons
-;;    (if (string-prefix? "[" text) "" " ")
-;;    (fold
-;;     (lambda (token markup)
-;;       (cons
-;;        " "
-;;        (cons
-;;         (cond
-;;          ((string-prefix? "#" token) ;; current owrkspace
-;;           token)
-;;          ((string-prefix? "!" token) ;; urgency notification
-;;           (let ((ws (string-drop token 1)))
-;;             `(button (lambda () (switch-to-desktop ,ws))
-;;                      (color (1 0 0 1) ,ws))))
-;;          (else
-;;           `(button (lambda () (switch-to-desktop ,token))
-;;                    ,token)))
-;;         markup)))
-;;     '()
-;;     (reverse (string-tokenize text)))))
-
-;; (define (colorize-clock text)
-;;   (list
-;;    " "
-;;    (let ((m (string-match
-;;              '(: (submatch (* any))
-;;                  (submatch numeric numeric ":" numeric numeric)
-;;                  (submatch (* any)))
-;;              text)))
-;;      (cond
-;;       (m (set! (third m) `(color (.73 .73 .81 1) ,(third m)))
-;;          (cdr m))
-;;       (else text)))
-;;    " "))
-
 (text-widget-font "Fantasque Sans Mono-10:bold")
 (text-widget-color "#bfbfbf")
 (text-widget-format string-maybe-pad-left)