
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; MODULE      : fonts-truetype.scm
;; DESCRIPTION : True Type fonts
;; COPYRIGHT   : (C) 2003  Joris van der Hoeven
;;
;; This software falls under the GNU general public license version 3 or later.
;; It comes WITHOUT ANY WARRANTY WHATSOEVER. For details, see the file LICENSE
;; in the root directory or <http://www.gnu.org/licenses/gpl-3.0.html>.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(texmacs-module (fonts fonts-truetype))

(set-font-rules
  `(((luxi tt bold slanted $s $d) (truetype luximbi $s $d))
    ((luxi tt bold $c $s $d) (truetype luximb $s $d))
    ((luxi tt $b slanted $s $d) (truetype luximri $s $d))
    ((luxi tt $b $c $s $d) (truetype luximr $s $d))
    ((luxi ss bold slanted $s $d) (truetype luxisbi $s $d))
    ((luxi ss bold $c $s $d) (truetype luxisb $s $d))
    ((luxi ss $b slanted $s $d) (truetype luxisri $s $d))
    ((luxi ss $b $c $s $d) (truetype luxisr $s $d))
    ((luxi $a bold slanted $s $d) (truetype luxirbi $s $d))
    ((luxi $a bold $c $s $d) (truetype luxirb $s $d))
    ((luxi $a $b slanted $s $d) (truetype luxirri $s $d))
    ((luxi $a $b $c $s $d) (truetype luxirr $s $d))

    ((ms-andalemo rm $b $c $s $d) (truetype andalemo $s $d))
    ((ms-arial rm xbold $a $s $d) (truetype ariblk $s $d))
    ((ms-arial rm bold italic $s $d) (truetype arialbi $s $d))
    ((ms-arial rm bold $a $s $d) (truetype arialbd $s $d))
    ((ms-arial rm $a italic $s $d) (truetype ariali $s $d))
    ((ms-arial rm $a $b $s $d) (truetype arial $s $d))
    ((ms-comic rm bold $a $s $d) (truetype comicbd $s $d))
    ((ms-comic rm $a $b $s $d) (truetype comic $s $d))
    ((ms-courier rm bold italic $s $d) (truetype courbi $s $d))
    ((ms-courier rm bold $a $s $d) (truetype courbd $s $d))
    ((ms-courier rm $a italic $s $d) (truetype couri $s $d))
    ((ms-courier rm $a $b $s $d) (truetype cour $s $d))
    ((ms-georgia rm bold italic $s $d) (truetype georgiaz $s $d))
    ((ms-georgia rm bold $a $s $d) (truetype georgiab $s $d))
    ((ms-georgia rm $a italic $s $d) (truetype georgiai $s $d))
    ((ms-georgia rm $a $b $s $d) (truetype georgia $s $d))
    ((ms-impact rm $b $c $s $d) (truetype impact $s $d))
    ((ms-lucida rm $b $c $s $d) (truetype lucon $s $d))
    ((ms-tahoma rm bold $a $s $d) (truetype tahomabd $s $d))
    ((ms-tahoma rm $a $b $s $d) (truetype tahoma $s $d))
    ((ms-times rm bold italic $s $d) (truetype timesbi $s $d))
    ((ms-times rm bold $a $s $d) (truetype timesbd $s $d))
    ((ms-times rm $a italic $s $d) (truetype timesi $s $d))
    ((ms-times rm $a $b $s $d) (truetype times $s $d))
    ((ms-trebuchet rm bold italic $s $d) (truetype trebucbi $s $d))
    ((ms-trebuchet rm bold $a $s $d) (truetype trebucbd $s $d))
    ((ms-trebuchet rm $a italic $s $d) (truetype trebucit $s $d))
    ((ms-trebuchet rm $a $b $s $d) (truetype trebuc $s $d))
    ((ms-verdana rm bold italic $s $d) (truetype verdanaz $s $d))
    ((ms-verdana rm bold $a $s $d) (truetype verdanab $s $d))
    ((ms-verdana rm $a italic $s $d) (truetype verdanai $s $d))
    ((ms-verdana rm $a $b $s $d) (truetype verdana $s $d))

    ((apple-gothic $v $a $b $s $d) (unicode AppleGothic $s $d))
    ((apple-lucida $v $a $b $s $d) (unicode LucidaGrande $s $d))
    ((apple-mingliu $v $a $b $s $d) (unicode PMingLiU $s $d))
    ((apple-symbols $v $a $b $s $d) (unicode #{Apple Symbols}# $s $d))
    ((apple-simsun $v $a $b $s $d) (unicode SimSun $s $d))
    ((batang $v $a $b $s $d) (unicode Batang $s $d))
    ((fireflysung $v $a $b $s $d) (unicode fireflysung $s $d))
    ((gulim $v $a $b $s $d) (unicode Gulim $s $d))
    ((FandolFang $v $a $b $s $d) (unicode FandolFang-Regular $s $d))
    ((FandolHei $v $a bold $s $d) (unicode FandolHei-Bold $s $d))
    ((FandolHei $v $a $b $s $d) (unicode FandolHei-Regular $s $d))
    ((FandolKai $v $a $b $s $d) (unicode FandolKai-Regular $s $d))
    ((FandolSong ss bold $b $s $d) (unicode FandolHei-Bold $s $d))
    ((FandolSong ss $a $b $s $d) (unicode FandolHei-Regular $s $d))
    ((FandolSong tt $a $b $s $d) (unicode FandolFang-Regular $s $d))
    ((FandolSong $v $a italic $s $d) (unicode FandolKai-Regular $s $d))
    ((FandolSong $v bold $b $s $d) (unicode FandolSong-Bold $s $d))
    ((FandolSong $v $a $b $s $d) (unicode FandolSong-Regular $s $d))
    ((ipa ss $a $b $s $d) (unicode ipagui $s $d))
    ((ipa $v bold proportional $s $d) (unicode ipagp $s $d))
    ((ipa $v bold $b $s $d) (unicode ipag $s $d))
    ((ipa $v $a proportional $s $d) (unicode ipamp $s $d))
    ((ipa $v $a $b $s $d) (unicode ipam $s $d))
    ((heiti $v $a $b $s $d) (unicode #{华文细黑}# $s $d))
    ((kaku $v $a $b $s $d) (unicode #{ヒラギノ明朝 ProN W6}# $s $d))
    ((kochi $v bold $b $s $d) (unicode kochi-gothic $s $d))
    ((kochi $v $a $b $s $d) (unicode kochi-mincho $s $d))
    ((lihei $v $a $b $s $d) (unicode #{儷黑 Pro}# $s $d))
    ((mingliu $v $a $b $s $d) (unicode mingliu $s $d))
    ((ms-gothic tt $a $b $s $d) (unicode #{MS Gothic}# $s $d))
    ((ms-gothic $v $a $b $s $d) (unicode #{MS PGothic}# $s $d))
    ((ms-mincho ss $a $b $s $d) (unicode #{MS Gothic}# $s $d))
    ((ms-mincho tt $a $b $s $d) (unicode #{MS Mincho}# $s $d))
    ((ms-mincho $v $a $b $s $d) (unicode #{MS PMincho}# $s $d))
    ((sazanami rm $a $b $s $d) (unicode sazanami-mincho $s $d))
    ((sazanami $v $a $b $s $d) (unicode sazanami-gothic $s $d))
    ((simfang $v $a $b $s $d) (unicode simfang $s $d))
    ((simhei $v $a $b $s $d) (unicode simhei $s $d))
    ((simkai $v $a $b $s $d) (unicode simkai $s $d))
    ((simli $v $a $b $s $d) (unicode simli $s $d))
    ((simsun ss $a $b $s $d) (unicode simhei $s $d))
    ((simsun tt $a $b $s $d) (unicode simfang $s $d))
    ((simsun sv $a italic $s $d) (unicode simkai $s $d))
    ((simsun $v bold $b $s $d) (unicode simhei $s $d))
    ((simsun $v $a $b $s $d) (unicode simsun $s $d))
    ((simyou $v $a $b $s $d) (unicode simyou $s $d))
    ((ttf-japanese rm $a $b $s $d) (unicode ttf-japanese-mincho $s $d))
    ((ttf-japanese $v $a $b $s $d) (unicode ttf-japanese-gothic $s $d))
    ((ukai $v $a $b $s $d) (unicode ukai $s $d))
    ((uming $v $a $b $s $d) (unicode uming $s $d))
    ((unbatang ss bold $b $s $d) (unicode UnDotumBold $s $d))
    ((unbatang ss $a $b $s $d) (unicode UnDotum $s $d))
    ((unbatang $v bold $b $s $d) (unicode UnBatangBold $s $d))
    ((unbatang $v $a $b $s $d) (unicode UnBatang $s $d))
    ((wqy-microhei $v $a $b $s $d) (unicode wqy-microhei $s $d))
    ((wqy-zenhei $v bold $b $s $d) (unicode wqy-microhei $s $d))
    ((wqy-zenhei $v $a $b $s $d) (unicode wqy-zenhei $s $d))

    ((stix $v bold italic $s $d) (unicode STIX-BoldItalic $s $d))
    ((stix $v bold $b $s $d) (unicode STIX-Bold $s $d))
    ((stix $v $a italic $s $d) (unicode STIX-Italic $s $d))
    ((stix $v $a $b $s $d) (unicode STIX-Regular $s $d))
    ((dejavu ss bold italic $s $d) (unicode DejaVuSans-BoldOblique $s $d))
    ((dejavu ss bold $b $s $d) (unicode DejaVuSans-Bold $s $d))
    ((dejavu ss $a italic $s $d) (unicode DejaVuSans-Oblique $s $d))
    ((dejavu ss $a $b $s $d) (unicode DejaVuSans $s $d))
    ((dejavu tt bold italic $s $d) (unicode DejaVuSansMono-BoldOblique $s $d))
    ((dejavu tt bold $b $s $d) (unicode DejaVuSansMono-Bold $s $d))
    ((dejavu tt $a italic $s $d) (unicode DejaVuSansMono-Oblique $s $d))
    ((dejavu tt $a $b $s $d) (unicode DejaVuSansMono $s $d))
    ((dejavu $v bold italic $s $d) (unicode DejaVuSerif-BoldItalic $s $d))
    ((dejavu $v bold $b $s $d) (unicode DejaVuSerif-Bold $s $d))
    ((dejavu $v $a italic $s $d) (unicode DejaVuSerif-Italic $s $d))
    ((dejavu $v $a $b $s $d) (unicode DejaVuSerif $s $d))
    ((pagella ss $a $b $s $d) (helvetica rm $a $b $s $d))
    ((pagella tt $a $b $s $d) (courier rm $a $b $s $d))
    ((pagella $v bold italic $s $d) (unicode texgyrepagella-bolditalic $s $d))
    ((pagella $v bold $b $s $d) (unicode texgyrepagella-bold $s $d))
    ((pagella $v $a italic $s $d) (unicode texgyrepagella-italic $s $d))
    ((pagella $v $a $b $s $d) (unicode texgyrepagella-regular $s $d))
    ((termes ss $a $b $s $d) (helvetica rm $a $b $s $d))
    ((termes tt $a $b $s $d) (courier rm $a $b $s $d))
    ((termes $v bold italic $s $d) (unicode texgyretermes-bolditalic $s $d))
    ((termes $v bold $b $s $d) (unicode texgyretermes-bold $s $d))
    ((termes $v $a italic $s $d) (unicode texgyretermes-italic $s $d))
    ((termes $v $a $b $s $d) (unicode texgyretermes-regular $s $d))

    ((sys-chinese $v $a $b $s $d)
     (,(string->symbol (default-chinese-font)) $v $a $b $s $d))
    ((sys-japanese $v $a $b $s $d)
     (,(string->symbol (default-japanese-font)) $v $a $b $s $d))
    ((sys-korean $v $a $b $s $d)
     (,(string->symbol (default-korean-font)) $v $a $b $s $d))))
