From 0caba8f5db48c15a2c3edae37e816654246fa986 Mon Sep 17 00:00:00 2001 From: 45mg <45mg.writes@gmail.com> Date: Wed, 12 Feb 2025 15:39:22 +0530 Subject: services: network-manager: Add extra-configuration-files field. Allow users to specify additional configuration files for NetworkManager. These files will be added to /etc/NetworkManager/conf.d (NetworkManager's default configuration directory location). * gnu/services/networking.scm () [extra-configuration-files]: New field. (network-manager-activation): Honor the new field. * doc/guix.texi (Networking Setup): Document the new field. Change-Id: I07479958e4d0aa318328c666a9630b779230b300 Modified-by: Maxim Cournoyer Signed-off-by: Maxim Cournoyer --- gnu/services/networking.scm | 14 ++++++++++++-- 1 file changed, 12 insertions(+), 2 deletions(-) (limited to 'gnu/services') diff --git a/gnu/services/networking.scm b/gnu/services/networking.scm index af28bd0626..b9a5bef5d8 100644 --- a/gnu/services/networking.scm +++ b/gnu/services/networking.scm @@ -23,6 +23,7 @@ ;;; Copyright © 2023 Bruno Victal ;;; Copyright © 2023 muradm ;;; Copyright © 2024 Nigko Yerden +;;; Copyright © 2025 45mg <45mg.writes@gmail.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -1253,18 +1254,27 @@ (define-record-type* (default '())) (iwd? network-manager-configuration-iwd? ; TODO: deprecated field, remove. (default #f) - (sanitize warn-iwd?-field-deprecation))) + (sanitize warn-iwd?-field-deprecation)) + (extra-configuration-files + network-manager-configuration-extra-configuration-files + (default '()))) ;'((file-name-string file-like-object) ...) (define (network-manager-activation config) ;; Activation gexp for NetworkManager (match-record config - (network-manager dns vpn-plugins) + (network-manager dns vpn-plugins extra-configuration-files) #~(begin (use-modules (guix build utils)) (mkdir-p "/etc/NetworkManager/system-connections") #$@(if (equal? dns "dnsmasq") ;; create directory to store dnsmasq lease file '((mkdir-p "/var/lib/misc")) + '()) + #$@(if (pair? extra-configuration-files) ;if non-empty + `((symlink + ,(file-union "network-manager-configuration-directory" + extra-configuration-files) + "/etc/NetworkManager/conf.d")) '())))) (define (vpn-plugin-directory plugins) -- cgit v1.2.3