about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--users/grfn/emacs.d/irc.el12
1 files changed, 9 insertions, 3 deletions
diff --git a/users/grfn/emacs.d/irc.el b/users/grfn/emacs.d/irc.el
index 8664b7a2896e..117869599d83 100644
--- a/users/grfn/emacs.d/irc.el
+++ b/users/grfn/emacs.d/irc.el
@@ -3,9 +3,15 @@
 (require 'erc)
 (require 'alert)
 
-(defun irc-connect ()
-  (interactive)
-  (let ((pw (s-trim (shell-command-to-string "pass irccloud/freenode")))
+(defvar irc-servers
+  '("hackint"
+    "libera"))
+
+(defun irc-connect (server)
+  (interactive
+   (list (ivy-read "Server: " irc-servers)))
+  (let ((pw (s-trim (shell-command-to-string
+                     (format "pass irccloud/%s" server))))
         (gnutls-verify-error nil))
     (erc-tls :server "bnc.irccloud.com"
              :port 6697