               ;; msync_client@localhost
               ;;"message@localhost"
               ;;"ejabberd@wangchunye"
-              "msync2@wangchunye"
+              ;; "etcd@localhost"
+              ;;"ejabberd@wangchunye"
+              "xmpp@localhost"
+              ;;"xmpp@localhost"
               "-hidden"
               ))
   (setenv "ERL_ROOT" erlang-root-dir)

		      ("!" . shell-command)
		      ("RET" . execute-extended-command)
		      )))
	  )))
    ))
(wcy-adhoc-clipboard-enable)
(add-to-list 'emulation-mode-map-alists
	     'wcy-emulation-mode-map-alist)

;;; --------------------- MY SETTINGS -----------------------
;; do NOT add whitespace as needed when inserting parentheses.
(setq parens-require-spaces nil)

          (define-key erlang-mode-map (kbd "<f7>") #'erlang-compile)
          (dolist (spec distel-shell-keys)
            (define-key erlang-shell-mode-map (read-kbd-macro (car spec)) (cadr spec))))

        (add-hook 'erlang-shell-mode-hook 'erlang-shell-mode-hook-1)))))
;;; -------------------  DONE --------------------------------
;; setq inhibit-startup-message to show "*scratch*" as the initial
