From b66c4b8549bc64aae8780a98851ea59850024a58 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sat, 17 Jul 2010 13:30:16 +0200
Subject: Added function to get config dir.

---
 src/core/ephraim_conn.erl |  6 +++---
 src/core/ephraim_conv.erl |  2 +-
 src/core/ephraim_util.erl | 18 ++++++++++++++++++
 3 files changed, 22 insertions(+), 4 deletions(-)

(limited to 'src/core')

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.
+
+		       
-- 
cgit v1.2.3