Program

Play audio slide show -- Keyboard shortcut: 'x'

Back to slide -- Keyboard shortcut: 'u'

previous -- Keyboard shortcut: 'p'

next -- Keyboard shortcut: 'n'

Annotated program -- Keyboard shortcut: 't'

taggen-3.scm - Functions that generate individual single and double tags.

Lecture 4 - slide 27 : 34
Program 3

(define (start-tag kind attributes)
  (if (null? attributes) 
      (string-append "<" kind ">")
      (let ((html-attributes (linearize-attributes attributes)))
         (string-append "<" kind " " html-attributes " >"))))

(define (end-tag kind)
  (string-append "</" kind ">"))