X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/blobdiff_plain/0b0b4e44187b16c2650ab5655d1ce9f9e2714e9f..56fe44972a5871c713fee75ca255e540a658f4ec:/spacemacs/.emacs.d/private/aminb/packages.el

diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el
index b59d7b5..0ff24e0 100644
--- a/spacemacs/.emacs.d/private/aminb/packages.el
+++ b/spacemacs/.emacs.d/private/aminb/packages.el
@@ -70,6 +70,38 @@
       ;; Restore channel buffers from logs
       (setq erc-log-insert-log-on-open t)
 
+      ;;; (BEGIN) work around log restoration bug
+      ;;  taken from https://www.emacswiki.org/emacs/ErcLogging
+
+      ;; ;;; Original version in the Emacs sources:
+      ;; (defun erc-log-all-but-server-buffers (buffer)
+      ;;   "Returns t if logging should be enabled in BUFFER.
+      ;; Returns nil if `erc-server-buffer-p' returns t."
+      ;;   (save-excursion
+      ;;     (save-window-excursion
+      ;;       (set-buffer buffer)
+      ;;       (not (erc-server-buffer-p)))))
+
+      ;; My version:
+      (defun erc-log-all-but-server-buffers (buffer)
+        (with-current-buffer buffer
+          (not (erc-server-buffer-p))))
+      ;;
+      ;; ;;; Anyway, a more direct modification also works fine:
+      ;; (defun erc-log-all-but-server-buffers (buffer)
+      ;;  (set-buffer buffer)
+      ;;  (not (erc-server-buffer-p)))
+      ;;; (END)
+
+      (require 'notifications)
+      (defun erc-global-notify (match-type nick message)
+        "Notify when a message is recieved."
+        (notifications-notify
+         :title nick
+         :body message
+         ;; :app-icon (concat spacemacs-assets-directory "spacemacs.svg")
+         :urgency 'normal))
+
       (defun vbe:znc-add-server (server port user networks)
         "Add a server to the list of ZNC servers.
 We use SSL inconditionaly. Moreover, we don't store the password