# This is -*- tcl -*- script 
# $Id: pdf,v 1.11 1999/08/11 07:28:07 tobotras Exp $

# 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 geometryArgs {}

#proc geometryArgs {} {
#    return "width=16cm,height=10cm"
#}

rename insertGraphicFile {}

proc insertGraphicFile { fileName } {
    return [includegraphics $fileName PDF pdf PNG png]
}

rename hyperrefArgs {}

proc hyperrefArgs {} {
    return "bookmarks=false, pdftex=true"
}

rename openHyperLink {}

proc openHyperLink {} {
    return "\\href\{"
}

rename closeHyperLink {}

proc closeHyperLink {} {
    return "\}\{[XREF2HREF]\}"
}
