From 632d4ccc0bcb9d73226edeb32264c74fc50867ab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 21 Jul 2022 18:19:10 +0200 Subject: [PATCH] read-print: Add System and Home special forms. * guix/read-print.scm (%special-forms): Add System and Home forms. (%newline-forms): Add 'services'. --- guix/read-print.scm | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/guix/read-print.scm b/guix/read-print.scm index 69ab8ac8b3..949a713ca2 100644 --- a/guix/read-print.scm +++ b/guix/read-print.scm @@ -156,7 +156,6 @@ ('unless 2) ('package 1) ('origin 1) - ('operating-system 1) ('modify-inputs 2) ('modify-phases 2) ('add-after '(((modify-phases) . 3))) @@ -167,7 +166,22 @@ ('call-with-input-file 2) ('call-with-output-file 2) ('with-output-to-file 2) - ('with-input-from-file 2))) + ('with-input-from-file 2) + ('with-directory-excursion 2) + + ;; (gnu system) and (gnu services). + ('operating-system 1) + ('bootloader-configuration 1) + ('mapped-device 1) + ('file-system 1) + ('swap-space 1) + ('user-account 1) + ('user-group 1) + ('setuid-program 1) + ('modify-services 2) + + ;; (gnu home). + ('home-environment 1))) (define %newline-forms ;; List heads that must be followed by a newline. The second argument is @@ -180,7 +194,11 @@ ('git-reference '(uri origin source)) ('search-paths '(package)) ('native-search-paths '(package)) - ('search-path-specification '()))) + ('search-path-specification '()) + + ('services '(operating-system)) + ('set-xorg-configuration '()) + ('services '(home-environment)))) (define (prefix? candidate lst) "Return true if CANDIDATE is a prefix of LST."