diff options
| author | Ludovic Courtès | 2008-10-10 00:02:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2008-10-10 00:05:09 +0200 |
| commit | 9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6 (patch) | |
| tree | 5ddc1086d54303a849de1725a182fbc758de4cc0 | |
| parent | b9a26f964976e27369874688c9fdff80370bf92e (diff) | |
| download | skribilo-9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6.tar.gz skribilo-9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6.tar.lz skribilo-9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6.zip | |
info: Remove biglooisms and fix typos.
* src/guile/skribilo/engine/info.scm: Use normal number operations
instead of their `fx' version.
(table, mailto): Quote option list.
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index 993a6f8..27e959a 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -213,7 +213,7 @@ (loop (cdr authors) rows (cons (car authors) row) - (+fx cnum 1)))))) + (+ cnum 1)))))) (info (apply table (if first (cons (make-row (list (car authors)) :colspan cols) @@ -246,7 +246,7 @@ (if (string? title) (output (list->string (apply append - (map (lambda (c) (list c #a008)) + (map (lambda (c) (list c #\bs)) (string->list title))))) (info title)) (output-newline) @@ -492,7 +492,7 @@ ;* mailto ... */ ;*---------------------------------------------------------------------*/ (markup-writer 'mailto info-engine - :options (:text) + :options '(:text) :action (lambda (n e) (let ((email (markup-body n)) (text (markup-option n :text))) @@ -519,7 +519,7 @@ :action (lambda (n e) (for-each (lambda (item) (with-justification (make-justifier - (-fx (justification-width) 3) + (- (justification-width) 3) 'left) (lambda () (output "- ") @@ -534,7 +534,7 @@ (if (pair? items) (let ((item (car items))) (with-justification (make-justifier - (-fx (justification-width) 3) + (- (justification-width) 3) 'left) (lambda () (output (integer->string num)) @@ -548,7 +548,7 @@ (for-each (lambda (item) (with-justification (make-justifier - (-fx (justification-width) 3) + (- (justification-width) 3) 'left) (output item e) 3)) @@ -656,7 +656,7 @@ ;* info ::%table ... */ ;*---------------------------------------------------------------------*/ (markup-writer 'table info-engine - :options (:border) + :options '(:border) :action (lambda (n e) (let ((border (markup-option n :border))) (output-flush *margin*) |