home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 2 / amigaformatcd02.iso / comms / netsoftware / irchat24.lha / irchat24 / irchat.lha / elisp / own-irc.el < prev   
Encoding:
Text File  |  1994-03-17  |  2.2 KB  |  71 lines
  1. ;
  2. ; add to your .emacs file...
  3. ;
  4. ; (autoload 'irchat "own-irc" "Irchat" t)
  5. ;
  6. ; and customize this file and copy to somewhere in your load-path
  7. ;
  8.  
  9. (setq irchat-global-names nil) ; don't want to get 30k of data when using slip
  10.  
  11. ; My usual stuff
  12.  
  13. (setq irchat-use-full-window nil) 
  14. (setq irchat-command-window-on-top nil)
  15. (setq irchat-change-prefix "*** ")
  16. (setq irchat-format-string "-> *%s*")
  17. (setq irchat-format-string1 "*%s*")
  18. (setq irchat-format-string2 "<%s>")
  19. (setq irchat-format-string3 "<%s:%s>")
  20. (setq irchat-format-string4 "(%s)")
  21. (setq irchat-format-string5 "(%s:%s)")
  22. (setq irchat-beep-on-bells 'always)
  23. (setq irchat-nam-suffix "")
  24. (setq irchat-reconnect-automagic t)
  25. (setq irchat-ask-for-nickname t)
  26. (setq irchat-blink-parens nil)
  27. ;(setq irchat-mta-own-topic "Wanhat IRC-patut ... (Finnish)")
  28. (setq irchat-mta-topic-active nil)
  29. (setq irchat-mta-snap-topic nil)
  30. ;(setq irchat-startup-channel "#amiga")
  31. (setq irchat-shorten-kills t)
  32. (setq irchat-command-window-height 4)
  33.  
  34. (setq irchat-dcc-receive-direct nil)
  35. (setq irchat-dcc-directory "ram:")
  36.  
  37. ;;;(setq irchat-Command-mode-hook
  38. ;;;      '(lambda ()
  39. ;;;       (local-set-key "/" 'irchat-Command-irc-compatible)
  40. ;;;        ))
  41.  
  42. (defun kill-irchat-windows()
  43.   (interactive)
  44.   (if (and (get-buffer-window irchat-Command-buffer)
  45.        (not (one-window-p)))
  46.       (delete-window (get-buffer-window irchat-Command-buffer)))
  47.   (if (and (get-buffer-window irchat-Dialogue-buffer)
  48.        (not (one-window-p)))
  49.       (delete-window (get-buffer-window irchat-Dialogue-buffer))))
  50.  
  51. (setq irchat-Exit-hook 'kill-irchat-windows)
  52.  
  53. (defun irchat-isearch-back ()
  54.   (interactive)
  55.   (if (not irchat-freeze) 
  56.       (irchat-Command-freeze))
  57.   (pop-to-buffer irchat-Dialogue-buffer)
  58.   (isearch-backward))
  59.  
  60. (load "irchat")
  61.  
  62. (define-key irchat-Command-mode-map "\C-cR" 'irchat-isearch-back)
  63. ;;;(define-key irchat-Dialogue-mode-map "\C-r" 'irchat-isearch-back)
  64. (define-key irchat-Command-mode-map "\C-c\C-p" 'irchat-Command-part)
  65. (define-key irchat-Command-mode-map "\C-cp" 'irchat-Command-mta-private)
  66.  
  67. ;;;(defun irchat-ctl-a-action-msg (from rest)
  68. ;;;  (message (format "ACTION CTCP from %s: %s" from rest))
  69. ;;;  (irchat-send (format "NOTICE %s :ACTION I am not supporting ACTION, please stop asking it." from)))
  70.  
  71.