Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Branch: personalizatio…
Fetching contributors…

Cannot retrieve contributors at this time

91 lines (70 sloc) 3.73 KB
;;; rcirc-late-fix.el -- Replace s/wrong/right strings on rcirc buffers
;; Copyright 2007 Hugo Schmitt <>
;; This program 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 2 of
;; the License, or (at your option) any later version.
;; This program is distributed in the hope that it will be
;; useful, but WITHOUT ANY WARRANTY; without even the implied
;; PURPOSE. See the GNU General Public License for more details.
;; You should have received a copy of the GNU General Public
;; License along with this program; if not, write to the Free
;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,
;; MA 02111-1307 USA
;;; Commentary:
;; The idea is to detect messages like 's/tset/test' and overwrite the
;; wrong word with the correction, on the original phrase, using
;; overlays.
;; Please mail me ( about any improvements or bug
;; reports you have regarding this file.
;;; Changes (11/12/2007) (Tks tsdh for the suggestions)
;; [x] Exclude the nicknames from correction.
;; [x] Strip the / from the replacement text.
;; [x] With s/foo/bar the last occurence of foo is replaced with bar, not the first.
;; [x] Support s/foo/bar/g to replace all occurences of foo with bar.
;; [ ] Use rcirc-response-formats for building the name string
;; [ ] A variable could control whether only whole words are changed (then
;; just concat "<" word ">")
;; [ ] Support s/word// and s/word//g for removing matching text
;;; Bugs :
;; This fails, probably caused by some missed detail about overlapping overlays:
;; Having the line aaaaaaaa and the replacement s/a/b/g results in a
;; _single_ b.
;;; Code:
(require 'rcirc)
(add-hook 'rcirc-print-hooks 'rcirc-late-fix-hook)
(defface rcirc-late-fix-face '((t (:underline t :foreground "Blue")))
"Face for showing fixed words on the channel buffer.")
(defun rcirc-late-fix-apply (beg end string)
(let ((overlay (make-overlay beg end (current-buffer) nil t)))
(overlay-put overlay 'face 'rcirc-late-fix-face)
(overlay-put overlay 'display string))))
(defun rcirc-late-fix-hook (process sender response target text)
(when (string-equal response "PRIVMSG")
(let (from to global matches)
(when (or (and (string-match "^s/\\(.+\\)/\\(.+\\)/g" text)
(setq from (match-string 1 text)
to (match-string 2 text)
global t))
(and (string-match "^s/\\(.+\\)/\\([^/]+\\)" text)
(setq from (match-string 1 text)
to (match-string 2 text))))
(set-buffer (rcirc-late-fix-matching-buffer target))
(goto-char (point-max))
(when (search-backward (concat "<" sender ">") nil t 2)
(goto-char (match-end 0)) ;; skip nickname
(while (search-forward from (point-at-eol) t) ;; make a list of the points from each match
(setf matches (cons (list (match-beginning 0) (match-end 0)) matches)))
(when (not (null matches)) ;; there was at least one match
(if global ;; global = replace all matches
(mapc '(lambda (x) (rcirc-late-fix-apply (car x) (cadr x) to)) matches)
(rcirc-late-fix-apply (caar matches) (cadar matches) to)))))))))
(defun rcirc-late-fix-matching-buffer (name)
"Find buffer (channel) that starts with NAME."
(find-if '(lambda (x) (string-match (concat "^" name) x))
(mapcar 'buffer-name (buffer-list))))
;;; rcirc-late-fix.el ends here
(provide 'rcirc-late-fix)
Jump to Line
Something went wrong with that request. Please try again.