From 8568bfb001d6b6a1059d7c8520a9b5f357528435 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sun, 11 Dec 2016 22:00:12 -0500 Subject: [PATCH 1/1] Add ErcBar, also restore channel buffers from logs --- spacemacs/.emacs.d/private/aminb/packages.el | 48 ++++++++++++++++++++ spacemacs/.spacemacs | 3 -- 2 files changed, 48 insertions(+), 3 deletions(-) diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el index 919b271..99dd649 100644 --- a/spacemacs/.emacs.d/private/aminb/packages.el +++ b/spacemacs/.emacs.d/private/aminb/packages.el @@ -42,6 +42,12 @@ "aiz" 'znc-erc) :config (progn + ;; Set the erc nick completion postfix to ", " + (setq erc-pcomplete-nick-postfix ", ") + + ;; Restore channel buffers from logs + (setq erc-log-insert-log-on-open t) + (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 @@ -79,6 +85,48 @@ the appropriate network slug that we extract from the nick." ;; Define networks (vbe:znc-add-server "nix.aminb.org" 6669 "amin" '(freenode mozilla)) + + ;; https://www.emacswiki.org/emacs/ErcBar + ;; Display a bar before unread messages + (eval-after-load 'erc-track + '(progn + (defun erc-bar-move-back (n) + "Moves back n message lines. Ignores wrapping, and server messages." + (interactive "nHow many lines ? ") + (re-search-backward "^.*<.*>" nil t n)) + + (defun erc-bar-update-overlay () + "Update the overlay for current buffer, based on the content of +erc-modified-channels-alist. Should be executed on window change." + (interactive) + (let* ((info (assq (current-buffer) erc-modified-channels-alist)) + (count (cadr info))) + (if (and info (> count erc-bar-threshold)) + (save-excursion + (end-of-buffer) + (when (erc-bar-move-back count) + (let ((inhibit-field-text-motion t)) + (move-overlay erc-bar-overlay + (line-beginning-position) + (line-end-position) + (current-buffer))))) + (delete-overlay erc-bar-overlay)))) + + (defvar erc-bar-threshold 1 + "Display bar when there are more than erc-bar-threshold unread messages.") + (defvar erc-bar-overlay nil + "Overlay used to set bar") + (setq erc-bar-overlay (make-overlay 0 0)) + (overlay-put erc-bar-overlay 'face '(:underline "purple")) + ;;put the hook before erc-modified-channels-update + (defadvice erc-track-mode (after erc-bar-setup-hook + (&rest args) activate) + ;;remove and add, so we know it's in the first place + (remove-hook 'window-configuration-change-hook 'erc-bar-update-overlay) + (add-hook 'window-configuration-change-hook 'erc-bar-update-overlay)) + (add-hook 'erc-send-completed-hook (lambda (str) + (erc-bar-update-overlay))))) + ))) ;;; packages.el ends here diff --git a/spacemacs/.spacemacs b/spacemacs/.spacemacs index 2d97947..fe3574f 100644 --- a/spacemacs/.spacemacs +++ b/spacemacs/.spacemacs @@ -351,9 +351,6 @@ you should place your code here." ;; Use emacs mode for eshell ;; (evil-set-initial-state 'eshell-mode 'emacs) - - ;; Set the erc nick completion postfix to ", " - ;; (setq erc-pcomplete-nick-postfix ", ") ) ;; Do not write anything past this comment. This is where Emacs will -- 2.20.1