From 9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Fri, 10 Oct 2008 00:02:55 +0200
Subject: 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.
---
src/guile/skribilo/engine/info.scm | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
(limited to 'src')
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*)
--
cgit v1.2.3