Add brightnessctl to vali

2 files changed, 43 insertions, 34 deletions

diff --git a/.config/guix/modules/dwm/config.def.h b/.config/guix/modules/dwm/config.def.h
index 1a6c9ff..d588338 100644
--- a/.config/guix/modules/dwm/config.def.h
+++ b/.config/guix/modules/dwm/config.def.h
@@ -76,6 +76,9 @@ static char dmenumon[2] = "0"; /* component of dmenucmd, manipulated in spawn()
 static const char *dmenucmd[]    = { "dmenu_run", "-m", dmenumon, "-fn", dmenufont, "-nb", col_gray1, "-nf", col_gray3, "-sb", col_black, "-sf", col_gray4, NULL };
 static const char *termcmd[]     = { "emacsclient", "-nce", "(bd/contextual-shell)", NULL };
 static const char *slockcmd[]    = { "slock", NULL };
+/* brightness control */
+static const char *lowerbgt[]    = { "brightnessctl", "set", "5%-", NULL };
+static const char *upperbgt[]    = { "brightnessctl", "set", "5%+", NULL };
 /* sound control */
 static const char *togmute[]     = { "pactl", "set-sink-mute", "@DEFAULT_SINK@", "toggle", NULL };
 static const char *lowervol[]    = { "pactl", "set-sink-volume", "@DEFAULT_SINK@", "-4%", NULL};
@@ -102,6 +105,8 @@ static const Key keys[] = {
   { MODKEY|ShiftMask,             XK_c,      spawn,          {.v = wolfcmd } },
   { MODKEY|ShiftMask,             XK_o,      spawn,          SHCMD("xdotool type $(grep -v '^#' /home/bdunahu/Personal/scripts/bookmarks.txt | dmenu -i -l 4 | awk '{print $NF}')") },
   { MODKEY|ShiftMask,             XK_p,      spawn,          SHCMD("passmenu --type") },
+  { 0,                            XK_F2,     spawn,          {.v = lowerbgt } },
+  { 0,                            XK_F3,     spawn,          {.v = upperbgt } },
   { 0,                            XK_F6,     spawn,          {.v = togmute } },
   { 0,                            XK_F7,     spawn,          {.v = lowervol } },
   { 0,                            XK_F8,     spawn,          {.v = uppervol } },
diff --git a/.config/guix/vali.scm b/.config/guix/vali.scm
index d0af866..2d8912d 100644
--- a/.config/guix/vali.scm
+++ b/.config/guix/vali.scm
@@ -35,41 +35,45 @@
 
 
 (operating-system
-  (inherit ymir)
-  (host-name "vali")
+ (inherit ymir)
+ (host-name "vali")
 
-  ;; (all packages are system wide)
-  (packages
-   `(,@bd-base-system-packages
-     ,@bd-desktop-system-packages
-     ,@bd-mpd-package))
+ ;; (all packages are system wide)
+ (packages
+  `(,@bd-base-system-packages
+    ,@bd-desktop-system-packages
+    ,@bd-mpd-package
+    ,@(map specification->package
+           '(
+             "brightnessctl"
+	     ))))
 
-  (services
-   `(,@bd-base-system-services
-     ,@bd-desktop-system-services
-     ,@bd-mpd-service
-     ,(service guix-home-service-type
-               `(("bdunahu" ,home)))))
+ (services
+  `(,@bd-base-system-services
+    ,@bd-desktop-system-services
+    ,@bd-mpd-service
+    ,(service guix-home-service-type
+              `(("bdunahu" ,home)))))
 
-  (mapped-devices (list (mapped-device
-                         (source (uuid "8d3ccf19-035a-4956-8ba7-7c00dfa3a02c"))
-                         (target "hidden")
-                         (type luks-device-mapping))))
+ (mapped-devices (list (mapped-device
+                        (source (uuid "8d3ccf19-035a-4956-8ba7-7c00dfa3a02c"))
+                        (target "hidden")
+                        (type luks-device-mapping))))
 
-  (file-systems (cons* (file-system
-                         (mount-point "/boot/efi")
-                         (device (uuid
-                                  "8A13-7018"
-                                  'fat32))
-                         (type "vfat"))
-                       (file-system
-                         (mount-point "/home/bdunahu/Personal")
-                         (device "/dev/mapper/hidden")
-                         (type "ext4")
-                         (dependencies mapped-devices))
-                       (file-system
-                         (mount-point "/")
-                         (device (uuid
-                                  "69a3593b-12bd-40ad-a932-007674a8cfe8"
-                                  'ext4))
-                         (type "ext4")) %base-file-systems)))
+ (file-systems (cons* (file-system
+                       (mount-point "/boot/efi")
+                       (device (uuid
+                                "8A13-7018"
+                                'fat32))
+                       (type "vfat"))
+                      (file-system
+                       (mount-point "/home/bdunahu/Personal")
+                       (device "/dev/mapper/hidden")
+                       (type "ext4")
+                       (dependencies mapped-devices))
+                      (file-system
+                       (mount-point "/")
+                       (device (uuid
+                                "69a3593b-12bd-40ad-a932-007674a8cfe8"
+                                'ext4))
+                       (type "ext4")) %base-file-systems)))