From d555a9c6bb8f224ac32f3d26c482fa78d3891511 Mon Sep 17 00:00:00 2001
From: Marc Coquand <marc@mccd.space>
Date: Tue, 26 Nov 2024 11:05:50 +0200
Subject: .

---
 os/custom/caps-brightness.scm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 os/custom/caps-brightness.scm

(limited to 'os/custom/caps-brightness.scm')

diff --git a/os/custom/caps-brightness.scm b/os/custom/caps-brightness.scm
new file mode 100644
index 0000000..dbae748
--- /dev/null
+++ b/os/custom/caps-brightness.scm
@@ -0,0 +1,31 @@
+(define-module (caps-brightness)
+  #:use-module (guix gexp)
+  #:use-module (guix packages)
+  #:use-module (guix build-system trivial)
+  #:use-module (gnu packages bash))
+
+(define-public caps-brightness
+  (let ((script-name "caps-brightness"))
+    (package
+     (name script-name)
+     (version "0.1")
+     (source (local-file "/home/mccd/system/os/custom/caps-brightness"))
+     (build-system trivial-build-system)
+     (arguments
+      `(#:modules ((guix build utils))
+	#:builder
+	(begin
+          (use-modules (guix build utils))
+          (let* ((bin-dir  (string-append %output "/bin"))
+                 (bin-file (string-append bin-dir "/" ,script-name))
+                 (bash-bin (string-append (assoc-ref %build-inputs "bash")
+                                          "/bin")))
+            (mkdir-p bin-dir)
+            (copy-file (assoc-ref %build-inputs "source") bin-file)
+            (patch-shebang bin-file (list bash-bin))
+            (chmod bin-file #o555)))))
+     (inputs `(("bash" ,bash)))
+     (home-page #f)
+     (synopsis "Set capslock brightness to $1")
+     (description "Set capslock brightness to $1")
+     (license #f))))
-- 
cgit v1.2.3