From 3077d8d5d16b246f46c7b4b732f7c37bba1d4c56 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 24 Nov 2016 21:46:47 +0100
Subject: Add clipboard and irc widgets

---
 mowedline/.config/mowedline/init.org | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

(limited to 'mowedline')

diff --git a/mowedline/.config/mowedline/init.org b/mowedline/.config/mowedline/init.org
index b89e225..f31be02 100644
--- a/mowedline/.config/mowedline/init.org
+++ b/mowedline/.config/mowedline/init.org
@@ -1,9 +1,10 @@
+# -*- geiser-default-implementation: chicken; -*-
 #+TITLE: Mowedline init
 
 Load the =matchable= module so I can use =match-lambda=.
 
 #+BEGIN_SRC scheme
-  (use matchable)
+  (use matchable dbus)
 #+END_SRC
 
 Set the default font and color to something nicer.
@@ -117,7 +118,7 @@ Define a convenience function to add a Font Awesome icon to a widget.
     (define email-widget
       (widget:text
        #:name "email"
-       #:format (compose text-maybe-pad-both (add-fa-icon ""))))
+       #:format (compose text-maybe-pad-left (add-fa-icon ""))))
   #+END_SRC
 
 * The window
@@ -125,6 +126,20 @@ Define a convenience function to add a Font Awesome icon to a widget.
   Create a mowedline window, put it at the bottom.
 
   #+BEGIN_SRC scheme
+    (define clipboard-widget
+      (widget:text #:format text-maybe-pad-left))
+
+    (let ((ctx (make-context #:service 'org.gnome.GPaste
+                             #:interface 'org.gnome.GPaste1
+                             #:path "/org/gnome/GPaste")))
+      (register-signal-handler ctx
+                               "Update"
+                               (lambda (type replace id)
+                                 (update clipboard-widget "Text copied!")
+                                 (thread-start! (make-thread (lambda ()
+                                                               (thread-sleep! 3)
+                                                               (update clipboard-widget "")))))))
+
     (window #:position 'bottom
             #:width 1843
             #:margin-bottom 15
@@ -133,7 +148,11 @@ Define a convenience function to add a Font Awesome icon to a widget.
             #:background 'transparent
 
             taglist-widget
+
             (widget:spacer #:flex 1)
+
+            clipboard-widget
+            (widget:text #:name "irc" #:format (lambda (text) (text-maybe-pad-left (with-input-from-string text read))))
             email-widget
-            (widget:clock))
+            (widget:clock #:format text-maybe-pad-left))
   #+END_SRC
-- 
cgit v1.2.3-54-g00ecf