summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-02-04 11:58:50 +0100
committerLudovic Courtès2008-02-04 11:58:50 +0100
commiteb282a57c7b789471f30836108998e104478b30d (patch)
tree732ec711355e0fd89be9434228fcc99fc964a19c /src
parentcbbace864245be0ed918aee85c49d38ea66d4015 (diff)
downloadskribilo-eb282a57c7b789471f30836108998e104478b30d.tar.gz
skribilo-eb282a57c7b789471f30836108998e104478b30d.tar.lz
skribilo-eb282a57c7b789471f30836108998e104478b30d.zip
lout: Align `prog' line numbers.
* src/guile/skribilo/engine/lout.scm (&prog-line): Suitably align line numbers.
Diffstat (limited to 'src')
-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 ... */