(load (string-append laml-dir "laml.scm"))       
(laml-style "xml-in-laml/lecture-notes/lecture-notes")

(leno-front-matters
  (front-title "LENO Tutorial Demo - Trail Embedding")           
  (front-subtitle "Note page content")   
  (front-author "Kurt Nørmark")           
  (front-affiliation "Department of Computer Science, Aalborg University, Denmark")  
  (front-abstract 
    "This is a LENO demo lecture, which is part of the LAML tutorial. It
    demonstrates the trivial - but useful embedding of every slide page
    in a trail frameset. The first two leno-front-matters attributes controls
    the generation of the framesets, and the amount of navigation icons.")  


  'trail-of-lecture "true"
  'slide-header "minimal"  ;minimal/normal/none 


  'slide-view "true"  
  'annotated-slide-view "true"
  'aggregated-view "true" 
  'primary-view "slide-view"

  'scheme-suffix "post-notes.scm"
  'course-home-url "http://www.cs.auc.dk/~normark/scheme/tutorial/leno/leno.html"   
  'author-home-url "http://www.cs.auc.dk/~normark/"   
  'note-download-url ""   
  'logo-url "http://www.auc.dk/"  
  'note-contents-description ""    
  'trail-of-lecture "false"  
  'language "english"      
  'show-and-speak "false" 
    'default-showing-time "2"    
    'additional-showing-time "0" 
    'sound-source "real-audio" 
    'speak-url-prefix "../../speak/"
  'exercise-model "none"   
  'mouse-advancement "double-press" 
  'word-index "true"  
  'css-stylesheet ""
  'news-flash-string  ""  
  'news-flash-level   "2"
  'quiz-support "false"   
  'verbosity-level "1"

)

(begin-notes)

(note-page 'id "easy-section"
 
  (section-title "The easy section")

)

(note-page 'id "first-page"
  (title (main-text "The first page")
         (annotation "Title annotation of the first page")
  )

  (point
   (main-text
     (p "Please notice that the usual yellow navigation icons are gone away")
     (p "Because we have set the slide-header attribute to minimal")
    )
   (annotation
    "We did this by" (b "M-x") (kbd "leno-insert-point,") 
    "or from the LENO Emacs menu: '" (kbd "Insert Point") "'"
    )
  )

  (items 
   (item 
    (main-text "This is an item"
               ) 
    (annotation "It is also possible to make the item from the Emacs LENO menu, 
                 using 'Insert items' or 'Insert simple items'."
                )
    (items 
     (item 
      (main-text "with a single subitem"
                 ) 
      (annotation ""
                  ))))
   (item 
    (main-text "We made it with" (kbd "M-x leno-insert-items") _ "." ) 
    (annotation ""
                )
    (items 
     (item 
      (main-text "The" (kbd "leno-insert-items") "prompts us for the number of 
                 items and the number of subitems"
                 ) 
      (annotation ""
  )))))

  (concept-list
   (concept 'concept-name "programmatic authoring" 
            (main-text "By programmatic authoring we mean authoring of documents 
                        via use of  programmaing programming expressions"
                       ) 
            (annotation "In LENO we use programmatic authoring."
                        ))
  )

  (opposing
   (opposing-item 
    (left-item (b "LENO")
               ) 
    (right-item (b "Latex")
                ))
   (opposing-item 
    (left-item "Programmatic authoring in Scheme"
               ) 
    (right-item "Authoring in a TeX language"
  )))

  (cross-references
   (internet-reference
    'href "http://www.cs.auc.dk/~normark"
    (main-text "Take a trip to normark's web page - it is easy to come back on track..."
              ) )

  )

)


(note-page 'id "graphics-page"
  (title (main-text "A page with graphics")
         (annotation "We will now make a page with a graphical image")
  )

  (image
   'src "first-image.gif"
   (main-text
    "The first image - the most basic form of the image clause.  
     The first-image.gif file must be located in  
     the graphics and graphics/small directories."
    )
  )

  (image
   'margin-top "3cm"
   'src "second-image.gif"
   'alignment "vertical"
   'first "text"
   'second "picture"
   (main-text
    "Another graphics example using the image clause. 
     In this example we use a few attributes of
     the image mirror function."
    )
  )


)

(note-page 'id "source-program-page"
  (title (main-text "A page with a source program")
         (annotation "LENO is often used for teaching material about programming.
            Therefore the source-program LENO element is important.")
  )

  (source-program
   'src (in-tutorial-dir "schemedoc/prog3.scm")
   'from-mark "(define (negate"
   'to-mark ")))"
   'slide-mode "inline"
   'book-mode "external"
   (color-decorations
    (color-decoration 'from-mark "negate" 'to-mark "" 'color "blue" 'face "bold" )
    (color-decoration 'from-mark "(if" 'to-mark "#t)" 'color "red" 'face "italic" )
    (color-decoration 'from-mark "lambda" 'to-mark "" 'color "purple" 'face "bold" )
   )
   (main-text
    "The negate function" )
   (annotation
    "This function is really from the SchemeDoc part of the LAML tutorial." )
  )

  (source-program
   'src (in-tutorial-dir "schemedoc/prog3.scm")
   'from-mark ";; Calculate the factorial"
   'to-mark ")))))"
   'slide-mode "inline"
   'book-mode "inline"
   (color-decorations
    (color-decoration 'from-mark "fac " 'to-mark "" 'color "red" 'face "bold" 'repetition "2" )
   )
   (main-text
    "The fac function" )
   (annotation
    "This is the classical recursive edition of fac." )
  )

  (source-program
   'src (in-tutorial-dir "schemedoc/prog3.scm")
   'from-mark "(define (fib"
   'to-mark "))))))"
   'slide-mode "external"
   'book-mode "external"
   (color-decorations
    (color-decoration 'from-mark "fib " 'to-mark "" 'color "red" 'face "bold" 'repetition "3" )
   )
   (main-text
    "The fib function" )
   (annotation
    "This is the classical recursive edition of fib, which is very time consuming." )
  )

)



(end-notes)