diff options
| author | Ludovic Courtès | 2008-02-04 11:58:50 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-02-04 11:58:50 +0100 |
| commit | eb282a57c7b789471f30836108998e104478b30d (patch) | |
| tree | 732ec711355e0fd89be9434228fcc99fc964a19c /src/guile | |
| parent | cbbace864245be0ed918aee85c49d38ea66d4015 (diff) | |
| download | skribilo-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/guile')
| -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 ... */ |