From 14fb45c2d47095381da6df8d5b5e151319d404ef Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 19 Aug 2012 12:15:00 +0200
Subject: Support disabling XMPP support.

---
 src/mulk/benki/xmpp.clj | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/mulk/benki/xmpp.clj b/src/mulk/benki/xmpp.clj
index c23f613..77a37e4 100644
--- a/src/mulk/benki/xmpp.clj
+++ b/src/mulk/benki/xmpp.clj
@@ -90,7 +90,9 @@
                     (enqueue messages-in {:sender (.getParticipant chat) :body body}))))))))))))
 
 (defn init-xmpp! []
-  (future
-    (reconnect!)
-    (handle-incoming-chats)
-    (startup-client)))
+  (when-let [xmpp-config (get @benki-config :xmpp)]
+    (when (get xmpp-config :enabled true)
+      (future
+        (reconnect!)
+        (handle-incoming-chats)
+        (startup-client)))))
-- 
cgit v1.2.3