From eb282a57c7b789471f30836108998e104478b30d Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Mon, 4 Feb 2008 11:58:50 +0100
Subject: lout: Align `prog' line numbers.

* src/guile/skribilo/engine/lout.scm (&prog-line): Suitably align line
  numbers.
---
 src/guile/skribilo/engine/lout.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 81f8f1e..b924b2b 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -1790,14 +1790,13 @@
 ;*---------------------------------------------------------------------*/
 ;; Program lines appear within a `lines @Break' block.
 (markup-writer '&prog-line
-   :before (lambda (n e)
+   :action (lambda (n e)
              (let ((num (markup-option n :number)))
-               (if (number? num)
-                   (evaluate-document
-                    (it (string-append (string-pad (number->string num) 3)
-                                       ": "))
-                    e))))
-   :after "\n")
+               (and (number? num)
+                    (format #t "{ 3f @Wide { ~a. } } "
+                            num))
+               (output (markup-body n) e)
+               (display "\n"))))
 
 ;*---------------------------------------------------------------------*/
 ;*    itemize ...                                                      */
-- 
cgit v1.2.3