49 lines
1.8 KiB
Plaintext
49 lines
1.8 KiB
Plaintext
|
(* Gdm module for Augeas *)
|
||
|
|
(* Author: Free Ekanayaka <freek@64studio.com> *)
|
||
|
|
(* *)
|
||
|
|
|
||
|
|
module Gdm =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* INI File settings
|
||
|
|
*************************************************************************)
|
||
|
|
|
||
|
|
let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
|
||
|
|
let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
|
||
|
|
let empty = IniFile.empty
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* ENTRY
|
||
|
|
* Entry keywords can be bare digits as well (the [server] section)
|
||
|
|
*************************************************************************)
|
||
|
|
let entry_re = ( /[A-Za-z0-9][A-Za-z0-9._-]*/ )
|
||
|
|
let entry = IniFile.entry entry_re sep comment
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* TITLE
|
||
|
|
*
|
||
|
|
* We use IniFile.title_label because there can be entries
|
||
|
|
* outside of sections whose labels would conflict with section names
|
||
|
|
*************************************************************************)
|
||
|
|
let title = IniFile.title ( IniFile.record_re - ".anon" )
|
||
|
|
let record = IniFile.record title entry
|
||
|
|
|
||
|
|
let record_anon = [ label ".anon" . ( entry | empty )+ ]
|
||
|
|
|
||
|
|
|
||
|
|
(************************************************************************
|
||
|
|
* LENS & FILTER
|
||
|
|
* There can be entries before any section
|
||
|
|
* IniFile.entry includes comment management, so we just pass entry to lns
|
||
|
|
*************************************************************************)
|
||
|
|
let lns = record_anon? . record*
|
||
|
|
|
||
|
|
let filter = (incl "/etc/gdm/gdm.conf*")
|
||
|
|
. (incl "/etc/gdm/custom.conf")
|
||
|
|
. Util.stdexcl
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|