From 912b1b6efe8c6f6eef55038fcfe279d136a00d44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 14 Apr 2017 11:46:22 +0200 Subject: website: news: Syntax-highlight older posts. * website/posts/guixsd-system-tests.sxml, website/posts/service-composition-in-guixsd.sxml: Use (pre (code (@ (class "language-scheme")) ...)) to get syntax highlighting. --- website/posts/service-composition-in-guixsd.sxml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'website/posts/service-composition-in-guixsd.sxml') diff --git a/website/posts/service-composition-in-guixsd.sxml b/website/posts/service-composition-in-guixsd.sxml index 349a396..499432a 100644 --- a/website/posts/service-composition-in-guixsd.sxml +++ b/website/posts/service-composition-in-guixsd.sxml @@ -101,12 +101,12 @@ (br)) (p "The API makes it easy to see how services contributed to a specific service’s configuration. For instance, the following expression shows the PAM service as extended by other declared services:" (br)) - (div (@ (class "example")) - (pre "(fold-services (operating-system-services os) \n #:target-type pam-root-service-type)\n")) + (pre (code (@ (class "language-scheme")) + "(fold-services (operating-system-services os) \n #:target-type pam-root-service-type)\n")) (p "The result is a service object whose value is a list of pam-service objects. Likewise, the following expression returns the /etc service, whose value is a list of entries to be added to /etc:" (br)) - (div (@ (class "example")) - (pre "(fold-services (operating-system-services os) \n #:target-type etc-service-type)\n")) + (pre (code (@ (class "language-scheme")) + "(fold-services (operating-system-services os) \n #:target-type etc-service-type)\n")) (p "This contrasts with the approach taken by " (a (@ (href "http://nixos.org/")) "NixOS") ", GuixSD’s cousin, and described in this " -- cgit v1.2.3