(* View: screen
* The Screen entry of ServerLayout
*)
-let screen = [ indent . del /[sS]creen/ "Screen" . label "Screen" . sep_spc
- . [ label "num" . store int . sep_spc ]?
- . quoted_string_val
- . [ sep_spc . label "position" . store to_eol ]?
+let screen = [ indent . del /[sS]creen/ "Screen" . label "Screen"
+ . [ sep_spc . label "num" . store int ]?
+ . ( sep_spc . quoted_string_val
+ . [ sep_spc . label "position" . store to_eol ]? )?
. eol ]
(* View: input_device *)
. display_entry*
. indent . del "EndSubSection" "EndSubSection" . eol ]
+(************************************************************************
+ * Group: EXTMOD SUBSECTION
+ *************************************************************************)
+
+let extmod_entry = entry_str "Option" /[oO]ption/ |
+ empty |
+ comment
+
+let extmod = [ indent . del "SubSection" "SubSection" . sep_spc
+ . sep_dquote . key "extmod" . sep_dquote
+ . eol
+ . extmod_entry*
+ . indent . del "EndSubSection" "EndSubSection" . eol ]
(************************************************************************
* Group: SECTIONS
let section_entry = option |
screen |
display |
+ extmod |
input_device |
driver |
identifier |
(* Variable: filter *)
-let filter = (incl "/etc/X11/xorg.conf") .
- (incl "/etc/X11/xorg.conf.d/*.conf") .
- Util.stdexcl
+let filter = incl "/etc/X11/xorg.conf"
+ . incl "/etc/X11/xorg.conf.d/*.conf"
+ . Util.stdexcl
let xfm = transform lns filter