emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

app/irc: clean up timer & notifications on quit

Browse source
This commit is contained in:
Henrik Lissner 2017-06-12 14:35:41 +02:00
parent 7f76dabfd0
commit 01dc170e5b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
modules/app/irc/autoload/irc.el
View file

@ -35,6 +35,9 @@
(if (y-or-n-p "Really kill IRC session?")
(let (circe-channel-killed-confirmation
circe-server-killed-confirmation)
(when +irc--defer-timer
(cancel-timer +irc--defer-timer))
(disable-circe-notifications)
(mapcar #'kill-buffer (doom-buffers-in-mode 'circe-mode (buffer-list) t))
(when (equal (+workspace-current-name) +irc--workspace-name)
(+workspace/delete +irc--workspace-name)))

6
modules/app/irc/config.el
View file

@ -28,6 +28,8 @@ playback.")
`(cl-pushnew (cons ,server ,letvars) +irc-connections
:test #'equal :key #'car))
(defvar +irc--defer-timer nil)
;;
;; Plugins
@ -141,7 +143,9 @@ playback.")
:init
(if +irc-defer-notifications
(add-hook! 'circe-server-connected-hook
(run-at-time +irc-defer-notifications nil #'enable-circe-notifications))
(setq +irc--defer-timer
(run-at-time +irc-defer-notifications nil
#'enable-circe-notifications)))
(add-hook 'circe-server-connected-hook #'enable-circe-notifications))
:config
(setq circe-notifications-watch-strings +irc-notifications-watch-strings