From 69697ca024f3bd13e1b3425b22a4db88ac6e2bfe Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sun, 30 Oct 2022 18:37:16 -0300
Subject: Replace greenclip with clipmenu

---
 etc/guix/home.scm | 32 ++++++++++++++++++++++++++++++--
 1 file changed, 30 insertions(+), 2 deletions(-)

(limited to 'etc/guix/home.scm')

diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index d66804e5..102ad5aa 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -21,6 +21,7 @@
   (gnu packages tmux)
   (gnu packages version-control)
   (gnu packages video)
+  (gnu packages xdisorg)
   (gnu services)
   (guix build-system trivial)
   (guix download)
@@ -209,6 +210,34 @@
    #~(job "30 0   * * *" "cronjob x update AND upgrade")
    #~(job "30 0   * * *" "cronjob backup -q cron")))
 
+(define (clipmenu-shepherd-services _config)
+  (list
+   (shepherd-service
+     (provision '(clipmenu))
+     (documentation
+       #"-
+         Shepherd service that manages clipmenu."#)
+     (start
+       #~(make-forkexec-constructor
+          (list #$(file-append clipmenu "/bin/clipmenud"))))
+     (stop #~(make-kill-destructor)))))
+
+(define clipmenu-service-type
+  (service-type
+    (name 'clipmenu)
+    (extensions
+      (list
+       (service-extension home-shepherd-service-type
+                          clipmenu-shepherd-services)
+       (service-extension home-profile-service-type
+                          (lambda _ (list clipmenu)))))
+    (default-value '())
+    (description
+      #"-
+        Service that runs clipmenu as a daemon under Shepherd.
+
+        It has no configuration."#)))
+
 (define (poweralertd-shepherd-services _config)
   (list
    (shepherd-service
@@ -454,8 +483,6 @@
             i3status
             xmessage
             dmenu
-            clipmenu
-            greenclip
             httpd ;; for htpasswd
 
             weechat
@@ -540,6 +567,7 @@
                                                    "/sh/cronjob.sh"))))))
   (services
     (list
+     (service clipmenu-service-type)
      (service poweralertd-service-type)
      (simple-service 'my-shell-profile home-shell-profile-service-type
        (list (plain-file "my-profile" ". ~/.usr/etc/sh/rc")))
-- 
cgit v1.3