code.delx.au - gnu-emacs/blob - lisp/erc/erc-match.el

   1 ;;; erc-match.el --- Highlight messages matching certain regexps
   2
   3 ;; Copyright (C) 2002-2015 Free Software Foundation, Inc.
   4
   5 ;; Author: Andreas Fuchs <asf@void.at>
   6 ;; Maintainer: emacs-devel@gnu.org
   7 ;; Keywords: comm, faces
   8 ;; URL: http://www.emacswiki.org/cgi-bin/wiki.pl?ErcMatch
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;; This file includes stuff to work with pattern matching in ERC. If
  28 ;; you were used to customizing erc-fools, erc-keywords, erc-pals,
  29 ;; erc-dangerous-hosts and the like, this file contains these
  30 ;; customizable variables.
  31
  32 ;; Usage:
  33 ;; Put (erc-match-mode 1) into your init file.
  34
  35 ;;; Code:
  36
  37 (require 'erc)
  38
  39 ;; Customization:
  40
  41 (defgroup erc-match nil
  42   "Keyword and Friend/Foe/... recognition.
  43 Group containing all things concerning pattern matching in ERC
  44 messages."
  45   :group 'erc)
  46
  47 ;;;###autoload (autoload 'erc-match-mode "erc-match")
  48 (define-erc-module match nil
  49   "This mode checks whether messages match certain patterns.  If so,
  50 they are hidden or highlighted.  This is controlled via the variables
  51 `erc-pals', `erc-fools', `erc-keywords', `erc-dangerous-hosts', and
  52 `erc-current-nick-highlight-type'.  For all these highlighting types,
  53 you can decide whether the entire message or only the sending nick is
  54 highlighted."
  55   ((add-hook 'erc-insert-modify-hook 'erc-match-message 'append))
  56   ((remove-hook 'erc-insert-modify-hook 'erc-match-message)))
  57
  58 ;; Remaining customizations
  59
  60 (defcustom erc-pals nil
  61   "List of pals on IRC."
  62   :group 'erc-match
  63   :type '(repeat regexp))
  64
  65 (defcustom erc-fools nil
  66   "List of fools on IRC."
  67   :group 'erc-match
  68   :type '(repeat regexp))
  69
  70 (defcustom erc-keywords nil
  71   "List of keywords to highlight in all incoming messages.
  72 Each entry in the list is either a regexp, or a cons cell with the
  73 regexp in the car and the face to use in the cdr.  If no face is
  74 specified, `erc-keyword-face' is used."
  75   :group 'erc-match
  76   :type '(repeat (choice regexp
  77                          (list regexp face))))
  78
  79 (defcustom erc-dangerous-hosts nil
  80   "List of regexps for hosts to highlight.
  81 Useful to mark nicks from dangerous hosts."
  82   :group 'erc-match
  83   :type '(repeat regexp))
  84
  85 (defcustom erc-current-nick-highlight-type 'keyword
  86   "Determines how to highlight text in which your current nickname appears
  87 \(does not apply to text sent by you).
  88
  89 The following values are allowed:
  90
  91  nil               - do not highlight the message at all
  92  `keyword'         - highlight all instances of current nickname in message
  93  `nick'            - highlight the nick of the user who typed your nickname
  94  `nick-or-keyword' - highlight the nick of the user who typed your nickname,
  95                      or all instances of the current nickname if there was
  96                      no sending user
  97  `all'             - highlight the entire message where current nickname occurs
  98
  99 Any other value disables highlighting of current nickname altogether."
 100   :group 'erc-match
 101   :type '(choice (const nil)
 102                  (const nick)
 103                  (const keyword)
 104                  (const nick-or-keyword)
 105                  (const all)))
 106
 107 (defcustom erc-pal-highlight-type 'nick
 108   "Determines how to highlight messages by pals.
 109 See `erc-pals'.
 110
 111 The following values are allowed:
 112
 113     nil    - do not highlight the message at all
 114     `nick' - highlight pal's nickname only
 115     `all'  - highlight the entire message from pal
 116
 117 Any other value disables pal highlighting altogether."
 118   :group 'erc-match
 119   :type '(choice (const nil)
 120                  (const nick)
 121                  (const all)))
 122
 123 (defcustom erc-fool-highlight-type 'nick
 124   "Determines how to highlight messages by fools.
 125 See `erc-fools'.
 126
 127 The following values are allowed:
 128
 129     nil    - do not highlight the message at all
 130     `nick' - highlight fool's nickname only
 131     `all'  - highlight the entire message from fool
 132
 133 Any other value disables fool highlighting altogether."
 134   :group 'erc-match
 135   :type '(choice (const nil)
 136                  (const nick)
 137                  (const all)))
 138
 139 (defcustom erc-keyword-highlight-type 'keyword
 140   "Determines how to highlight messages containing keywords.
 141 See variable `erc-keywords'.
 142
 143 The following values are allowed:
 144
 145     `keyword' - highlight keyword only
 146     `all'     - highlight the entire message containing keyword
 147
 148 Any other value disables keyword highlighting altogether."
 149   :group 'erc-match
 150   :type '(choice (const nil)
 151                  (const keyword)
 152                  (const all)))
 153
 154 (defcustom erc-dangerous-host-highlight-type 'nick
 155   "Determines how to highlight messages by nicks from dangerous-hosts.
 156 See `erc-dangerous-hosts'.
 157
 158 The following values are allowed:
 159
 160     `nick' - highlight nick from dangerous-host only
 161     `all'  - highlight the entire message from dangerous-host
 162
 163 Any other value disables dangerous-host highlighting altogether."
 164   :group 'erc-match
 165   :type '(choice (const nil)
 166                  (const nick)
 167                  (const all)))
 168
 169
 170 (defcustom erc-log-matches-types-alist '((keyword . "ERC Keywords"))
 171   "Alist telling ERC where to log which match types.
 172 Valid match type keys are:
 173 - keyword
 174 - pal
 175 - dangerous-host
 176 - fool
 177 - current-nick
 178
 179 The other element of each cons pair in this list is the buffer name to
 180 use for the logged message."
 181   :group 'erc-match
 182   :type '(repeat (cons (choice :tag "Key"
 183                                (const keyword)
 184                                (const pal)
 185                                (const dangerous-host)
 186                                (const fool)
 187                                (const current-nick))
 188                        (string :tag "Buffer name"))))
 189
 190 (defcustom erc-log-matches-flag 'away
 191   "Flag specifying when matched message logging should happen.
 192 When nil, don't log any matched messages.
 193 When t, log messages.
 194 When `away', log messages only when away."
 195   :group 'erc-match
 196   :type '(choice (const nil)
 197                  (const away)
 198                  (const t)))
 199
 200 (defcustom erc-log-match-format "%t<%n:%c> %m"
 201   "Format for matched Messages.
 202 This variable specifies how messages in the corresponding log buffers will
 203 be formatted. The various format specs are:
 204
 205 %t Timestamp (uses `erc-timestamp-format' if non-nil or \"[%Y-%m-%d %H:%M] \")
 206 %n Nickname of sender
 207 %u Nickname!user@host of sender
 208 %c Channel in which this was received
 209 %m Message"
 210   :group 'erc-match
 211   :type 'string)
 212
 213 (defcustom erc-beep-match-types '(current-nick)
 214   "Types of matches to beep for when a match occurs.
 215 The function `erc-beep-on-match' needs to be added to `erc-text-matched-hook'
 216 for beeping to work."
 217   :group 'erc-match
 218   :type '(choice (repeat :tag "Beep on match" (choice
 219                                                (const current-nick)
 220                                                (const keyword)
 221                                                (const pal)
 222                                                (const dangerous-host)
 223                                                (const fool)))
 224                  (const :tag "Don't beep" nil)))
 225
 226 (defcustom erc-text-matched-hook '(erc-log-matches)
 227   "Hook run when text matches a given match-type.
 228 Functions in this hook are passed as arguments:
 229 \(match-type nick!user@host message) where MATCH-TYPE is a symbol of:
 230 current-nick, keyword, pal, dangerous-host, fool"
 231   :options '(erc-log-matches erc-hide-fools erc-beep-on-match)
 232   :group 'erc-match
 233   :type 'hook)
 234
 235 (defcustom erc-match-exclude-server-buffer nil
 236   "If true, don't perform match on the server buffer; this is
 237 useful for excluding all the things like MOTDs from the server
 238 and other miscellaneous functions."
 239   :group 'erc-match
 240   :version "24.3"
 241   :type 'boolean)
 242
 243 ;; Internal variables:
 244
 245 ;; This is exactly the same as erc-button-syntax-table.  Should we
 246 ;; just put it in erc.el
 247 (defvar erc-match-syntax-table
 248   (let ((table (make-syntax-table)))
 249     (modify-syntax-entry ?\( "w" table)
 250     (modify-syntax-entry ?\) "w" table)
 251     (modify-syntax-entry ?\[ "w" table)
 252     (modify-syntax-entry ?\] "w" table)
 253     (modify-syntax-entry ?\{ "w" table)
 254     (modify-syntax-entry ?\} "w" table)
 255     (modify-syntax-entry ?` "w" table)
 256     (modify-syntax-entry ?' "w" table)
 257     (modify-syntax-entry ?^ "w" table)
 258     (modify-syntax-entry ?- "w" table)
 259     (modify-syntax-entry ?_ "w" table)
 260     (modify-syntax-entry ?| "w" table)
 261     (modify-syntax-entry ?\\ "w" table)
 262     table)
 263   "Syntax table used when highlighting messages.
 264 This syntax table should make all the valid nick characters word
 265 constituents.")
 266
 267 ;; Faces:
 268
 269 (defface erc-current-nick-face '((t :weight bold :foreground "DarkTurquoise"))
 270   "ERC face for occurrences of your current nickname."
 271   :group 'erc-faces)
 272
 273 (defface erc-dangerous-host-face '((t :foreground "red"))
 274   "ERC face for people on dangerous hosts.
 275 See `erc-dangerous-hosts'."
 276   :group 'erc-faces)
 277
 278 (defface erc-pal-face '((t :weight bold :foreground "Magenta"))
 279   "ERC face for your pals.
 280 See `erc-pals'."
 281   :group 'erc-faces)
 282
 283 (defface erc-fool-face '((t :foreground "dim gray"))
 284   "ERC face for fools on the channel.
 285 See `erc-fools'."
 286   :group 'erc-faces)
 287
 288 (defface erc-keyword-face '((t :weight bold :foreground "pale green"))
 289   "ERC face for your keywords.
 290 Note that this is the default face to use if
 291 `erc-keywords' does not specify another."
 292   :group 'erc-faces)
 293
 294 ;; Functions:
 295
 296 (defun erc-add-entry-to-list (list prompt &optional completions)
 297   "Add an entry interactively to a list.
 298 LIST must be passed as a symbol
 299 The query happens using PROMPT.
 300 Completion is performed on the optional alist COMPLETIONS."
 301   (let ((entry (completing-read
 302                 prompt
 303                 completions
 304                 (lambda (x)
 305                   (not (erc-member-ignore-case (car x) (symbol-value list)))))))
 306     (if (erc-member-ignore-case entry (symbol-value list))
 307         (error "\"%s\" is already on the list" entry)
 308       (set list (cons entry (symbol-value list))))))
 309
 310 (defun erc-remove-entry-from-list (list prompt)
 311   "Remove an entry interactively from a list.
 312 LIST must be passed as a symbol.
 313 The elements of LIST can be strings, or cons cells where the
 314 car is the string."
 315   (let* ((alist (mapcar (lambda (x)
 316                           (if (listp x)
 317                               x
 318                             (list x)))
 319                         (symbol-value list)))
 320          (entry (completing-read
 321                  prompt
 322                  alist
 323                  nil
 324                  t)))
 325     (if (erc-member-ignore-case entry (symbol-value list))
 326         ;; plain string
 327         (set list (delete entry (symbol-value list)))
 328       ;; cons cell
 329       (set list (delete (assoc entry (symbol-value list))
 330                         (symbol-value list))))))
 331
 332 ;;;###autoload
 333 (defun erc-add-pal ()
 334   "Add pal interactively to `erc-pals'."
 335   (interactive)
 336   (erc-add-entry-to-list 'erc-pals "Add pal: " (erc-get-server-nickname-alist)))
 337
 338 ;;;###autoload
 339 (defun erc-delete-pal ()
 340   "Delete pal interactively to `erc-pals'."
 341   (interactive)
 342   (erc-remove-entry-from-list 'erc-pals "Delete pal: "))
 343
 344 ;;;###autoload
 345 (defun erc-add-fool ()
 346   "Add fool interactively to `erc-fools'."
 347   (interactive)
 348   (erc-add-entry-to-list 'erc-fools "Add fool: "
 349                          (erc-get-server-nickname-alist)))
 350
 351 ;;;###autoload
 352 (defun erc-delete-fool ()
 353   "Delete fool interactively to `erc-fools'."
 354   (interactive)
 355   (erc-remove-entry-from-list 'erc-fools "Delete fool: "))
 356
 357 ;;;###autoload
 358 (defun erc-add-keyword ()
 359   "Add keyword interactively to `erc-keywords'."
 360   (interactive)
 361   (erc-add-entry-to-list 'erc-keywords "Add keyword: "))
 362
 363 ;;;###autoload
 364 (defun erc-delete-keyword ()
 365   "Delete keyword interactively to `erc-keywords'."
 366   (interactive)
 367   (erc-remove-entry-from-list 'erc-keywords "Delete keyword: "))
 368
 369 ;;;###autoload
 370 (defun erc-add-dangerous-host ()
 371   "Add dangerous-host interactively to `erc-dangerous-hosts'."
 372   (interactive)
 373   (erc-add-entry-to-list 'erc-dangerous-hosts "Add dangerous-host: "))
 374
 375 ;;;###autoload
 376 (defun erc-delete-dangerous-host ()
 377   "Delete dangerous-host interactively to `erc-dangerous-hosts'."
 378   (interactive)
 379   (erc-remove-entry-from-list 'erc-dangerous-hosts "Delete dangerous-host: "))
 380
 381 (defun erc-match-current-nick-p (nickuserhost msg)
 382   "Check whether the current nickname is in MSG.
 383 NICKUSERHOST will be ignored."
 384   (with-syntax-table erc-match-syntax-table
 385     (and msg
 386          (string-match (concat "\\b"
 387                                (regexp-quote (erc-current-nick))
 388                                "\\b")
 389                        msg))))
 390
 391 (defun erc-match-pal-p (nickuserhost msg)
 392   "Check whether NICKUSERHOST is in `erc-pals'.
 393 MSG will be ignored."
 394   (and nickuserhost
 395        (erc-list-match erc-pals nickuserhost)))
 396
 397 (defun erc-match-fool-p (nickuserhost msg)
 398   "Check whether NICKUSERHOST is in `erc-fools' or MSG is directed at a fool."
 399   (and msg nickuserhost
 400        (or (erc-list-match erc-fools nickuserhost)
 401            (erc-match-directed-at-fool-p msg))))
 402
 403 (defun erc-match-keyword-p (nickuserhost msg)
 404   "Check whether any keyword of `erc-keywords' matches for MSG.
 405 NICKUSERHOST will be ignored."
 406   (and msg
 407        (erc-list-match
 408         (mapcar (lambda (x)
 409                   (if (listp x)
 410                       (car x)
 411                     x))
 412                 erc-keywords)
 413         msg)))
 414
 415 (defun erc-match-dangerous-host-p (nickuserhost msg)
 416   "Check whether NICKUSERHOST is in `erc-dangerous-hosts'.
 417 MSG will be ignored."
 418   (and nickuserhost
 419        (erc-list-match erc-dangerous-hosts nickuserhost)))
 420
 421 (defun erc-match-directed-at-fool-p (msg)
 422   "Check whether MSG is directed at a fool.
 423 In order to do this, every entry in `erc-fools' will be used.
 424 In any of the following situations, MSG is directed at an entry FOOL:
 425
 426 - MSG starts with \"FOOL: \" or \"FOO, \"
 427 - MSG contains \", FOOL.\" (actually, \"\\s. FOOL\\s.\")"
 428   (let ((fools-beg (mapcar (lambda (entry)
 429                                  (concat "^" entry "[:,] "))
 430                            erc-fools))
 431         (fools-end (mapcar (lambda (entry)
 432                                  (concat "\\s. " entry "\\s."))
 433                                erc-fools)))
 434     (or (erc-list-match fools-beg msg)
 435         (erc-list-match fools-end msg))))
 436
 437 (defun erc-match-message ()
 438   "Mark certain keywords in a region.
 439 Use this defun with `erc-insert-modify-hook'."
 440   ;; This needs some refactoring.
 441   (goto-char (point-min))
 442   (let* ((to-match-nick-dep '("pal" "fool" "dangerous-host"))
 443          (to-match-nick-indep '("keyword" "current-nick"))
 444          (vector (erc-get-parsed-vector (point-min)))
 445          (nickuserhost (erc-get-parsed-vector-nick vector))
 446          (nickname (and nickuserhost
 447                         (nth 0 (erc-parse-user nickuserhost))))
 448          (old-pt (point))
 449          (nick-beg (and nickname
 450                         (re-search-forward (regexp-quote nickname)
 451                                            (point-max) t)
 452                         (match-beginning 0)))
 453          (nick-end (when nick-beg
 454                      (match-end 0)))
 455          (message (buffer-substring
 456                    (if (and nick-end
 457                             (<= (+ 2 nick-end) (point-max)))
 458                        ;; Message starts 2 characters after the nick
 459                        ;; except for CTCP ACTION messages.  Nick
 460                        ;; surrounded by angle brackets only in normal
 461                        ;; messages.
 462                        (+ nick-end
 463                           (if (eq ?> (char-after nick-end))
 464                               2
 465                             1))
 466                      (point-min))
 467                    (point-max))))
 468     (when (and vector
 469                (not (and erc-match-exclude-server-buffer
 470                          (erc-server-buffer-p))))
 471       (mapc
 472        (lambda (match-type)
 473          (goto-char (point-min))
 474          (let* ((match-prefix (concat "erc-" match-type))
 475                 (match-pred (intern (concat "erc-match-" match-type "-p")))
 476                 (match-htype (eval (intern (concat match-prefix
 477                                                    "-highlight-type"))))
 478                 (match-regex (if (string= match-type "current-nick")
 479                                  (regexp-quote (erc-current-nick))
 480                                (eval (intern (concat match-prefix "s")))))
 481                 (match-face (intern (concat match-prefix "-face"))))
 482            (when (funcall match-pred nickuserhost message)
 483              (cond
 484               ;; Highlight the nick of the message
 485               ((and (eq match-htype 'nick)
 486                     nick-end)
 487                (erc-put-text-property
 488                 nick-beg nick-end
 489                 'face match-face (current-buffer)))
 490               ;; Highlight the nick of the message, or the current
 491               ;; nick if there's no nick in the message (e.g. /NAMES
 492               ;; output)
 493               ((and (string= match-type "current-nick")
 494                     (eq match-htype 'nick-or-keyword))
 495                (if nick-end
 496                    (erc-put-text-property
 497                     nick-beg nick-end
 498                     'face match-face (current-buffer))
 499                  (goto-char (+ 2 (or nick-end
 500                                      (point-min))))
 501                  (while (re-search-forward match-regex nil t)
 502                    (erc-put-text-property (match-beginning 0) (match-end 0)
 503                                           'face match-face))))
 504               ;; Highlight the whole message
 505               ((eq match-htype 'all)
 506                (erc-put-text-property
 507                 (point-min) (point-max)
 508                 'face match-face (current-buffer)))
 509               ;; Highlight all occurrences of the word to be
 510               ;; highlighted.
 511               ((and (string= match-type "keyword")
 512                     (eq match-htype 'keyword))
 513                (mapc (lambda (elt)
 514                        (let ((regex elt)
 515                              (face match-face))
 516                          (when (consp regex)
 517                            (setq regex (car elt)
 518                                  face (cdr elt)))
 519                          (goto-char (+ 2 (or nick-end
 520                                              (point-min))))
 521                          (while (re-search-forward regex nil t)
 522                            (erc-put-text-property
 523                             (match-beginning 0) (match-end 0)
 524                             'face face))))
 525                      match-regex))
 526               ;; Highlight all occurrences of our nick.
 527               ((and (string= match-type "current-nick")
 528                     (eq match-htype 'keyword))
 529                (goto-char (+ 2 (or nick-end
 530                                    (point-min))))
 531                (while (re-search-forward match-regex nil t)
 532                  (erc-put-text-property (match-beginning 0) (match-end 0)
 533                                         'face match-face)))
 534               ;; Else twiddle your thumbs.
 535               (t nil))
 536              (run-hook-with-args
 537               'erc-text-matched-hook
 538               (intern match-type)
 539               (or nickuserhost
 540                   (concat "Server:" (erc-get-parsed-vector-type vector)))
 541               message))))
 542        (if nickuserhost
 543            (append to-match-nick-dep to-match-nick-indep)
 544          to-match-nick-indep)))))
 545
 546 (defun erc-log-matches (match-type nickuserhost message)
 547   "Log matches in a separate buffer, determined by MATCH-TYPE.
 548 The behavior of this function is controlled by the variables
 549 `erc-log-matches-types-alist' and `erc-log-matches-flag'.
 550 Specify the match types which should be logged in the former,
 551 and deactivate/activate match logging in the latter.
 552 See `erc-log-match-format'."
 553   (let  ((match-buffer-name (cdr (assq match-type
 554                                        erc-log-matches-types-alist)))
 555          (nick (nth 0 (erc-parse-user nickuserhost))))
 556     (when (and
 557            (or (eq erc-log-matches-flag t)
 558                (and (eq erc-log-matches-flag 'away)
 559                     (erc-away-time)))
 560            match-buffer-name)
 561       (let ((line (format-spec erc-log-match-format
 562                    (format-spec-make
 563                     ?n nick
 564                     ?t (format-time-string
 565                         (or (and (boundp 'erc-timestamp-format)
 566                                  erc-timestamp-format)
 567                             "[%Y-%m-%d %H:%M] "))
 568                     ?c (or (erc-default-target) "")
 569                     ?m message
 570                     ?u nickuserhost))))
 571         (with-current-buffer (erc-log-matches-make-buffer match-buffer-name)
 572           (let ((inhibit-read-only t))
 573             (goto-char (point-max))
 574             (insert line)))))))
 575
 576 (defun erc-log-matches-make-buffer (name)
 577   "Create or get a log-matches buffer named NAME and return it."
 578   (let* ((buffer-already (get-buffer name))
 579          (buffer (or buffer-already
 580                      (get-buffer-create name))))
 581     (with-current-buffer buffer
 582       (unless buffer-already
 583         (insert " == Type \"q\" to dismiss messages ==\n")
 584         (erc-view-mode-enter nil (lambda (buffer)
 585                                    (when (y-or-n-p "Discard messages? ")
 586                                      (kill-buffer buffer)))))
 587       buffer)))
 588
 589 (defun erc-log-matches-come-back (proc parsed)
 590   "Display a notice that messages were logged while away."
 591   (when (and (erc-away-time)
 592              (eq erc-log-matches-flag 'away))
 593     (mapc
 594      (lambda (match-type)
 595        (let ((buffer (get-buffer (cdr match-type)))
 596              (buffer-name (cdr match-type)))
 597          (when buffer
 598            (let* ((last-msg-time (erc-emacs-time-to-erc-time
 599                                   (with-current-buffer buffer
 600                                     (get-text-property (1- (point-max))
 601                                                        'timestamp))))
 602                   (away-time (erc-emacs-time-to-erc-time (erc-away-time))))
 603              (when (and away-time last-msg-time
 604                         (erc-time-gt last-msg-time away-time))
 605                (erc-display-message
 606                 nil 'notice 'active
 607                 (format "You have logged messages waiting in \"%s\"."
 608                         buffer-name))
 609                (erc-display-message
 610                 nil 'notice 'active
 611                 (format "Type \"C-c C-k %s RET\" to view them."
 612                         buffer-name)))))))
 613      erc-log-matches-types-alist))
 614   nil)
 615
 616 ; This handler must be run _before_ erc-process-away is.
 617 (add-hook 'erc-server-305-functions 'erc-log-matches-come-back nil)
 618
 619 (defun erc-go-to-log-matches-buffer ()
 620   "Interactively open an erc-log-matches buffer."
 621   (interactive)
 622   (let ((buffer-name (completing-read "Switch to ERC Log buffer: "
 623                                       (mapcar (lambda (x)
 624                                                 (cons (cdr x) t))
 625                                               erc-log-matches-types-alist)
 626                                       (lambda (buffer-cons)
 627                                         (get-buffer (car buffer-cons))))))
 628     (switch-to-buffer buffer-name)))
 629
 630 (define-key erc-mode-map "\C-c\C-k" 'erc-go-to-log-matches-buffer)
 631
 632 (defun erc-hide-fools (match-type nickuserhost message)
 633  "Hide foolish comments.
 634 This function should be called from `erc-text-matched-hook'."
 635  (when (eq match-type 'fool)
 636    (erc-put-text-properties (point-min) (point-max)
 637                             '(invisible intangible)
 638                             (current-buffer))))
 639
 640 (defun erc-beep-on-match (match-type nickuserhost message)
 641   "Beep when text matches.
 642 This function is meant to be called from `erc-text-matched-hook'."
 643   (when (member match-type erc-beep-match-types)
 644     (beep)))
 645
 646 (provide 'erc-match)
 647
 648 ;;; erc-match.el ends here
 649 ;;
 650 ;; Local Variables:
 651 ;; indent-tabs-mode: t
 652 ;; tab-width: 8
 653 ;; End: