summaryrefslogtreecommitdiff
path: root/os/custom/caps-brightness.scm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--os/custom/caps-brightness.scm31
1 files changed, 31 insertions, 0 deletions
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))))