(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")
(lib-load "xhtml1.0-convenience.scm")

Show source file in large font In color-frames: Link from red to it's cross reference table entry 
(define red (rgb-color-encoding 255 0 0)) Show source file in large font In color-frames: Link from color-string? to it's cross reference table entry 5.1. XML-in-LAML parametrizations
(define (color-string? x) (and (= 7 (string-length x)) (eq? #\# (string-ref x 0)) (hex-numeric-string? (substring x 1 7)))) Show source file in large font In color-frames: Link from hex-numeric-string? to it's cross reference table entry 5.1. XML-in-LAML parametrizations
(define (hex-numeric-string? x) (string-of-char-list? x (list #\0 #\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9 #\a #\b #\c #\d #\e #\f))) Show source file in large font In color-frames: Link from new-color-frame-width to it's cross reference table entry 5.1. XML-in-LAML parametrizations
(define new-color-frame-width (let ((val! (lambda (c a) (cond ((not (numeric-string? (defaulted-get-prop 'width a #f))) (xml-check-error "The width attribute of new-color-frame-width must be numeric")) ((not (color-string? (defaulted-get-prop 'color a #f))) (xml-check-error "The color attribute of new-color-frame-width must be a seven character string, such as #00ff77")) (else #t)))) (med (lambda (c a) (list c (get-prop 'color a) (get-prop 'width a)))) ) (xml-in-laml-parametrization color-frame-width med val! "new-color-frame-width"))) Show source file in large font In color-frames: Link from write-html-clause-color-frame to it's cross reference table entry 5.1. XML-in-LAML parametrizations
; write-html-clause-color-frame (write-html '(raw) (html (head (title "Color frame example")) (body (h1 "Color frame example") (p "Original color frame") (center (color-frame-width "Some text" red 100)) ; A linked program source marker to section 5.1:
'XML-in-LAML parametrizations'
Mark char: a (p "New color frame") (center (new-color-frame-width ; A linked program source marker to section 5.1:
'XML-in-LAML parametrizations'
Mark char: b "Some more text" 'color red 'width "a00")) ))) (end-laml)