;*=====================================================================*/
;* serrano/prgm/project/skribe/www/examples/slide/slide.skb */
;* ------------------------------------------------------------- */
;* Author : Manuel Serrano */
;* Creation : Tue Oct 28 11:28:47 2003 */
;* Last change : Fri Jun 3 16:45:24 2005 (serrano) */
;* Copyright : 2003-05 Manuel Serrano */
;* ------------------------------------------------------------- */
;* Slides in Skribe */
;*=====================================================================*/
;*---------------------------------------------------------------------*/
;* The style */
;*---------------------------------------------------------------------*/
(skribe-load "style.skr")
;; load the slide style with the proper configuration
(case *mode*
;* ((advi) */
;* (skribe-load "slide.skr" :advi #t)) */
((prosper)
(skribe-load "slide.skr" :prosper #t))
(else
(skribe-load "slide.skr")))
;*---------------------------------------------------------------------*/
;* sk-expression ... */
;*---------------------------------------------------------------------*/
(define (sk-expression)
(it "sk-expression"))
(define (sk-expressions)
(it "sk-expressions"))
;*---------------------------------------------------------------------*/
;* The document */
;*---------------------------------------------------------------------*/
(document :title (red (sf (font :size +2. "This is Skribe!")))
:author (author :name (it (magenta "Manuel Serrano, Erick Gallesio"))
:affiliation [Inria Sophia Antipolis, University of Nice]
:address (list "" (tt (skribe-url))))
;*---------------------------------------------------------------------*/
;* First slide */
;*---------------------------------------------------------------------*/
(include "skribe.skb")
;*---------------------------------------------------------------------*/
;* Skribe gallery */
;*---------------------------------------------------------------------*/
(slide :title "Gallery"
(st [A computer program:])
(center
(c-prgm :file "C-code.c"))
(st [Images:])
(center
(table
(tr (td (image :width 75 :height 50 :file "img.jpg"))
(td (image :width 25 :height 50 :file "img.jpg"))
(td (image :width 150 :height 50 :file "img.jpg"))))))
;*---------------------------------------------------------------------*/
;* Syntax */
;*---------------------------------------------------------------------*/
(slide :title "Skribe Syntax" :vspace 0.3
(st [,(sk-expression):])
(itemize (item [An ,(emph "atom")
(a ,(red (it "string")), a ,(red (it "number")), ...)])
(item [A ,(emph "list") of ,(sk-expressions)])
(item [A ,(emph "text")
(,(red (tt [\[...,(blue [,(char ",")(,(it "<expr>"))])...\]])))]))
(slide-vspace 0.3)
(st [Example:])
(center
(skribe-prgm :fsize 0 (source :file "syntax.skb")))
(p [is equivalent to:])
(center
(skribe-prgm :fsize 0
[(list "text goodies: " (bold "bold") "and" (it "italic") ".")])))
;*---------------------------------------------------------------------*/
;* Skribe documents */
;*---------------------------------------------------------------------*/
(slide :title "Skribe Documents (1/2)" :vspace 0.5
(st [Skribe Document Structure:])
(center
(skribe-prgm [...
(document :title <sk-expr> :author <sk-expr>
(abstract <sk-expr>)
(section :title <sk-expr>
...
(subsection :title <sk-expr>)
...
(subsection :title <sk-expr>)
...)
...
(section :title <sk-expr>))])))
;*--- markup ----------------------------------------------------------*/
(slide :title "Skribe Documents (2/2)" :vspace 0.5
(st [XML markup:])
(center
(xml-prgm [
<elmt1 attr='val'>
Some text
<elmt2>
for the example
</elmt2>
</elmt1>]))
(slide-vspace 0.3)
(st [Sk-markup:])
(center
(skribe-prgm [(elmt1 :attr val \[Some text \,(elmt2 \[for the example\])\])])))
;*---------------------------------------------------------------------*/
;* Libraries */
;*---------------------------------------------------------------------*/
(slide :title "Skribe Libraries"
(st [A set of libraries containing the ,(q "usual") facilities. For instance:])
(center (skribe-prgm :file "itemize.skb"))
(slide-vspace 0.1)
(st [Produces the following output text:])
(center (color :bg "#ccccff" :width 90.
(font :size -2 (include "itemize.skb")))))
;*---------------------------------------------------------------------*/
;* Dynamic texts */
;*---------------------------------------------------------------------*/
(slide :title "Dynamic texts (1/3)" :vspace 0.2
(st [Let us assume the factorial table:])
(slide-vspace 0.5)
(center (font :size -1 (color :width 90. :bg "#ccccff" (include "fact.skb")))))
;*--- dynamic texts: the usual solution -------------------------------*/
(slide :title "Dynamic texts (2/3)"
(st [The usual solution:])
(center (skribe-prgm :file "factb.skb")))
;*--- dynamic texts: a better solution --------------------------------*/
(slide :title "Dynamic texts (3/3)"
(st [A better solution:])
(center (skribe-prgm :file "fact.skb")))
;*---------------------------------------------------------------------*/
;* Conclusion */
;*---------------------------------------------------------------------*/
(slide :title "Conclusion" :vspace 0.5
(st [Status:])
(itemize (item [Available on-line: ,(tt (ref :url (skribe-url)))])
(item [Available since a couple of months])
(item [Used, by the authors, on a daily basis])
(item [,(magenta (bold [Still too young])) ,(symbol '=>)
,(itemize (item [Very few styles have been implemented])
(item [It is still necessary to be aware of the
targets idiosyncrasies])
(item [Difficult to tame the fix-point
iteration of the computation model]))]))))
