# This is -*- tcl -*- script 
# $Id: pdf,v 1.12 2001/08/23 13:42:40 tobotras Exp $

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

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]\}"
}
