ERC Changes

1 files changed, 52 insertions, 2 deletions

@@ -128,10 +128,13 @@ Truncation is customized using the `erc-nick-truncate' variable.
 See also `erc-format-nick-function'."
   (when user
     (let* ((nick (erc-server-user-nickname user))
+           (prefix (erc-get-user-mode-prefix nick))
            (ellipsis "~")
-           (max-len (- erc-nick-truncate 2 (length ellipsis))))
+           (max-len (- erc-nick-truncate 2 ; one each for < and >
+                       (length ellipsis)
+                       (length prefix))))
       (concat (erc-propertize
-               (erc-get-user-mode-prefix nick)
+               prefix
                'font-lock-face 'erc-nick-prefix-face)
               (if (and max-len (> (length nick) max-len))
                   (format "%s%s" (substring nick 0 max-len)
@@ -147,5 +150,52 @@ Reverse prefix argument from `erc-switch-to-buffer'."
   (interactive "P")
   (erc-switch-to-buffer (not arg)))
 
+
+;;; ERC-Bar
+;; NEEDS MUCH WORK
+
+(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 0
+  "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))
+
+
+(with-eval-after-load 'erc-track
+  (overlay-put erc-bar-overlay 'face '(:underline "gray"))
+
+  ;;put the hook before erc-modified-channels-update
+  (defadvice erc-track-mode (after erc-bar-setup-hook
+                                   (&rest args) activate)
+    (add-hook 'window-configuration-change-hook 'erc-bar-update-overlay -90))
+
+  (add-hook 'erc-send-completed-hook (lambda (str)
+                                       (erc-bar-update-overlay))))
+
+
 (provide 'acdw-erc)
 ;;; acdw-erc.el ends here