From e421dc63ae7147bd8eef2147b0fbca593a25e1f0 Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Thu, 13 Oct 2022 20:45:32 -0700
Subject: Add shutdown-rofi script

---
 oni/home/config/common.scm    | 3 ++-
 oni/home/config/data.scm      | 6 ++++--
 oni/home/config/rincewind.scm | 4 +++-
 3 files changed, 9 insertions(+), 4 deletions(-)

(limited to 'oni/home')

diff --git a/oni/home/config/common.scm b/oni/home/config/common.scm
index d1c946e..ddb6d86 100644
--- a/oni/home/config/common.scm
+++ b/oni/home/config/common.scm
@@ -30,7 +30,8 @@
   (service home-xbindkeys-service-type
            (home-xbindkeys-configuration
             (keybindings
-             '(((mod4 k) . "hersbtclient close")
+             '(((mod4 q) . "shutdown-rofi")
+               ((mod4 k) . "hersbtclient close")
                ((mod4 mod1 k) . "herbstclient remove")
                ((mod4 Return) . "herbstclient spawn kitty")
                ((mod4 t) . "herbstclient spawn hlwm-run-or-raise \"\\(URxct\\|Hyper\\|kitty\\)\" kitty")
diff --git a/oni/home/config/data.scm b/oni/home/config/data.scm
index 18d5108..97d5e4f 100644
--- a/oni/home/config/data.scm
+++ b/oni/home/config/data.scm
@@ -23,14 +23,16 @@
   #:use-module (oni home services environment)
   #:use-module (oni packages hlwm-run-or-raise)
   #:use-module (oni packages pick-random-wallpaper)
-  #:use-module (oni home config common))
+  #:use-module (oni home config common)
+  #:use-module (oni packages shutdown-rofi))
 
 (home-environment
  (packages (list (specification->package+output "glibc-locales")
                  (specification->package+output "font-fantasque-sans")
                  (specification->package+output "font-comic-neue")
                  hlwm-run-or-raise
-                 pick-random-wallpaper))
+                 pick-random-wallpaper
+                 shutdown-rofi))
 
  (services
   (list
diff --git a/oni/home/config/rincewind.scm b/oni/home/config/rincewind.scm
index be107da..c093f66 100644
--- a/oni/home/config/rincewind.scm
+++ b/oni/home/config/rincewind.scm
@@ -31,7 +31,8 @@
   #:use-module (oni packages inbox-size)
   #:use-module (oni packages notmuch-collect-tasks)
   #:use-module (oni packages notmuch-tag-mailinglists)
-  #:use-module (oni packages pick-random-wallpaper))
+  #:use-module (oni packages pick-random-wallpaper)
+  #:use-module (oni packages shutdown-rofi))
 
 (define (with-master-branch package)
   "Apply a transformation to PACKAGE so that it uses the master branch."
@@ -50,6 +51,7 @@
                  notmuch-tag-mailinglists
                  (inbox-size emacs-next)
                  count-emails
+                 shutdown-rofi
                  emacs-org-roam
                  emacs-vterm
                  fakeroot               ; Needed for build arch packages
-- 
cgit v1.2.3-54-g00ecf