From 00e2ae47adbf80b33cbb56cec1d31630c8c347d6 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 18 Aug 2024 21:51:20 +0200 Subject: feat(systems): install akashi system on thinkpad-x200 --- systems/akashi.scm | 54 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 systems/akashi.scm (limited to 'systems') diff --git a/systems/akashi.scm b/systems/akashi.scm new file mode 100644 index 0000000..fc62273 --- /dev/null +++ b/systems/akashi.scm @@ -0,0 +1,54 @@ +(define-module (systems akashi) + #:use-module (gnu services) ; service + #:use-module (gnu services guix) ; guix-home-service-type + #:use-module (gnu system keyboard) ; keyboard-layout + #:use-module (machines thinkpad-x200) ; bootloader-configuration* + ; file-systems* + ; firmware* + ; hardware-groups + ; initrd* + ; kernel* + ; swap-devices* + #:use-module (suweren system) ; %suweren-operating-system + #:use-module (users id1000) ; uid1000-account + ; uid1000-home-environment + ; uid1000-name + ) + +;; string +(define host-name* + "akashi") + +;; (record user-account) +(define users* + (let* ((system-groups (list "wheel")) + + (supplementary-groups* (append hardware-groups + system-groups))) + (list (uid1000-account supplementary-groups*)))) + +;; record operating-system +(define-public operating-system* + (let* ((home-environments `((,uid1000-name ,(uid1000-home-environment host-name*)))) + + (guix-home (service guix-home-service-type + home-environments)) + + (keyboard-layout* (keyboard-layout "pl")) + (services* (list guix-home)) + (timezone* "Europe/Warsaw") + (locale* "pl_PL.utf8")) + (%suweren-operating-system kernel* + (bootloader-configuration* keyboard-layout*) + keyboard-layout* + initrd* + firmware* + host-name* + (file-systems* host-name*) + (swap-devices* host-name*) + users* + timezone* + locale* + services*))) + +operating-system* -- cgit v1.2.3