1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
emacs/lisp/erc/erc-imenu.el

137 lines
4.4 KiB
EmacsLisp

;;; erc-imenu.el -- Imenu support for ERC
;; Copyright (C) 2001-2002, 2004, 2006-2012 Free Software Foundation, Inc.
;; Author: Mario Lang <mlang@delysid.org>
;; Maintainer: FSF
;; Keywords: comm
;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcImenu
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; This file contains code related to Ibuffer and ERC. Totally alpha,
;; needs work. Usage: Type / C-e C-h when in Ibuffer-mode to see new
;; limiting commands
;;; Code:
;;; Commentary:
;; This package defines the function `erc-create-imenu-index'. ERC
;; uses this for `imenu-create-index-function', and autoloads it.
;; Therefore, nothing needs to be done to use this package.
;;; Code:
(require 'erc)
(require 'imenu)
(defun erc-unfill-notice ()
"Return text from point to a computed end as a string unfilled.
Don't rely on this function, read it first!"
(let ((str (buffer-substring
(save-excursion
(re-search-forward (regexp-quote erc-notice-prefix)))
(progn
(while (save-excursion
(forward-line 1)
(looking-at " "))
(forward-line 1))
(end-of-line) (point)))))
(with-temp-buffer
(insert str)
(goto-char (point-min))
(while (re-search-forward "\n +" nil t)
(replace-match " "))
(buffer-substring (point-min) (point-max)))))
;;;###autoload
(defun erc-create-imenu-index ()
(let ((index-alist '())
(notice-alist '())
(join-alist '())
(left-alist '())
(quit-alist '())
(message-alist '())
(mode-change-alist '())
(topic-change-alist '())
prev-pos)
(goto-char (point-max))
(imenu-progress-message prev-pos 0)
(while (if (bolp)
(> (forward-line -1)
-1)
(progn (forward-line 0)
t))
(imenu-progress-message prev-pos nil t)
(save-match-data
(when (looking-at (concat (regexp-quote erc-notice-prefix)
"\\(.+\\)$"))
(let ((notice-text ;; Ugly hack, but seems to work.
(save-excursion (erc-unfill-notice)))
(pos (point)))
(push (cons notice-text pos) notice-alist)
(or
(when (string-match "^\\(.*\\) has joined channel" notice-text)
(push (cons (match-string 1 notice-text) pos) join-alist))
(when (string-match "^\\(.+\\) has left channel" notice-text)
(push (cons (match-string 1 notice-text) pos) left-alist))
(when (string-match "^\\(.+\\) has quit\\(.*\\)$" notice-text)
(push (cons (concat (match-string 1 notice-text)
(match-string 2 notice-text))
(point))
quit-alist))
(when (string-match
"^\\(\\S-+\\) (.+) has changed mode for \\S-+ to \\(.*\\)$"
notice-text)
(push (cons (concat (match-string 1 notice-text) ": "
(match-string 2 notice-text))
(point))
mode-change-alist))
(when (string-match
"^\\(\\S-+\\) (.+) has set the topic for \\S-+: \\(.*\\)$"
notice-text)
(push (cons (concat (match-string 1 notice-text) ": "
(match-string 2 notice-text)) pos)
topic-change-alist)))))
(when (looking-at "<\\(\\S-+\\)> \\(.+\\)$")
(let ((from (match-string 1))
(message-text (match-string 2)))
(push (cons (concat from ": " message-text) (point))
message-alist)))))
(and notice-alist (push (cons "notices" notice-alist) index-alist))
(and join-alist (push (cons "joined" join-alist) index-alist))
(and left-alist (push (cons "parted" left-alist) index-alist))
(and quit-alist (push (cons "quit" quit-alist) index-alist))
(and mode-change-alist (push (cons "mode-change" mode-change-alist)
index-alist))
(and message-alist (push (cons "messages" message-alist) index-alist))
(and topic-change-alist (push (cons "topic-change" topic-change-alist)
index-alist))
index-alist))
(provide 'erc-imenu)
;;; erc-imenu.el ends here
;;
;; Local Variables:
;; indent-tabs-mode: t
;; tab-width: 8
;; End: