mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(gs/emacs): Use IRCCloud bouncer

Browse source 
Not using znc.gws.fyi anymore

Change-Id: I6461096c949d68fdb0a061359e7273ccae9f5fef
Reviewed-on: https://cl.tvl.fyi/c/depot/+/955
Reviewed-by: glittershark <grfn@gws.fyi>
This commit is contained in:
Griffin Smith 2020-07-08 16:20:22 -04:00 committed by glittershark
parent 2c7e9986e2
commit df80e19bf5
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
users/glittershark/emacs.d/irc.el
View file

@ -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))))