aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-10-10 00:02:55 +0200
committerLudovic Courtès2008-10-10 00:05:09 +0200
commit9aaaf08efd0cccdac8bda6d9a9b58e39609b09c6 (patch)
tree5ddc1086d54303a849de1725a182fbc758de4cc0
parentb9a26f964976e27369874688c9fdff80370bf92e (diff)
downloadskribilo-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.scm14
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*)