From aabcb90780ed014c600c9482b5f274b4d1abffbc Mon Sep 17 00:00:00 2001
From: Tom Willemse <tom@ryuslash.org>
Date: Mon, 1 Jun 2015 21:18:38 +0200
Subject: [PATCH] Add mowedline configuration

---
 mowedline/.config/mowedline/init.scm | 81 ++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 mowedline/.config/mowedline/init.scm

diff --git a/mowedline/.config/mowedline/init.scm b/mowedline/.config/mowedline/init.scm
new file mode 100644
index 0000000..946114d
--- /dev/null
+++ b/mowedline/.config/mowedline/init.scm
@@ -0,0 +1,81 @@
+(define (string-maybe-pad-left text)
+  (if (string-null? text)
+      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)
+(widget-background-color "#111111")
+
+(make <window>
+  'position 'bottom
+  'width 1920
+  'widgets
+  (L ;; (make <text-widget>
+     ;;   'name "workspaces"
+     ;;   'format buttonize-workspaces)
+     ;; (make <flags>
+     ;;   'name "wmflags"
+     ;;   'color '(.53 .53 .53 1)
+     ;;   'flags '(("tabbed" . (color "paleturquoise3" "T"))
+     ;;            ("float" . (color "firebrick3" "f"))
+     ;;            ("inverse" . (color "cornflowerblue" "v"))
+     ;;            ("magnifier" . (color "forestgreen" "m"))))
+     (make <text-widget>
+       'name "title"
+       'color '(.4 .4 .4 1)
+       'flex 1
+       'text "drd")
+     ;; (make <text-widget>
+     ;;   'name "rss-icon"
+     ;;   'font "FontAwesome-10"
+     ;;   'text " ")
+     ;; (make <text-widget> 'name "rss")
+     (make <flags>
+       'name "keychain"
+       'font "FontAwesome-10"
+       'flags '(("Unlocked" . "")
+                ("Locked" . ""))
+       'format identity)
+     (make <text-widget>
+       'name "email"
+       'format (lambda (text)
+                 (list '(font "FontAwesome-10" "  ") text)))
+     (make <clock>)))