# This is -*- tcl -*- script 

# REQUIRES ps_fonts!
global TEItools_ps_fonts_in_use
if { ![info exists TEItools_ps_fonts_in_use] } {
    puts stderr "\n*** 'pdf' style requires loading 'ps_fonts' first!\n"
    exit 1
}

rename extraPreamble extraPreamble_pdf

proc extraPreamble {} {
    return "[extraPreamble_pdf]
\\usepackage\[[hyperrefArgs]\]{hyperref}
"
}

proc hyperrefArgs {} {
    return "nobookmarks"
}

rename insertGraphicFile {}

proc insertGraphicFile { fileName } {
    append fileName ".png"
    if { ![file readable $fileName] } {
	puts stderr "WARNING: No such file: $fileName"
	return
    }
    return "\n\\pdfimage $fileName\n"
}
