diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-07-15 14:11:37 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2025-07-15 14:11:37 +0200 |
| commit | 82a3d8b78629c66ebe2c0ace462d32532ac30e9f (patch) | |
| tree | ad220764a17a66a0e662dce62bb929397bc19fb9 /deployment | |
| parent | 5d59771818bcd7bbe22c63ac37ef05a6308817e7 (diff) | |
[0] akashi: use the staging branch of Deployment channel
Akashi system needs to have fan control enabled and customized.
By default, the firmware fails to adequately cool the computer which results in thermal throttling.
-----
The goal is to have the laptop fan run at full throttle at all times, regardless of CPU temeperature.
-----
[ ] Enable fan control in thinkpad_acpi module.
[ ] Set fan speed to full throttle.
-----
This commit configures a custom guix configuration for Akashi system in order to set up a testing loop with a staging branch.
Additional modules need to be imported in order to facilitate this change.
-----
Akashi system will now pull the staging branch of Deployment channel during updates.
Diffstat (limited to 'deployment')
| -rw-r--r-- | deployment/systems/akashi.scm | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/deployment/systems/akashi.scm b/deployment/systems/akashi.scm index dc0545f..3c22344 100644 --- a/deployment/systems/akashi.scm +++ b/deployment/systems/akashi.scm @@ -3,9 +3,12 @@ (define-module (deployment systems akashi) #:use-module ((gnu packages linux) #:prefix gnu:packages:linux:) + #:use-module ((gnu services) #:prefix gnu:services:) + #:use-module ((gnu services base) #:prefix gnu:services:base:) #:use-module ((gnu services guix) #:prefix gnu:services:guix:) #:use-module ((gnu system) #:prefix gnu:system:) #:use-module ((machines thinkpad-x200) #:prefix machines:thinkpad-x200:) + #:use-module ((sovereign channels) #:prefix sovereign:channels:) #:use-module ((sovereign systems) #:prefix sovereign:systems:) #:use-module (users id1000)) @@ -29,13 +32,27 @@ ((@ (gnu system keyboard) keyboard-layout) "pl")) +(define (guix-configuration record) + (gnu:services:base:guix-configuration + (inherit record) + (channels (list sovereign:channels:default-guix-channel + sovereign:channels:deployment-channel-staging + sovereign:channels:distribution-channel + sovereign:channels:nonguix-channel + sovereign:channels:sovereign-channel)))) + +(define %sovereign-services* + (gnu:services:modify-services sovereign:systems:%sovereign-services + (gnu:services:base:guix-service-type + record => (guix-configuration record)))) + (define (services) (use-modules (suweren system)) (let* ((home-environments `((,uid1000-name ,uid1000-home-environment))) (guix-home ((@ (gnu services) service) gnu:services:guix:guix-home-service-type home-environments))) - (append sovereign:systems:%sovereign-services + (append %sovereign-services* (list guix-home ((@ (gnu services base) udev-rules-service) 'adb-udev |