about summary refs log tree commit diff
path: root/users/glittershark/emacs.d
diff options
context:
space:
mode:
Diffstat (limited to 'users/glittershark/emacs.d')
-rw-r--r--users/glittershark/emacs.d/irc.el18
1 files changed, 8 insertions, 10 deletions
diff --git a/users/glittershark/emacs.d/irc.el b/users/glittershark/emacs.d/irc.el
index 1d56d787c422..8ff48e994efb 100644
--- a/users/glittershark/emacs.d/irc.el
+++ b/users/glittershark/emacs.d/irc.el
@@ -5,16 +5,15 @@
 
 (defun irc-connect ()
   (interactive)
-  (let ((pw (let* ((irc-pw (first
-                            (auth-source-search :host "znc.gws.fyi"
-                                                      :max 1)))
-                   (secret (plist-get irc-pw :secret)))
-              (if (functionp secret) (funcall secret))))
+  (let ((pw (s-trim (shell-command-to-string "pass irccloud/freenode")))
         (gnutls-verify-error nil))
-    (erc-tls :server "znc.gws.fyi"
-             :port 5000
-             :nick "glittershark"
-             :password (concat "glittershark/freenode:" pw))))
+    (erc-tls :server "bnc.irccloud.com"
+             :port 6697
+             :nick "grfn"
+             :password (concat "bnc@"
+                               (s-trim (shell-command-to-string "hostname"))
+                               ":"
+                               pw))))
 
 
 (defgroup erc-alert nil
@@ -30,7 +29,6 @@
 (setq tvl-enabled? t)
 
 (defun erc-alert-important-p (info)
-  (setq last-info info)
   (let ((message (plist-get info :message))
         (erc-message (-> info (plist-get :data) (plist-get :message)))
         (erc-channel (-> info (plist-get :data) (plist-get :channel))))