diff options
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 13 |
1 files changed, 6 insertions, 7 deletions
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 ... */ |