emacs/dot-emacs-parts/irc-setup.el

   1 ;; -----
   2 ;; irc
   3 ;; -----
   4 (load "~/.freenode.el")
   5 (setq rcirc-authinfo
   6           (list (list "freenode" 'nickserv "srid" passwd)
   7                         (list "oftc"     'nickserv "srid" passwd)
   8                         (list "bitlbee"  'bitlbee  "srid" passwd)))
   9
  10 (defun im ()
  11   (interactive)
  12   (rcirc-connect "im.bitlbee.org" 6667
  13                                  "srid" "srid" "Sridhar Ratnakumar"))
  14
  15 (defun switch-to-im ()
  16   (interactive)
  17   (let ((im-buffer (get-buffer "&bitlbee@im.bitlbee.org")))
  18         (when im-buffer
  19           (switch-to-buffer im-buffer)
  20           (rcirc-cmd-names "&bitlbee"))))
  21 (global-set-key (kbd "C-<f11>") 'switch-to-im)
  22
  23 (defun irc-count-nicks ()
  24   (interactive)
  25   (message
  26    (format "%d"
  27                    (length (rcirc-channel-nicks
  28                                         (rcirc-buffer-process)
  29                                         rcirc-target)))))
  30
  31 (setq notify-wav (concat datadir "notify.wav"))
  32
  33 (defun rcirc-alert (p sender resp target txt)
  34   (when (and (string-match (rcirc-nick p) txt)
  35                          (not (string= (rcirc-nick p) sender))
  36                          (not (string= (rcirc-server-name p) sender)))
  37         (play-sound-file notify-wav)))
  38
  39 ; (add-hook 'rcirc-print-hooks 'rcirc-alert)