summaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
Diffstat (limited to 'doc')
-rw-r--r--doc/Makefile.am2
-rw-r--r--doc/dir/Makefile.am3
-rw-r--r--doc/img/Makefile.am3
-rw-r--r--doc/skr/Makefile.am3
-rw-r--r--doc/user/Makefile.am14
-rw-r--r--doc/user/char.skb9
-rw-r--r--doc/user/figure.skb10
-rw-r--r--doc/user/slide.skb59
-rw-r--r--doc/user/src/Makefile.am11
-rw-r--r--doc/user/src/api20-html.skb (renamed from doc/user/src/api20.skb)0
-rw-r--r--doc/user/src/api20-lout.skb2
-rw-r--r--doc/user/user.skb8
12 files changed, 105 insertions, 19 deletions
diff --git a/doc/Makefile.am b/doc/Makefile.am
index 1b8257b..23ca4ec 100644
--- a/doc/Makefile.am
+++ b/doc/Makefile.am
@@ -1 +1 @@
-SUBDIRS = user
+SUBDIRS = user skr img dir
diff --git a/doc/dir/Makefile.am b/doc/dir/Makefile.am
new file mode 100644
index 0000000..97f6673
--- /dev/null
+++ b/doc/dir/Makefile.am
@@ -0,0 +1,3 @@
+EXTRA_DIST = dir.skb
+
+## arch-tag: 68df7b7b-a45d-4cdc-b0b3-ef738a83965c
diff --git a/doc/img/Makefile.am b/doc/img/Makefile.am
new file mode 100644
index 0000000..48318ea
--- /dev/null
+++ b/doc/img/Makefile.am
@@ -0,0 +1,3 @@
+EXTRA_DIST = bsd.gif lambda.gif linux.gif
+
+## arch-tag: 0008e69a-4745-46d8-9da4-2173db33965d
diff --git a/doc/skr/Makefile.am b/doc/skr/Makefile.am
new file mode 100644
index 0000000..7b8b369
--- /dev/null
+++ b/doc/skr/Makefile.am
@@ -0,0 +1,3 @@
+EXTRA_DIST = api.skr env.skr extension.skr manual.skr
+
+## arch-tag: 171ec210-e895-42ce-b068-da10ed5c2551
diff --git a/doc/user/Makefile.am b/doc/user/Makefile.am
index d6ab75f..d53d46c 100644
--- a/doc/user/Makefile.am
+++ b/doc/user/Makefile.am
@@ -1,3 +1,13 @@
+SUBDIRS = src
+
+EXTRA_DIST = bib.skb char.skb colframe.skb document.skb emacs.skb \
+ engine.skb enumeration.skb eq.skb examples.skb figure.skb \
+ font.skb footnote.skb htmle.skb image.skb index.skb \
+ justify.skb latexe.skb lib.skb line.skb links.skb \
+ markup.skb ornament.skb package.skb prgm.skb sectioning.skb \
+ skribe-config.skb skribec.skb skribeinfo.skb slide.skb start.skb \
+ syntax.skb table.skb toc.skb user.skb xmle.skb
+
BUILT_SOURCES = user.html
skribilo = $(top_srcdir)/src/skribilo
@@ -5,7 +15,7 @@ load_path = $(top_srcdir)/src/guile:$(top_srcdir)/src/guile/skribilo/package
%.html: %.skb
GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
- $(skribilo) --target html -I ../ -o $@ $<
+ $(skribilo) --target html -I ../ -P ../img -o $@ $<
if HAVE_LOUT
@@ -13,7 +23,7 @@ BUILT_SOURCES += user.ps
%.lout: %.skb
GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
- $(skribilo) --target lout -I ../ -o $@ $<
+ $(skribilo) --target lout -I ../ -P ../img -o $@ $<
%.ps: %.lout
$(LOUT) -c $(<:%.lout=%) -o $@ $<
diff --git a/doc/user/char.skb b/doc/user/char.skb
index 85409f0..fe15831 100644
--- a/doc/user/char.skb
+++ b/doc/user/char.skb
@@ -49,9 +49,12 @@ without any transformation from the engine.])
(p [The sequences ,(code "$1"), ,(code "$2"), ... in the ,(param 'format)
are replaced with the actual values of the arguments ,(param 'node).])
-(example-produce
- (example :legend "Some characters" (prgm :file "src/api20.skb"))
- (disp (include "src/api20.skb"))))
+(let ((file (if (engine-format? "lout")
+ "src/api20-lout.skb"
+ "src/api20-html.skb")))
+ (example-produce
+ (example :legend "Some characters" (prgm :file file))
+ (disp (include file)))))
;*--- Symbols ---------------------------------------------------------*/
(subsection :title "Symbols"
diff --git a/doc/user/figure.skb b/doc/user/figure.skb
index 08fbdd5..f6bfe8c 100644
--- a/doc/user/figure.skb
+++ b/doc/user/figure.skb
@@ -32,9 +32,10 @@
:see-also '(ref document))
-(example-produce
+ ;; Note: We can't use `example-produce' because the Lout engine, for
+ ;; instance, forbids the occurrence of `figure' within a table.
(example :legend "The figure markup" (prgm :file "src/api14.skb"))
- (disp (include "src/api14.skb")))
+ (include "src/api14.skb")
;*--- List of figures -------------------------------------------------*/
(subsection :title "List of figures"
@@ -51,8 +52,3 @@ shows how to display the list of figures of a document.])
(example :legend "The figure markup" (prgm :file "src/api15.skb"))
(disp (include "src/api15.skb")))))
-
-
-
-
-
diff --git a/doc/user/slide.skb b/doc/user/slide.skb
index aff8ab5..ec2186a 100644
--- a/doc/user/slide.skb
+++ b/doc/user/slide.skb
@@ -11,9 +11,44 @@
(skribe-load "slide.skr")
;*---------------------------------------------------------------------*/
+;* dummy-slide-set-output ... */
+;*---------------------------------------------------------------------*/
+(define dummy-slide-set-output
+ (lambda (n e)
+ (let* ((a (markup-option n :author))
+ (t (markup-option n :title))
+ (b (markup-body n))
+ (ta (table (tr (map (lambda (n)
+ (td :valign 'top :align 'center n))
+ (if (list? a) a (list a)))))))
+ (skribe-eval (center (bold t)) e)
+ (skribe-eval (center ta) e)
+ (output b e))))
+
+(define dummy-slide-output
+ (lambda (n e)
+ (let* ((t (markup-option n :title))
+ (b (markup-body n)))
+ (skribe-eval (bold t) e)
+ (output b e))))
+
+(define dummy-slide-vspace-output
+ (lambda (n e)
+ (skribe-eval (linebreak) e)
+ (skribe-eval (center (tt "[vspace]")) e)
+ (skribe-eval (linebreak) e)))
+
+(define dummy-slide-embed-output
+ (lambda (n e)
+ (skribe-eval (linebreak) e)
+ (skribe-eval (tt (or (markup-option n :alt)
+ (markup-option n :command)))
+ e)))
+
+;*---------------------------------------------------------------------*/
;* Computer programs */
;*---------------------------------------------------------------------*/
-(chapter :title "Slide Package"
+(chapter :title "Slide Package"
(p [
This chapter describes the facilities Skribe offers authoring slides.
@@ -105,11 +140,25 @@ output format does not support embedded application.]))
"html4")))
;; Show the example and its result
(example-produce
- (example :legend "Example of Skribe slides"
+ (example :legend "Example of Skribilo slides"
(prgm :file "src/slides.skb"))
- (disp (include "src/slides.skb")))
+ (disp
+ (processor :combinator
+ (lambda (e1 e2)
+ (let ((e (copy-engine 'document-engine e2)))
+ (markup-writer 'document e
+ :options '(:title :author :ending)
+ :action dummy-slide-set-output)
+ (markup-writer 'slide e
+ :options '(:title :ident
+ :number :toc :vspace)
+ :action dummy-slide-output)
+ (markup-writer 'slide-vspace
+ :action dummy-slide-vspace-output)
+ (markup-writer 'slide-embed
+ :action dummy-slide-embed-output)
+ e))
+ (include "src/slides.skb"))))
;; Show only the example (i.e. don't produce a document in a document)
(example :legend "Example of Skribe slides"
(prgm :file "src/slides.skb")))))
-
-
diff --git a/doc/user/src/Makefile.am b/doc/user/src/Makefile.am
new file mode 100644
index 0000000..6d7daf4
--- /dev/null
+++ b/doc/user/src/Makefile.am
@@ -0,0 +1,11 @@
+EXTRA_DIST = api1.skb api10.skb api11.skb api12.skb api13.skb \
+ api14.skb api15.skb api16.skb api17.skb api18.skb \
+ api19.skb api2.skb api20-html.skb api20-lout.skb api3.skb \
+ api4.skb api5.skb api6.skb api7.skb api8.skb \
+ api9.skb bib1.sbib bib2.skb bib3.skb bib4.skb \
+ bib5.skb bib6.skb eq1.skb eq2.skb index1.skb \
+ index2.skb index3.skb links1.skb links2.skb prgm1.skb \
+ prgm2.skb prgm3.skb slides.skb start1.skb start2.skb \
+ start3.skb start4.skb start5.skb
+
+## arch-tag: 9614a784-cac2-4399-bd61-18c9172f48a8
diff --git a/doc/user/src/api20.skb b/doc/user/src/api20-html.skb
index 686efcb..686efcb 100644
--- a/doc/user/src/api20.skb
+++ b/doc/user/src/api20-html.skb
diff --git a/doc/user/src/api20-lout.skb b/doc/user/src/api20-lout.skb
new file mode 100644
index 0000000..89fb961
--- /dev/null
+++ b/doc/user/src/api20-lout.skb
@@ -0,0 +1,2 @@
+[A simple ,(! "string"). A more annoying one ,(! "@B { string }").
+A last one with arguments ,(! "@Underline { $1 $2 }" (bold 1) (it 2)).]
diff --git a/doc/user/user.skb b/doc/user/user.skb
index 1403e71..f6a25ef 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -31,6 +31,12 @@
(engine-custom-set! he 'body-width 100.))
;*---------------------------------------------------------------------*/
+;* Lout custom */
+;*---------------------------------------------------------------------*/
+(let ((le (find-engine 'lout)))
+ (engine-custom-set! le 'document-type 'doc))
+
+;*---------------------------------------------------------------------*/
;* The various indexes */
;*---------------------------------------------------------------------*/
(define *markup-index* (make-index "markup"))
@@ -155,7 +161,7 @@ as HTML, Info pages, man pages, Postscript, etc.]))))
(begin
(chapter :title "Table of contents"
(toc :chapter #t :section #t :subsection #t))
- (section :title "Index" :number #f :ident "Index"
+ (chapter :title "Index" :number #f :ident "Index"
(mark "global index")
(the-index :column (if (engine-format? "latex") 2 3)
*markup-index* *custom-index* *function-index* *package-index*