(load (string-append laml-dir "laml.scm"))
(laml-style "xml-in-laml/schemedoc-2/schemedoc")

; --------------------------------------------------------------------------------------------------------------------------
; SchemeDoc customization

(define supported-manual-page-elements 
  '(title library kind form description pre-condition post-condition parameters example cross-references misc comment returns
          xml-in-laml-example-form attributes content-model level xml-in-laml-attributes class my-tag essay))

(define manual-element-order 
  '(section-id section-title section-body title library kind form class xml-in-laml-example-form description content-model attributes 
    pre-condition parameters xml-in-laml-attributes returns post-condition example cross-references misc comment essay my-tag))

(define (schemedoc-custom-tag-presentation kind)
  (cond ((eq? kind 'class) "Classification")
        ((eq? kind 'my-tag) "Just demo")
        ((eq? kind 'essay) "Story")
        (else   (as-string kind))))

; --------------------------------------------------------------------------------------------------------------------------

(manual
  (manual-front-matters
    (manual-title "My manual with Custom tags")
    (manual-author "My Name")
    (manual-affiliation "My affiliation")
    (manual-abstract "Some abstract. This examples shows the use of the custom tags class and my-tag.")

    'laml-resource "false"
    'css-prestylesheet "normal"   
    'css-stylesheet "argentina"    
    'scheme-source-linking "true"
  )

  (manual-from-scheme-file 'src "ex-custom")

)