summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/guile/skribilo/engine/lout.scm13
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 ... */