You can use epp_dodger to parse the Erlang file, rather than fiddling with strings.
e.g (though I prefer how you handle the key constants)
defmodule WxInclude do
@moduledoc """
Creates functions for all the `wx` constants in `wx/include/wx.hrl`.
Function names match the constants except for the key codes, which we prepend `wx` onto, such that `WXK_NONE` becomes `wxWXK_NONE()`
## Usage
defmodule MyApp.Ui do
import WxInclude
def init(_) do
wx = :wx.new()
frame =
:wxFrame.new(
wx,
wxID_ANY(),
'Cool Title',
size: {800, 600},
style: wxSYSTEM_MENU() ||| wxCAPTION() ||| wxMINIMIZE_BOX() ||| wxCLOSE_BOX() ||| wxCLIP_CHILDREN()
)
...
{frame, state}
end
end
"""
lib_dir = :code.lib_dir(:wx)
file = :filename.join([lib_dir, ~c"include/wx.hrl"])
{:ok, forms} = :epp_dodger.parse_file(file)
defines =
for {:tree, :attribute, _, {_, {:atom, _, :define}, [{type, _, name} | _]}} <- forms do
{type, name}
end
gets =
Stream.map(defines, fn
{:atom, const} -> "get(#{const}) -> ?#{const}"
{:var, const} -> "get(wx#{const}) -> ?#{const}"
end)
|> Enum.join(";\n")
contents = """
-module(wx_include).
-include_lib("wx/include/wx.hrl").
-export([get/1]).
#{gets}.
"""
File.write!(
__DIR__ <> "/../src/wx_include.erl",
contents
)
for {type, const} <- defines do
const =
case type do
:atom -> const
:var -> "wx#{const}"
end
Module.eval_quoted(
__MODULE__,
Code.string_to_quoted("def #{const}, do: :wx_include.get(:#{const})")
)
end
end