(*

Module: Fuse

  Parses /etc/fuse.conf

Author: Raphael Pinson <raphink@gmail.com>

About: Reference

About: License

   This file is licenced under the LGPL v2+, like the rest of Augeas.

About: Lens Usage

   To be documented

About: Configuration files

   This lens applies to /etc/fuse.conf. See <filter>.

About: Examples

   The <Test_Fuse> file contains various examples and tests.

*)

module Fuse =

autoload xfm

(* Variable: equal *)

let equal = del /[ \t]*=[ \t]*/ " = "

(* View: mount_max *)

let mount_max = Build.key_value_line "mount_max" equal (store Rx.integer)

(* View: user_allow_other *)

let user_allow_other = Build.flag_line "user_allow_other"

(* View: lns

     The fuse.conf lens

*)

let lns = ( Util.empty | Util.comment | mount_max | user_allow_other )*

(* Variable: filter *)

let filter = incl "/etc/fuse.conf"

let xfm = transform lns filter