summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2008-11-20 23:54:47 +0100
committerLudovic Courtès2008-11-20 23:54:47 +0100
commit8dcbb8c09882a026fb06db6766a7cbcd2ec82d78 (patch)
tree31be74b4aca97022b0568c5fc9ee355066446230
parent542f6aad4b4455d9a1d6d824cb4377d084c76745 (diff)
downloadskribilo-8dcbb8c09882a026fb06db6766a7cbcd2ec82d78.tar.gz
skribilo-8dcbb8c09882a026fb06db6766a7cbcd2ec82d78.tar.lz
skribilo-8dcbb8c09882a026fb06db6766a7cbcd2ec82d78.zip
info: Remove Bigloo type annotations and `with-access'.
-rw-r--r--src/guile/skribilo/engine/info.scm36
1 files changed, 19 insertions, 17 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index a1c3b81..e2b4f7c 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -88,7 +88,7 @@
;*---------------------------------------------------------------------*/
(markup-writer 'document info-engine
:action (lambda (doc e)
- (let loop ((c (ast-body doc)))
+ (let loop ((c (markup-body doc)))
(cond
((null? c)
(values "Top" "(dir)" "(dir)"))
@@ -106,7 +106,7 @@
(let ((top (if (document? parent)
"Top"
(block-title parent))))
- (let loop ((els (ast-body parent))
+ (let loop ((els (markup-body parent))
(prev #f))
(cond
((null? els)
@@ -126,7 +126,7 @@
;* node-menu ... */
;*---------------------------------------------------------------------*/
(define (node-menu container e)
- (let ((children (ast-body container)))
+ (let ((children (markup-body container)))
(if (pair? (filter (lambda (x) (or (%chapter? x) (%section? x)))
children))
(begin
@@ -374,7 +374,7 @@
:action (lambda (n e)
(with-justification (make-justifier *text-column-width* 'verbatim)
(lambda ()
- (output (ast-body obj) e)
+ (output (markup-body obj) e)
(output-newline)))))
;*---------------------------------------------------------------------*/
@@ -411,7 +411,7 @@
;*---------------------------------------------------------------------*/
;* info-chapter-ref ... */
;*---------------------------------------------------------------------*/
-(define (info-chapter-ref obj::%chapter)
+(define (info-chapter-ref obj)
(output "*Note ")
(output (block-title obj))
(output ":: "))
@@ -419,11 +419,11 @@
;*---------------------------------------------------------------------*/
;* info ::%section-ref ... */
;*---------------------------------------------------------------------*/
-(define (info obj::%section-ref)
+(define (info obj)
(receive (_ section)
(find-reference obj (current-document))
(if (not (%section? section))
- (with-access::%section-ref obj (anchor)
+ (let ((anchor (markup-ident obj)))
(warning "ref" "Can't find section -- " anchor)
(output "section:???"))
(info-section-ref section))))
@@ -431,8 +431,8 @@
;*---------------------------------------------------------------------*/
;* info-section-ref ... */
;*---------------------------------------------------------------------*/
-(define (info-section-ref obj::%section)
- (with-access::%section obj (title)
+(define (info-section-ref obj)
+ (let ((title (markup-option obj :title)))
(output "*Note ")
(output title)
(output ":: ")))
@@ -440,11 +440,11 @@
;*---------------------------------------------------------------------*/
;* info ::%subsection-ref ... */
;*---------------------------------------------------------------------*/
-(define (info obj::%subsection-ref)
+(define (info obj)
(receive (_ subsection)
(find-reference obj (current-document))
(if (not (%subsection? subsection))
- (with-access::%subsection-ref obj (anchor)
+ (let ((anchor (markup-ident obj)))
(warning "ref" "Can't find subsection -- " anchor)
(output "subsection:???"))
(info-subsection-ref subsection))))
@@ -452,8 +452,8 @@
;*---------------------------------------------------------------------*/
;* info-subsection-ref ... */
;*---------------------------------------------------------------------*/
-(define (info-subsection-ref obj::%subsection)
- (with-access::%subsection obj (title)
+(define (info-subsection-ref obj)
+ (let ((title (markup-option obj :title)))
(output "*Note ")
(output title)
(output ":: ")))
@@ -461,11 +461,11 @@
;*---------------------------------------------------------------------*/
;* info ::%subsubsection-ref ... */
;*---------------------------------------------------------------------*/
-(define (info obj::%subsubsection-ref)
+(define (info obj)
(receive (_ subsubsection)
(find-reference obj (current-document))
(if (not (%subsubsection? subsubsection))
- (with-access::%subsubsection-ref obj (anchor)
+ (let ((anchor (markup-ident obj)))
(warning "ref" "Can't find subsubsection -- " anchor)
(output "subsubsection:???"))
(info-subsubsection-ref subsubsection))))
@@ -473,8 +473,8 @@
;*---------------------------------------------------------------------*/
;* info-subsubsection-ref ... */
;*---------------------------------------------------------------------*/
-(define (info-subsubsection-ref obj::%subsubsection)
- (with-access::%subsubsection obj (title)
+(define (info-subsubsection-ref obj)
+ (let ((title (markup-option obj :title)))
(output "*Note ")
(output title)
(output ":: ")))
@@ -707,3 +707,5 @@
(output label e)
(output ")" e))))
+
+;;; info.scm ends here