aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-01 16:27:22 +0100
committerLudovic Courtès2007-12-01 16:27:22 +0100
commitb815b312080bdafa7b6d1b8c2617f2bac8591f3e (patch)
treebeb7ed1fcaf1f580d0867da99481213fddc6395a /doc
parentbb4611e0cdeee736c390854b94348c428259c77c (diff)
downloadskribilo-b815b312080bdafa7b6d1b8c2617f2bac8591f3e.tar.gz
skribilo-b815b312080bdafa7b6d1b8c2617f2bac8591f3e.tar.lz
skribilo-b815b312080bdafa7b6d1b8c2617f2bac8591f3e.zip
doc: Use native API in `(skribilo documentation manual)'.
* doc/modules/skribilo/documentation/manual.scm: Switch to native API.
Diffstat (limited to 'doc')
-rw-r--r--doc/modules/skribilo/documentation/manual.scm34
1 files changed, 18 insertions, 16 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm
index 2c08aa1..86629a2 100644
--- a/doc/modules/skribilo/documentation/manual.scm
+++ b/doc/modules/skribilo/documentation/manual.scm
@@ -23,11 +23,11 @@
:use-module (skribilo engine)
:use-module (skribilo writer)
:use-module (skribilo ast)
- :use-module (skribilo lib) ;; `define-markup'
- :use-module (skribilo resolve)
+ :use-module (skribilo lib)
:use-module (skribilo output)
+ :use-module (skribilo resolve)
+ :use-module (skribilo evaluator)
:use-module (skribilo utils keywords)
- :use-module (skribilo utils compat)
:use-module (skribilo utils syntax)
:use-module (skribilo documentation env)
@@ -58,22 +58,24 @@
(let ((ident (markup-ident n))
(number (markup-option n :number))
(legend (markup-option n :legend)))
- (skribe-eval (mark ident) e)
- (skribe-eval (center
- (markup-body n)
- (if number
- (bold (format #f "Ex. ~a: " number)))
- legend)
- e)))))
+ (evaluate-document (mark ident) e)
+ (evaluate-document
+ (center
+ (markup-body n)
+ (if number
+ (bold (format #f "Ex. ~a: " number)))
+ legend)
+ e)))))
;*---------------------------------------------------------------------*/
;* html-browsing-extra ... */
;*---------------------------------------------------------------------*/
(define (html-browsing-extra n e)
- (let ((i1 (let ((m (find-markup-ident "Index")))
- (and (pair? m) (car m))))
- (i2 (let ((m (find-markup-ident "markups-index")))
- (and (pair? m) (car m)))))
+
+ (define doc (ast-document n))
+
+ (let ((i1 (and doc (document-lookup-node doc "Index")))
+ (i2 (and doc (document-lookup-node doc "markups-index"))))
(cond
((not i1)
(skribe-error 'left-margin "Can't find section" "Index"))
@@ -224,7 +226,7 @@
(define-markup (example :rest opts :key legend class)
(new container
(markup 'example)
- (ident (symbol->string (gensym 'example)))
+ (ident (symbol->string (gensym "example")))
(class class)
(required-options '(:legend :number))
(options `((:number
@@ -331,7 +333,7 @@
(else
(table :width 100. :&location loc
(make-sub-tables ie nc pref))))))
- (output (skribe-eval t e) e))))
+ (output (evaluate-document t e) e))))
;*---------------------------------------------------------------------*/
;* compiler-command ... */