diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/core/ephraim_conn.erl | 6 | ||||
-rw-r--r-- | src/core/ephraim_conv.erl | 2 | ||||
-rw-r--r-- | src/core/ephraim_util.erl | 18 |
3 files changed, 22 insertions, 4 deletions
diff --git a/src/core/ephraim_conn.erl b/src/core/ephraim_conn.erl index 65bbacc..ee57284 100644 --- a/src/core/ephraim_conn.erl +++ b/src/core/ephraim_conn.erl @@ -11,10 +11,10 @@ init() -> application:start(exmpp), Session = exmpp_session:start(), - JID = exmpp_jid:make("ephraim-test", "jabber.ccc.de", "Bar"), - exmpp_session:auth_basic_digest(Session, JID, "foobarbla"), + JID = exmpp_jid:make("ephraim", "localhost", "Bar"), + exmpp_session:auth_basic_digest(Session, JID, "test"), io:format("Connecting...~n"), - exmpp_session:connect_TCP(Session, "jabber.ccc.de", 5222), + exmpp_session:connect_TCP(Session, "localhost", 5222), io:format("Connected.~n"), session(#conn_state{session=Session}). diff --git a/src/core/ephraim_conv.erl b/src/core/ephraim_conv.erl index ac4c26d..dbf84c8 100644 --- a/src/core/ephraim_conv.erl +++ b/src/core/ephraim_conv.erl @@ -21,7 +21,7 @@ loop(State) -> {receive_message, Packet} -> Type = exmpp_message:get_type(Packet), Body = exmpp_message:get_body(Packet), - io:format("Received message from ~p:~n~p~n", [State#conv_state.jid, Packet]), + %io:format("Received message from ~p:~n~p~n", [State#conv_state.jid, Packet]), ephraim ! {ui_update, {receive_message, State#conv_state.jid, Type, Body}}, loop(State); diff --git a/src/core/ephraim_util.erl b/src/core/ephraim_util.erl index 73cb7fc..cdf9cea 100644 --- a/src/core/ephraim_util.erl +++ b/src/core/ephraim_util.erl @@ -8,3 +8,21 @@ send_all(Dest, Message) -> -spec send_all_values(dict(), term()) -> term(). send_all_values(Dest, Message) -> dict:fold(fun(_,Value,Msg) -> Value ! Msg end, Message, Dest). + +-spec config_path() -> string(). +config_path() -> + Path = case os:getenv("XDG_CONFIG_HOME") of + false -> + os:getenv("HOME") ++ "/.config"; + ConfigHome -> + ConfigHome + end ++ "/ephraim", + case file:read_file_info(Path) of + {ok, _} -> + ok; + {error, _} -> + file:make_dir(Path) + end, + Path. + + |