37/66: programming-2022: Improve rendering of in-line 'prog'.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository maintenance.

commit c5393d3109cb850738d3c8640c3303352e193cc4
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sat Jan 29 15:44:07 2022 +0100

    programming-2022: Improve rendering of in-line 'prog'.
    
    * doc/programming-2022/supply-chain.skb: Define "inline" class for
    'prog' and use it instead of "small".
---
 doc/programming-2022/supply-chain.skb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/doc/programming-2022/supply-chain.skb 
b/doc/programming-2022/supply-chain.skb
index 2630928..196b25a 100644
--- a/doc/programming-2022/supply-chain.skb
+++ b/doc/programming-2022/supply-chain.skb
@@ -109,16 +109,16 @@
 
 
   (markup-writer 'prog latex
-     :class "small"
+     :class "inline"
      :options '(:line :mark)
-     :before "\n\n\n\\begin{scriptsize}\n"
+     :before "\n\n\\blockquote{\n"
      :action (lambda (n e)
                ;; Delegate actual work to the "real" 'prog'.
                (output (prog :line (markup-option n :line)
                             :mark (markup-option n :mark)
                             (node-body n))
                       e))
-     :after "\n\\end{scriptsize}\n")
+     :after "\n}\n\n")
 
   (markup-writer 'figure latex
      :options '(:legend :number :multicolumns)
@@ -770,7 +770,7 @@ place.])
 commits of the channels used by ,(tt [guix pull]).  The ,(tt [guix
 describe]) command prints that information:]
 
-     (prog :class "small" :line #f [
+     (prog :line #f :class "inline" [
 $ guix describe
 Generation 201  Jan 12 2022 18:15:13    (current)
   guix 0052c3b
@@ -816,9 +816,9 @@ hide from developers, which makes the attack less 
attractive.])
 When deploying a system with ,(tt [guix system reconfigure]) or a fleet
 or systems with ,(tt [guix deploy]), the currently used channels are
 recorded in the deployed system, as can be seen by running ,(tt [guix
-system describe]):]
+system describe]):])
        
-       (prog :class "small" :line #f [
+       (prog :line #f :class "inline" [
 $ guix system describe
 Generation 161 Apr 27 2021 22:04:13    (current)
   file name: /var/guix/profiles/system-161-link
@@ -835,7 +835,7 @@ Generation 161      Apr 27 2021 22:04:13    (current)
   configuration file: /gnu/store/m8rql…-configuration.scm
 ])
        
-       [This is useful information for users who wish to map a deployed
+       (p [This is useful information for users who wish to map a deployed
 system back to its source code.  We take advantage of that information
 to implement ,(emph [system downgrade prevention]): like ,(tt [guix
 pull]), deploying a system with ,(tt [guix system reconfigure]) or ,(tt
@@ -853,7 +853,7 @@ refer to mirrors of the official Git repository of Guix.  
If the official reposi
 ,(tt [git.savannah.gnu.org]) is down, one can still update by fetching
 from a mirror, for instance with:]
 
-    (prog :line #f :class "small" [
+    (prog :line #f :class "inline" [
 guix pull --url=https://github.com/guix-mirror/guix
 ])
 
@@ -871,7 +871,7 @@ that, channel authors can specify, in the repository, the 
channel’s
 [guix pull]) uses it to print a warning when the user pulls from a
 mirror:]
 
-    (prog :line #f :class "small" [
+    (prog :line #f :class "inline" [
 $ guix pull --url=https://github.com/guix-mirror/guix
 Updating channel 'guix' from 'https://github.com/guix-mirror/guix'...
 Authenticating channel 'guix', commits 9edb3f6 to 3e51f9e...
@@ -1025,7 +1025,7 @@ new command, separate from the channel machinery, to 
authenticate a Git
 checkout.  The command can be invoked on any Git repository, as in this
 example:])
        
-        (prog :line #f :class "small" [
+        (prog :line #f :class "inline" [
 guix git authenticate \\
   0c119db2ea86a389769f4d2b9c6f5c41c027e336 \\
   "3CE4 6455 8A84 FDC6 9DB4  0CFB 090B 1199 3D9A EBB5"