From 1f01fe1e1531200a5b712a835f6915fbd8562d32 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 1 Nov 2020 15:48:55 +0100
Subject: justify: Turn '*margin*' into a parameter.

* src/guile/skribilo/utils/justify.scm (*margin*): Turn into a
parameter.
(with-justification, with-justification/noflush): Use 'parameterize'
instead of 'set!'.
* src/guile/skribilo/engine/info.scm: Adjust accordingly.
* doc/modules/skribilo/documentation/api.scm (doc-markup): Likewise.
---
 doc/modules/skribilo/documentation/api.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'doc')

diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 21044a7..e7739fb 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -273,8 +273,7 @@ def @SkribiloExample named @Title {} right x {
               (let ((protos (markup-option n 'prototypes))
                     (opts   (markup-option n 'options))
                     (params (markup-option n 'parameters))
-                    (see    (markup-option n 'see-also))
-                    (margin *margin*))
+                    (see    (markup-option n 'see-also)))
                 (output (linebreak) e)
 
                 (with-justification
@@ -284,7 +283,7 @@ def @SkribiloExample named @Title {} right x {
                                (output "-- Markup: " e)
                                (output p e))
                              protos))
-                 (+ *margin* 1))
+                 1)
 
                 (and (pair? opts)
                      (output
-- 
cgit v1.2.3