lenses/fonts.aug

   1 (*
   2 Module: Fonts
   3   Parses the /etc/fonts directory
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: Reference
   8   This lens tries to keep as close as possible to `man 5 fonts-conf` where possible.
   9
  10 About: License
  11    This file is licenced under the LGPL v2+, like the rest of Augeas.
  12
  13 About: Lens Usage
  14    To be documented
  15
  16 About: Configuration files
  17    This lens applies to files in the /etc/fonts directory. See <filter>.
  18
  19 About: Examples
  20    The <Test_Fonts> file contains various examples and tests.
  21 *)
  22
  23 module Fonts =
  24
  25 autoload xfm
  26
  27 (* View: lns *)
  28 let lns = Xml.lns
  29
  30 (* Variable: filter *)
  31 let filter = incl "/etc/fonts/fonts.conf"
  32            . incl "/etc/fonts/conf.avail/*"
  33            . incl "/etc/fonts/conf.d/*"
  34            . excl "/etc/fonts/*/README"
  35            . Util.stdexcl
  36
  37 let xfm = transform lns filter