home *** CD-ROM | disk | FTP | other *** search
/ ftp.madoka.org / 2014.12.ftp.madoka.org.tar / ftp.madoka.org / pub / irchat-pj / irchat-pj-2.4.24.22.tar.gz / irchat-pj-2.4.24.22.tar / irchat-pj-2.4.24.22 / doc / dot.irchat_vars.el < prev    next >
Lisp/Scheme  |  1999-12-19  |  6KB  |  136 lines
  1. ;;;;;;;;; -*- Emacs-Lisp -*- ;;;;;;;;;
  2.  
  3. ;;
  4. ;; irchat-pj.emacs
  5. ;; initial setting file for irchat-pj
  6. ;; Wed, 27 Jan 1999, by simm@irc.fan.gr.jp and irchat-PJ Project
  7. ;; last modified by simm@irc.fan.gr.jp, Mon, 08 Nov 1999 03:35:53 +0900
  8. ;;
  9.  
  10. ;; auto-load
  11. (autoload 'irchat "irchat" "IRC client for Emacsen." t)
  12.  
  13. ;;; ----------------------------------------------------------------
  14. ;;; irchat $(B0lHL@_Dj(B
  15. ;;; ----------------------------------------------------------------
  16.  
  17. ;;; $(B=q$-49$($,I,MW$JItJ,(B : server, nick, name
  18. ;;(setq irchat-server "irc.karrn.ad.jp")
  19. ;;(setq irchat-name "Hoge of Hoge!?")
  20. ;;(setq irchat-nickname "hogehoge")
  21. ;;(setq irchat-pj-startup-nickname-list '("hogehoge" "fugafuga" "fugahoge" "uhiaha"))
  22. (setq irchat-server "irc.friend.td.nu")
  23. (setq irchat-name (or (user-full-name) "nil"))
  24. (setq irchat-nickname (or (user-real-login-name) "nonick"))
  25.  
  26. ;; default $(B$G;22C$9$k(B channel $(B$N(B list
  27. ;; ($(B$3$3$K=q$$$?(B channel $(B$K$O(B irchat $(B$N5/F0$HF1;~$K;22C$G$-$^$9(B)
  28. (setq irchat-startup-channel-list '("#$(B$A$c$M$k(B1" "#$(B$A$c$M$k(B2"))
  29.  
  30. ;; C-($(B?t;z(B)$(B$N(B key-bind $(B$N7hDj(B. $(B:G=i$+$i=g$K(B,
  31. ;;   C-1, C-2, ..., C-9, C-c C-c 0, C-c C-c 1, ..., C-c C-c 9,
  32. ;;   C-c C-d 0, C-c C-d 1, ..., C-c C-d 9
  33. ;; $(B$H$J$j$^$9(B.
  34. (setq irchat-default-channel-binding
  35.       '("#$(B$A$c$M$k(B1" "#$(B$A$c$M$k(B2" "#$(B$A$c$M$k(B3" nil "#$(B$A$c$M$k(B5"))
  36.  
  37. ;;; ----------------------------------------------------------------
  38. ;;; $(B3F<o$3$^$+$$8D?M@_Dj(B
  39. ;;; ----------------------------------------------------------------
  40.  
  41. ;; nick $(B$*$h$S(B channel $(B$NBP>]HO0O(B
  42. ;; t  : $(B%5!<%P$K@\B3$7$F$$$kA4%f!<%6$N(B nick $(B$*$h$S(B $(BB8:_$9$kA4(B channel
  43. ;; nil: $(B<+J,<+?H$,8+$($kHO0O$G$N(B nick $(B$*$h$S(B channel
  44. (setq irchat-global-names nil)
  45. ;; $(B@ZCG$5$l$?$H$-<+F0@\B3$9$k$+$I$&$+(B
  46. (setq irchat-reconnect-automagic t)
  47. ;; channel $(B$4$H$K(B buffer $(B$r:n@.$9$k$+$I$&$+(B
  48. (setq irchat-channel-buffer-mode t)
  49. ;; channel $(B$4$H$N(B buffer $(B$K$D$$$F(B, $(B3FH/8@$4$H$K(B channel $(BL>$rI=<($9$k$+$I$&$+(B
  50. ;; t  : <#$(B$A$c$M$k(B:nick> $(B$,$,!D(B
  51. ;; nil: <nick> $(B$,$,!D(B
  52. (setq irchat-display-channel-always t)
  53. ;; channel buffer $(B$r<+F0E*$K%9%/%m!<%k$5$;$J$$$+$I$&$+(B
  54. ;; t: $(B$5$;$J$$(B, nil: $(B$5$;$k(B
  55. (setq irchat-default-freeze-local nil)
  56. ;; \007 $(B$N%3!<%I$r<u$1<h$C$?$H$-$K(B beep $(B$rLD$i$9$+$I$&$+(B
  57. (setq irchat-beep-on-bells t)
  58. ;; quit $(B$9$k$H$-$N%a%C%;!<%8(B
  59. (setq irchat-signoff-msg "Good night.")
  60.  
  61. ;;; ----------------------------------------------------------------
  62. ;;; irchat-pj $(BFH<+$N@_Dj(B
  63. ;;; ----------------------------------------------------------------
  64.  
  65. ;; coding-system $(B$N;XDj(B. $(BF~NO$OF|K\8l<+F0H=JL(B, $(B=PNO$O(B iso-2022-7bit-ss2
  66. (setq irchat-pj-string-in-code  'auto-detect
  67.       irchat-pj-string-out-code 'iso-2022-7bit-ss2)
  68. ;; $(B=PNO;~$K(B, $(B$$$o$f$kH>3Q%+%J$rA43Q%+%J$KJQ49(B ($(BF~NO;~$O$=$N$^$^(B)
  69. (setq irchat-pj-katakana-convert t)
  70. ;; SJIS$(B$dF|K\8l(BEUC$(B%3!<%I$r<u$1<h$C$?$H$-$K(B, minibuffer $(B$K$=$N;]I=<($9$k$+$I$&$+(B
  71. (setq irchat-pj-code-verbose nil)
  72.  
  73. ;; invite $(B$5$l$?$H$-$K2;$rLD$i$9$+$I$&$+(B
  74. (setq irchat-pj-sound-when-invited t)
  75.  
  76. ;; buffer $(B$r$D$/$C$F$$$J$$(B nick $(B$N?M$+$i8D?M08$X$N(B private message $(B$r(B
  77. ;; $(B<u$1<h$C$?$H$-$K2;$rLD$i$9$+$I$&$+(B
  78. (setq irchat-pj-sound-when-private t)
  79.  
  80. ;; $(BC/$+$,(B join $(B$7$F$-$?$H$-$K2;$rLD$i$9$+$I$&$+(B
  81. (setq irchat-pj-sound-when-join t)
  82.  
  83. ;; CTCP message $(B$r<u$1<h$C$?$H$-$K2;$rLD$i$9$+$I$&$+(B
  84. (setq irchat-pj-sound-when-ctcp t)
  85.  
  86. ;; $(B2;$rLD$i$9%-!<%o!<%I$N@_Dj(B. $(B@55,I=8=$b2D(B
  87. ;; $(B$3$NJQ?t$,(B nil $(B$N>l9g$O(B, $(BFCDj$N%-!<%o!<%I$KH?1~$7$F2;$OLD$i$J$$(B
  88. (setq irchat-pj-sound-words-alist '("$(B$,$,(B" "$(B$[$2(B" "irc.*[Pp]"))
  89.  
  90. ;; $(B%5%&%s%I%U%!%$%k$rCV$/%G%#%l%/%H%j$N@_Dj(B
  91. (setq irchat-pj-sound-directory "~/lib/au")
  92.  
  93. ;; $(B%5%&%s%I%U%!%$%k$N@_Dj(B
  94. (setq irchat-pj-sound-words-file   "foo.au")
  95. (setq irchat-pj-sound-invited-file "bar.au")
  96. (setq irchat-pj-sound-private-file "baz.au")
  97. (setq irchat-pj-sound-join-file    "baz.au")
  98. (setq irchat-pj-sound-ctcp-file    "bar.au")
  99.  
  100. ;; .au $(B%U%!%$%k$N:F@8%W%m%0%i%`$N@_Dj(B
  101. (setq irchat-pj-sound-au-player "xplay")
  102.  
  103. ;; .wav $(B%U%!%$%k$N:F@8%W%m%0%i%`$N@_Dj(B
  104. (setq irchat-pj-sound-wav-player "xplay")
  105.  
  106. ;; private message $(B$b$7$/$O(B notice $(B7A<0$G(B server $(B$+$i$N(B message $(B$r(B
  107. ;; $(B<u$1<h$C$?$H$-(B, $(B=q$-49$($r9T$&$+$I$&$+(B
  108. (setq irchat-pj-rewrite-server-notice t)
  109.  
  110. ;; $(B%A%c%M%k$KBP$7$F(B broadcast $(B$O9T$&$,(B, priv$(BAj<j$K$O9T$o$J$$(B
  111. (setq irchat-pj-broadcast-channel t
  112.       irchat-pj-broadcast-private nil)
  113.  
  114. ;; $(B%9%/%m!<%k$N5sF0(B: $(BJL%U%l!<%`$,(Bactive$(B$J>l9g$G$b%9%/%m!<%k$9$k(B
  115. (setq irchat-pj-scroll-condition t)
  116.  
  117. ;; $(B3F(B buffer $(B$N(B mode-line $(B$r;XDj(B
  118. (setq irchat-pj-Commands-mode-line-format 'irchat-pj-Commands-mode-line-format-minor-mode
  119.       irchat-pj-Dialogue-mode-line-format 'irchat-pj-Dialogue-mode-line-format-minor-mode
  120.       irchat-pj-Other-mode-line-format    'irchat-pj-Other-mode-line-format-minor-mode
  121.       irchat-pj-Channel-mode-line-format  'irchat-pj-Channel-mode-line-format-minor-mode)
  122.  
  123. ;; $(B<+F0E*$K(B channel oper $(B$rG[$k@_Dj(B
  124. (setq irchat-pj-auto-oper-list
  125.       '(; $(BA4%A%c%M%k$K$*$$$F(B *!*simm*@*.fan.gr.jp $(B$K(Bmatch $(B$9$k?M$KG[$k(B
  126.     ".*!.*simm.*@.*\\.fan\\.gr\\.jp"
  127.     ; #$(B$A$c$M$k(B1 $(B$*$h$S(B #$(B$A$c$M$k(B2 $(B$K$*$$$F(B, *!*hoge*@*.hoge.ne.jp $(B$K(B match $(B$9$k?M$KG[$k(B
  128.     (".*!.*hoge.*@.*\\.hoge\\.ne\\.jp" "#$(B$A$c$M$k(B1" "#$(B$A$c$M$k(B2")))
  129.  
  130. ;; irchat-pj $(B=*N;;~$K%P%C%U%!:o=|(B
  131. (setq irchat-pj-quit-with-kill-buffer t)
  132.  
  133. ;;
  134. ;; end
  135. ;;
  136.