From 5b4b1a58694f43504741ba798d383ae37d884c2a Mon Sep 17 00:00:00 2001 From: Philipp Gesang Date: Fri, 8 Aug 2014 07:03:29 +0200 Subject: [conf] substitute underscores in section names --- src/luaotfload-configuration.lua | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'src/luaotfload-configuration.lua') diff --git a/src/luaotfload-configuration.lua b/src/luaotfload-configuration.lua index bf841f7..ec38d90 100644 --- a/src/luaotfload-configuration.lua +++ b/src/luaotfload-configuration.lua @@ -483,6 +483,18 @@ local option_spec = { --- FORMATTERS ------------------------------------------------------------------------------- +local commented = function (str) + return ";" .. str +end + +local underscore_replacer = lpeg.replacer ("_", "-", true) + +local dashed = function (var) + --- INI spec dictates that dashes are valid in variable names, not + --- underscores. + return underscore_replacer (var) or var +end + local indent = " " local format_string = function (var, val) return stringformat (indent .. "%s = %s", var, val) @@ -516,19 +528,7 @@ local format_keyval = function (var, val) end local format_section = function (title) - return stringformat ("[%s]", title) -end - -local commented = function (str) - return ";" .. str -end - -local underscore_replacer = lpeg.replacer ("_", "-", true) - -local dashed = function (var) - --- INI spec dictates that dashes are valid in variable names, not - --- underscores. - return underscore_replacer (var) or var + return stringformat ("[%s]", dashed (title)) end local conf_header = [==[ -- cgit v1.2.3