ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Remove commented functions

Browse source
This commit is contained in:
Tom Willemse 2015-06-17 10:59:48 +02:00
parent a12a5ed261
commit 609a0e2ddb
1 changed files with 0 additions and 36 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
mowedline/.config/mowedline/init.scm
View file

@ -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)