conference.erl

-module(conference).
-export([report/0]).
report()->
    {awesome, EUC2013Conf0} = start(
                           [{name, <<"Erlang User Conference 2013">>},
                            {host, <<"Stockholm">>},
                            {tracks_per_day, 4}, {days, 2},
                            {inventors, [joe, mike, robert]}
                            ]),
    EUC2013Conf1 = controlling_process(EUC2013Conf0, francesco),
    listen(EUC2013Conf1),
    EUC2013Conf2 = set_opts(
                     EUC2013Conf1,
                     [{favorite_track,
                       <<"Load Regulation and Back Pressure">>},
                      {cool_projects,
                       [{percept2,
                         <<"https://github.com/huiqing/percept2">>},
                        {safetyvalve,
                         <<"https://github.com/jlouis/safetyvalve">>},
                        {jobs,
                         <<"https://github.com/esl/jobs">>},
                        {gen_utp,
                         <<"https://github.com/basho-labs/gen_utp">>},
                        {'erlang-utp',
                         <<"https://github.com/jlouis/erlang-utp">>},
                        {erlang_performance_lab,
                         <<"http://www.erlang.pl">>},
                        {riak_pipe,
                         <<"https://github.com/basho/riak_pipe">>},
                        {concuerror,
                         <<"https://github.com/mariachris/Concuerror">>},
                        {basho_bench,
                         <<"https://github.com/basho/basho_bench">>},
                        {elixir,
                         <<"http://elixir-lang.org">>}]},
                      {cool_community_sites,
                       [<<"http://erlangcentral.org">>,
                        <<"http://mostlyerlang.com">>]},
                      {erlang_user_of_the_year,
                       <<"Loïc Hoguin">>}]),
    drink(EUC2013Conf2),
    close(EUC2013Conf2).


start(Opts) when is_list(Opts)->
    {awesome, Opts}.

controlling_process(Opts, Controller)->
    set_opts(Opts, [{controller, Controller}]).

listen(_Conf)->
    ok.

set_opts(Opts, NewOpts)->
    Opts ++ NewOpts.

drink(_Conf)->
    yeah.

close(Conf)->
    Conf.