diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-08-19 12:15:00 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2012-08-19 12:15:00 +0200 |
| commit | 14fb45c2d47095381da6df8d5b5e151319d404ef (patch) | |
| tree | ca28cd3894593493f1ac78146a5941b4108043fa /src | |
| parent | 124fac537f3b06091eb2d5a6752acaaaa3c64187 (diff) | |
Support disabling XMPP support.
Diffstat (limited to 'src')
| -rw-r--r-- | src/mulk/benki/xmpp.clj | 10 |
1 files changed, 6 insertions, 4 deletions
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))))) |