From bbea618a98251d1699ed0b1035b32d54f36bb342 Mon Sep 17 00:00:00 2001 From: Griffin Smith Date: Wed, 13 Jan 2021 10:16:49 -0500 Subject: feat(gs/emacs): Add commands to enable/disable tvl notifications Change-Id: Ie43680eeb963e9328adc9f79107fff2d0911cc99 Reviewed-on: https://cl.tvl.fyi/c/depot/+/2362 Tested-by: BuildkiteCI Reviewed-by: glittershark --- users/glittershark/emacs.d/irc.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'users/glittershark') diff --git a/users/glittershark/emacs.d/irc.el b/users/glittershark/emacs.d/irc.el index 866c7d5565..6d378fe207 100644 --- a/users/glittershark/emacs.d/irc.el +++ b/users/glittershark/emacs.d/irc.el @@ -28,6 +28,14 @@ (setq tvl-enabled? t) +(defun disable-tvl-notifications () + (interactive) + (setq tvl-enabled? nil)) + +(defun enable-tvl-notifications () + (interactive) + (setq tvl-enabled? t)) + (defun erc-alert-important-p (info) (let ((message (plist-get info :message)) (erc-message (-> info (plist-get :data) (plist-get :message))) -- cgit 1.4.1