# Book trade correspondence project Boekwetenschap Leiden # Simple HTML style file to show editorial notes # Adapted from "simple.anv" originally created for Fuhri project (2002) # Last edited: 16 November 2004 set outputSGML 0 set startSGML "<" set endSGML ">" set closeSGML / #proc SDATA {me context} { # global text hide # if {$context=="before"} { # switch [sDataName $me] { # florin {set text #402} # } # } # if {$context=="content"} { # set hide children # } # } proc begin {thisBook me styleName} { global text set text "\r\n\ \r\n\ \r\n \r\n\ \r\n\ $thisBook\r\n \ \r\n\ \r\n\r\n" } proc end {thisBook me styleName} { global text append text "" } proc teiHeader {me context} { global text hide if {$context=="before"} {set text "

"} if {$context=="content"} {set hide children} } #proc text,front,div1 {me context} { # global text # if {$context=="before"} {set text ""} # if {$context=="after"} {set text ""} #} proc title {me context} { global text hide if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} # if {$context=="content"} {set hide children} } proc p,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc seg,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc div1,p,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc addrLine,name,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc div1,note,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc p,note,title {me context} { global text hide if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} # if {$context=="content"} {set hide children} } proc bibl,title {me context} { global text hide if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} # if {$context=="content"} {set hide children} } proc body,div1,head {me context} { global text hide # if {$context=="before"} {set text "

"} # if {$context=="after"} {set text "

"} if {$context=="content"} {set hide children} } proc sourceDesc,p {me context} { global text if {$context=="before"} {set text "

Call number: "} if {$context=="after"} {set text "

"} } proc p {me context} { global text if {$context=="before"} { switch [attr $me rend] { centre {set text "

"} indent1 {set text "

      "} default {set text "

"} } } if {$context=="after"} {set text "

"} } #proc front,div1 {me context} { # global text # if {$context=="before"} {set text ""} # if {$context=="after"} {set text ""} #} proc bibl,date {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "
"} } proc idno {me context} { global text # if {$context=="before"} {set text ""} if {$context=="after"} {set text "

"} } proc front,div1,p {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc titleStmt {me context} { global hide # if {$context=="before"} {set text "

"} # if {$context=="after"} {set text "

"} if {$context=="content"} {set hide children} } proc publicationStmt {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} if {$context=="content"} {set hide children} } proc div0,head {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc body,div1 {me context} { global text hide if {$context=="before"} {set text "
"} if {$context=="after"} {set text "
"} # if {$context=="content"} {set hide children} } proc back,div1,head {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc dateline {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc salute {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc addrLine {me context} { global text if {$context=="after"} {set text "
"} } proc signed {me context} { global text if {$context=="before"} {set text "

"} if {$context=="after"} {set text "

"} } proc div1,p,ref {me context} { global text if {$context=="before"} { set value1 [attr $me target] set text ""} if {$context=="after"} { set value1 [attr $me id] set value2 [attr $me n] set text "$value2"} } proc back,div1,note {me context} { global text if {$context=="before"} { set value1 [attr $me target] set value2 [attr $me n] if {[attr $me type]=="translation"} { set text "

Note $value2 \[Translation:\] " } else { set text "

Note $value2 " } } if {$context=="after"} { set value1 [attr $me id] set text "|Back|

"} } proc closer,seg {me context} { global text if {$context=="before"} {set text "

\[Post scriptum:\] "} if {$context=="after"} {set text "

"} } proc hi {me context} { global text if {$context=="before"} { switch [attr $me rend] { ital {set text ""} bold {set text ""} sup {set text ""} } } if {$context=="after"} { switch [attr $me rend] { ital {set text ""} bold {set text ""} sup {set text ""} } } } proc list {me context} { global text if {$context=="before"} {set text ""} } proc item {me context} { global text if {$context=="before"} {set text "
  • "} if {$context=="after"} {set text "
  • "} } proc table {me context} { global text if {$context=="before"} {set text ""} if {$context=="after"} {set text "
    "} } proc row {me context} { global text if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} } proc cell {me context} { global text if {$context=="before"} {set text ""} if {$context=="after"} {set text ""} } proc SDATA {me context} { global text hide if {$context=="before"} { switch [sDataName $me] { aacute {set text "á"} iacute {set text "í"} eacute {set text "é"} oacute {set text "ó"} uacute {set text "ú"} lab {set text "<"} rab {set text ">"} amp {set text "&"} } } if {$context=="content"} {set hide children} } proc lb {me context} { global text if {$context=="before"} {set text "
    "} } # align=\"center\">