civodul pushed a commit to branch master
in repository maintenance.
commit c5393d3109cb850738d3c8640c3303352e193cc4
Author: Ludovic Courtès <[email protected]>
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"
