Lines Matching defs:modified
1 ;;; erc-track.el --- Track modified channel buffers
188 "Where to show modified channel information in the mode-line.
208 (defun erc-modified-channels-object (strings)
209 "Generate a new `erc-modified-channels-object' based on STRINGS.
210 If STRINGS is nil, we initialize `erc-modified-channels-object' to
230 (defvar erc-modified-channels-object (erc-modified-channels-object nil)
231 "Internal object used for displaying modified channels in the mode line.")
233 (put 'erc-modified-channels-object 'risky-local-variable t); allow properties
235 (defvar erc-modified-channels-alist nil
278 "Remove `erc-track-modified-channels' from the mode-line"
281 (remove '(t erc-modified-channels-object) mode-line-modes)))
284 (delq 'erc-modified-channels-object global-mode-string))))
287 "Add `erc-track-modified-channels' to POSITION in the mode-line.
294 '(t erc-modified-channels-object)))
298 '(t erc-modified-channels-object) t))
303 'erc-modified-channels-object
585 (setq erc-modified-channels-object (erc-modified-channels-object nil))
589 (erc-modified-channels-update))
591 'erc-modified-channels-update))
592 (add-hook 'erc-insert-post-hook 'erc-track-modified-channels)
593 (add-hook 'erc-disconnected-hook 'erc-modified-channels-update))
612 'erc-modified-channels-update))
613 (remove-hook 'erc-disconnected-hook 'erc-modified-channels-update)
614 (remove-hook 'erc-insert-post-hook 'erc-track-modified-channels))
645 (erc-track-modified-channels))
658 (defvar erc-modified-channels-update-inside nil
659 "Variable to prevent running `erc-modified-channels-update' multiple
660 times. Without it, you cannot debug `erc-modified-channels-display',
663 (defun erc-modified-channels-update (&rest args)
664 "This function updates the information in `erc-modified-channels-alist'
666 `erc-modified-channels-display' at the end. This should usually be
670 (unless erc-modified-channels-update-inside
671 (let ((erc-modified-channels-update-inside t))
679 (erc-modified-channels-remove-buffer buffer))))
680 erc-modified-channels-alist)
681 (erc-modified-channels-display)
728 (defun erc-modified-channels-display ()
729 "Set `erc-modified-channels-object'
730 according to `erc-modified-channels-alist'.
736 (if (null erc-modified-channels-alist)
737 (setq erc-modified-channels-object (erc-modified-channels-object nil))
738 ;; erc-modified-channels-alist contains all the data we need. To
742 ;; `erc-modified-channels-object' using
744 (let* ((buffers (mapcar 'car erc-modified-channels-alist))
745 (counts (mapcar 'cadr erc-modified-channels-alist))
746 (faces (mapcar 'cddr erc-modified-channels-alist))
769 (erc-modified-channels-object nil))
770 (setq erc-modified-channels-object
771 (erc-modified-channels-object strings)))))
773 (defun erc-modified-channels-remove-buffer (buffer)
774 "Remove BUFFER from `erc-modified-channels-alist'."
776 (setq erc-modified-channels-alist
777 (delete (assq buffer erc-modified-channels-alist)
778 erc-modified-channels-alist))
780 (erc-modified-channels-display)))
795 (defun erc-track-modified-channels ()
797 buffer should be added to the modeline as a hidden, modified
817 ;; priority list, add the buffer to the erc-modified-channels-alist,
820 ;; necessary. See `erc-modified-channels-alist' for the
830 (if (not (assq (current-buffer) erc-modified-channels-alist))
832 (setq erc-modified-channels-alist
835 erc-modified-channels-alist))
839 erc-modified-channels-alist))
847 (erc-modified-channels-display)))
852 (assq (current-buffer) erc-modified-channels-alist)
856 (erc-modified-channels-remove-buffer (current-buffer))
857 (erc-modified-channels-display)))))
884 "Sort erc-modified-channels-alist by activity.
886 (setq erc-modified-channels-alist
887 (sort erc-modified-channels-alist
891 "Return the buffer name of ARG in `erc-modified-channels-alist'.
905 (- (length erc-modified-channels-alist) arg))
908 (cond ((>= offset (length erc-modified-channels-alist))
909 (setq offset (1- (length erc-modified-channels-alist))))
912 (car (nth offset erc-modified-channels-alist))))
922 (cond (erc-modified-channels-alist