Add email widget to mowedline

dotfiles.mk

@@ -1,9 +1,13 @@
 EMACS = /usr/bin/emacs
+SCHEME_IMPLEMENTATION = guile
 
 define tangle =
+	echo $(SCHEME_IMPLEMENTATION)
 	@echo -e "\e[35mOBT\e[0m" $<
 	@$(EMACS) -batch \
         -eval "(package-initialize)" \
         -load ob-tangle \
+        -eval "(setq sh-make-vars-local nil)" \
+        -eval "(setq geiser-default-implementation '$(SCHEME_IMPLEMENTATION))" \
         -eval "(org-babel-tangle-file \"$<\" \"$(notdir $@)\" \"$(1)\")"
 endef

mowedline/.config/mowedline/init.org

@@ -1,3 +1,5 @@
+#+TITLE: Mowedline init
+
 Load the =matchable= module so I can use =match-lambda=.
 
 #+BEGIN_SRC scheme
@@ -11,41 +13,73 @@ Set the default font and color to something nicer.
   (text-widget-color "#ededed")
 #+END_SRC
 
-This formatter will parse the herbstluftwm tag status line, which
+Define a convenience function to check if a formatter's argument is
-looks like this:
+not some text.
-
-#+BEGIN_EXAMPLE
-  #1  -2  :3  :4  :5  .6  .7  .8  .9
-#+END_EXAMPLE
-
-And turn it into something more useful. The symbols before the tag
-names (numbers) have the following meaning:
-
-- =#= :: This tag is currently active.
-- =-= :: This tag is visible on another monitor.
-- =:= :: This tag isn't displayed, but has windows on it.
-- =.= :: This tag isn't displayed and is empty.
-- =!= :: This tag has an urgent window on it.
-
-First the tag line has to be split into separate parts. Each tag
-status/name pair is split by a tab character and each status is only
-one character. So I split the whole string on tabs and then make a
-list out of each individual part, for easy access to the status
-character. So we end up with something like:
-
-#+BEGIN_EXAMPLE
-  ((#\# #\1) (#\- #\2) (#\: #\3) ...)
-#+END_EXAMPLE
 
 #+BEGIN_SRC scheme
-  (define (split-tag-list str)
+  (define (not-text? text)
-    (map string->list (string-split str "\t")))
+    (or (null? text) (and (not (pair? text)) (string-null? text))))
 #+END_SRC
 
-Next we turn each part into something practical for display in
+Define a convenience function that adds spaces around its argument if
-mowedline.
+its argument is text.
 
 #+BEGIN_SRC scheme
+  (define (text-maybe-pad-both text)
+    (if (not-text? text)
+        text
+        (list " " text " ")))
+#+END_SRC
+
+Define a convenience function to add a Font Awesome icon to a widget.
+
+#+BEGIN_SRC scheme
+  (define (add-fa-icon icon)
+    (lambda (text)
+      (if (not-text? text)
+          text
+          (list (list 'font "FontAwesome-10"
+                      (string-append " " icon " "))
+                text))))
+#+END_SRC
+
+* Tag list
+
+  This formatter will parse the herbstluftwm tag status line, which
+  looks like this:
+
+  #+BEGIN_EXAMPLE
+    #1  -2  :3  :4  :5  .6  .7  .8  .9
+  #+END_EXAMPLE
+
+  And turn it into something more useful. The symbols before the tag
+  names (numbers) have the following meaning:
+
+  - =#= :: This tag is currently active.
+  - =-= :: This tag is visible on another monitor.
+  - =:= :: This tag isn't displayed, but has windows on it.
+  - =.= :: This tag isn't displayed and is empty.
+  - =!= :: This tag has an urgent window on it.
+
+  First the tag line has to be split into separate parts. Each tag
+  status/name pair is split by a tab character and each status is only
+  one character. So I split the whole string on tabs and then make a
+  list out of each individual part, for easy access to the status
+  character. So we end up with something like:
+
+  #+BEGIN_EXAMPLE
+    ((#\# #\1) (#\- #\2) (#\: #\3) ...)
+  #+END_EXAMPLE
+
+  #+BEGIN_SRC scheme
+    (define (split-tag-list str)
+      (map string->list (string-split str "\t")))
+  #+END_SRC
+
+  Next we turn each part into something practical for display in
+  mowedline.
+
+  #+BEGIN_SRC scheme
     (define tag-display
       (match-lambda
        ((#\# . name-list)
@@ -58,19 +92,39 @@ mowedline.
 
     (define (tag-list-display tag-list)
       (map tag-display tag-list))
-#+END_SRC
+  #+END_SRC
 
-Finally, bring it all together in a function that can be used as a
+  Finally, bring it all together in a function that can be used as a
-mowedline text formatter.
+  mowedline text formatter.
 
-#+BEGIN_SRC scheme
+  #+BEGIN_SRC scheme
     (define (tag-list-formatter text)
       (tag-list-display (split-tag-list text)))
-#+END_SRC
+  #+END_SRC
 
-Create a mowedline window, put it at the bottom.
+  Define the widget to be used in the window.
 
-#+BEGIN_SRC scheme
+  #+BEGIN_SRC scheme
+    (define taglist-widget
+      (widget:text #:name "taglist" #:format tag-list-formatter))
+  #+END_SRC
+
+* Email
+
+  Define a widget to show email notifications in.
+
+  #+BEGIN_SRC scheme
+    (define email-widget
+      (widget:text
+       #:name "email"
+       #:format (compose text-maybe-pad-both (add-fa-icon ""))))
+  #+END_SRC
+
+* The window
+
+  Create a mowedline window, put it at the bottom.
+
+  #+BEGIN_SRC scheme
     (window #:position 'bottom
             #:width 1843
             #:margin-bottom 15
@@ -78,7 +132,8 @@ Create a mowedline window, put it at the bottom.
             #:margin-right 15
             #:background 'transparent
 
-          (widget:text #:name "taglist" #:format tag-list-formatter)
+            taglist-widget
             (widget:spacer #:flex 1)
+            email-widget
             (widget:clock))
-#+END_SRC
+  #+END_SRC

mowedline/GNUmakefile

@@ -2,5 +2,6 @@ include ../dotfiles.mk
 
 all: .config/mowedline/init.scm
 
+%.scm: SCHEME_IMPLEMENTATION = chicken
 %.scm: %.org
 	$(call tangle,scheme)