89b524ab58
This patch moves Guile modules shipped as a Guix channel under the modules directory. The rationale behind this is that we are probably adding unwanted files into Guile's load path, such as the news file and possible scripts that could be added to the channel repository in the future. * guix-channel (channel): Set directory field. * nongnu/*: Move under modules/nongnu. * nonguix/*: Move under modules/nonguix.
65 lines
2.7 KiB
Scheme
65 lines
2.7 KiB
Scheme
;;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
;;; Copyright © 2022, 2024 Hilton Chain <hako@ultrarare.space>
|
|
|
|
(define-module (nongnu services nvidia)
|
|
#:use-module (guix gexp)
|
|
#:use-module (guix records)
|
|
#:use-module (gnu packages)
|
|
#:use-module (gnu packages linux)
|
|
#:use-module (gnu services)
|
|
#:use-module (gnu services base)
|
|
#:use-module (gnu services linux)
|
|
#:use-module (gnu services shepherd)
|
|
#:use-module (nongnu packages nvidia)
|
|
#:export (nvidia-configuration
|
|
nvidia-configuration?
|
|
nvidia-configuration-record?
|
|
nvidia-service-type))
|
|
|
|
(define-record-type* <nvidia-configuration>
|
|
nvidia-configuration make-nvidia-configuration
|
|
nvidia-configuration?
|
|
(driver nvidia-configuration-driver
|
|
(default nvda)) ; file-like
|
|
(firmware nvidia-configuration-firmware
|
|
(default nvidia-firmware)) ; file-like
|
|
(module nvidia-configuration-module
|
|
(default nvidia-module))) ; file-like
|
|
|
|
(define (nvidia-shepherd-service config)
|
|
(let* ((nvidia-driver (nvidia-configuration-driver config))
|
|
(nvidia-smi (file-append nvidia-driver "/bin/nvidia-smi")))
|
|
(list (shepherd-service
|
|
(documentation "Prepare system environment for NVIDIA driver.")
|
|
(provision '(nvidia))
|
|
(requirement '(udev))
|
|
(one-shot? #t)
|
|
(modules '(((guix build utils) #:select (invoke/quiet))
|
|
((rnrs io ports) #:select (get-line))))
|
|
(start
|
|
#~(lambda _
|
|
(when (file-exists? "/proc/driver/nvidia")
|
|
(let ((modprobe (call-with-input-file
|
|
"/proc/sys/kernel/modprobe" get-line)))
|
|
(false-if-exception
|
|
(begin
|
|
(invoke/quiet modprobe "--" "nvidia_uvm")
|
|
(invoke/quiet #$nvidia-smi)))))))))))
|
|
|
|
(define nvidia-service-type
|
|
(service-type
|
|
(name 'nvidia)
|
|
(extensions
|
|
(list (service-extension shepherd-root-service-type
|
|
nvidia-shepherd-service)
|
|
(service-extension profile-service-type
|
|
(compose list nvidia-configuration-driver))
|
|
(service-extension udev-service-type
|
|
(compose list nvidia-configuration-driver))
|
|
(service-extension firmware-service-type
|
|
(compose list nvidia-configuration-firmware))
|
|
(service-extension linux-loadable-module-service-type
|
|
(compose list nvidia-configuration-module))))
|
|
(default-value (nvidia-configuration))
|
|
(description "Prepare system environment for NVIDIA driver.")))
|