Forums Feature Suggestions $Font(N)

$font(name|N)
  Returns $true if the specified font is installed, if not $false
  You can specify a number to return the Nth installed font name
  if N is zero the total number of installed fonts is returned

alias -l fontdir {
  if (%windowsfontdir) { return $v1 }
  var %object = fonts $+ $ticks
  .comopen %object wscript.shell
  noop $com(%object,expandenvironmentstrings,3,bstr,% $+ windir%\fonts\)
  if ($com(%object).result != $null) { set %windowsfontdir $v1 }
  .comclose %object
  return %windowsfontdir
}
alias font {
  if ($1 !isnum) { return $iif($isfile($fontdir $+ $1.ttf) || $isfile($fontdir $+ $1.fon),$true,$false) }
  return $findfile($fontdir,*,$1)
}

$font(name|N)
  Returns the name of the font(or $Null) if the specified font is installed.

  You can specify a number to return the Nth installed font name
  if N is zero the total number of installed fonts is returned

  Properties: .fname, .type, .sizes
    .fname will return the path\file to the specified font
    .type will return the type of font. TrueType for example
    .Sizes will return a space delimited string of supported sizes or $Null if the font supports all sizes.