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 / irchat-vars.el < prev    next >
Lisp/Scheme  |  2000-03-21  |  10KB  |  295 lines
  1. ;;;
  2. ;;; $Id: irchat-vars.el,v 1.4 1994/02/23 15:05:00 tmo Exp $
  3. ;;;
  4. ;;; see file irchat-copyright.el for change log and copyright info
  5.  
  6. (provide 'irchat-vars)
  7.  
  8. ;;;
  9. ;;; user modifiable variables
  10. ;;;
  11.  
  12. (defvar irchat-command-window-height 4
  13.   "*How large should Command window be on startup.")
  14.  
  15. (defvar irchat-channel-window-height-percent 63
  16.   "*How large percent should Current channel window be on startup.")
  17.  
  18. (defvar irchat-want-traditional nil
  19.   "*Do we want Irchat to look like IrcII.")
  20.  
  21. (defvar irchat-want-jp-compatible t
  22.   "*Do we want this to look like irchat1.25jp")
  23.  
  24. (defvar irchat-variables-file "~/.irchat_vars.el"
  25.   "*Where to look for variables. Helps to remove clutter from your .emacs.
  26. This feature is most likely to dissappear in near future. The preferred 
  27. way is to put irchat variables on .emacs or file loaded from there.")
  28.  
  29. (defvar irchat-server-alist
  30.   '(("fc" . "irc.friend.td.nu")
  31.     ("kyoto" . "irc.kyoto.wide.ad.jp")
  32.     ("tokyo0" . "irc.tokyo.wide.ad.jp:6660")
  33.     ("tokyo1" . "irc.tokyo.wide.ad.jp:6661")
  34.     ("tokyo2" . "irc.tokyo.wide.ad.jp:6662")
  35.     ("tokyo3" . "irc.tokyo.wide.ad.jp:6663")
  36.     ("rcac" . "irc.rcac.tdi.co.jp:6669")
  37.     ("race" . "irc.race.u-tokyo.ac.jp"))
  38.   "*IRC server assoc-list which is used for input IRC server.")
  39.  
  40. (defvar irchat-server (or (getenv "IRCSERVER") nil)
  41.   "*Name of the host running the IRC server. 
  42. Value initialized from the IRCSERVER environment variable if one is set")
  43.  
  44. (defvar irchat-service 
  45.   (let ((ircport-env (getenv "IRCPORT")))
  46.     (if ircport-env
  47.     (if (> (string-to-int ircport-env) 0)
  48.         (string-to-int ircport-env)
  49.       ircport-env)
  50.       6667))
  51.   "*IRC service name or (port) number.")
  52.  
  53. (defvar irchat-dcc-auto-get-file nil
  54.   "*If non-nil, get a file automatically when DCC request received.")
  55.  
  56. (defvar irchat-dcc-program "dcc"
  57.   "*Name of dcc-program.")
  58.  
  59. (defvar irchat-dcc-directory "~/tmp"
  60.   "*Directory where irchat-dcc puts its files.")
  61.  
  62. (defvar irchat-name (or (getenv "IRCNAME")
  63.             (getenv "NAME")
  64.             (user-full-name)
  65.             "IRCHAT-PJ Default")
  66.   "*Your realname.
  67. Initialized from the IRCNAME or NAME environment variable, or your GCOS field.")
  68.  
  69. (defvar irchat-password (or (getenv "IRCPASSWORD") nil)
  70.   "*Your password when connecting to server.")
  71.  
  72. (defvar irchat-nickname (or (getenv "IRCNICK")
  73.                 (user-real-login-name)
  74.                 "irchat-pj")
  75.   "*The nickname you want to use in IRC.
  76. Default is the environment variable IRCNICK, or your login name.")
  77.  
  78. ;; add by simm@irc.fan.gr.jp, Mon, 08 Nov 1999 02:55:16 +0900
  79. (defvar irchat-pj-startup-nickname-list nil
  80.   "*The nickname list you want to use in IRC.
  81. When startup, try to connect according to this nickname list.")
  82.  
  83. (defvar irchat-servername "")
  84.  
  85. (defvar irchat-startup-channel nil
  86.   "obsolete.")
  87.  
  88. (defvar irchat-startup-channel-list nil
  89.   "*The channel list to join automatically at startup.
  90. If nil, do not join any channel.")
  91.  
  92. (defvar irchat-default-channel-binding nil
  93.   "*The channel list to bind the channel number when joining.")
  94.  
  95. (defvar irchat-channel-conversion-map nil
  96.   "*The map of channel conversion.")
  97.  
  98. (defvar irchat-channel-conversion-default-mask "*.jp"
  99.   "*The default mask of channel conversion.")
  100.  
  101. (defvar irchat-format-string ">%s<"
  102.   "*Format string for private messages being sent.")
  103.  
  104. (defvar irchat-format-string1 "=%s="
  105.   "*Format string for arriving private messages.")
  106.  
  107. (defvar irchat-format-string2 "<%s>"
  108.   "*Format string for arriving messages to current channel.")
  109.  
  110. (defvar irchat-format-string3 "<%s:%s>"
  111.   "*Format string for arriving messages to current channel from outside the channel.")
  112.  
  113. (defvar irchat-format-string4 "(%s)"
  114.   "*Format string for arriving messages to other channel from outside the channel.")
  115.  
  116. (defvar irchat-format-string5 "(%s:%s)"
  117.   "*Format string for arriving messages to other channel from outside the channel.")
  118.  
  119. (defvar irchat-signoff-msg nil
  120.   "*Default signoff message if no-nil")
  121.  
  122. (defvar irchat-channel-signoff-msg nil
  123.   "*Default signoff message if no-nil")
  124.  
  125. (defvar irchat-switching-channels nil
  126.   "*channel list to switch directly*")
  127.  
  128. (defvar irchat-print-time t
  129.   "*If non-nil, print time prefix on each line in channel buffer*")
  130.  
  131. (defvar irchat-others-high-watermark 10000
  132.   "*The value of high watermark in Others buffer*")
  133.  
  134. (defvar irchat-others-low-watermark 5000
  135.   "*The value of high watermark in Others buffer*")
  136.  
  137. (defvar irchat-beep-on-bells nil
  138.   "*If non-nil, and the IRC Dialogue buffer is not selected in a window,
  139. an IRC message arriving containing a bell character, will cause you
  140. to be notified.
  141. If value is 'always, an arriving bell will always cause a beep (or flash).")
  142.  
  143. (defvar irchat-ctcp-userinfo "No user information given."
  144.   "*Userinfo message given to anyone asking via CTCP.")
  145.  
  146. (defvar irchat-timestamp-interval nil
  147.   "*Interval in minutes between timestamps in dialogue-buffer, nil for none.")
  148.  
  149. (defvar irchat-timestamp-format "*** Time: %s"
  150.   "*Format-string for timestamp.")
  151.  
  152. (defvar irchat-global-names nil
  153.   "*Set this to T if you want irchat to be able to complete user and 
  154. channel names. If NIL given, irchat does not do global names polling, 
  155. thus causing much less network traffic, but then it is only able to 
  156. complete names on channels you have joined. If number given, it is the
  157. internal between two successive polls.
  158.  
  159. Notice: There are some gotchas here.
  160.   1. The server sendq is by default 20k and globals names maybe about 30k
  161.      at the time this is written. The NAMES query may cause server to 
  162.      drop the client because of flooding.
  163.   2. The namreply (353) handler is called pretty often and it causes some
  164.      garbage even if it is heavily optimized. You emacs will eat a lot of
  165.      cpu if this is enabled.")
  166.  
  167. ;;;
  168. ;;; additional variables for irchat-pj enhancemet, by irchat-PJ Project
  169. ;;;
  170.  
  171. ;; add by simm@irc.fan.gr.jp Thu, 19 Nov 1998
  172. (defvar irchat-pj-rewrite-server-notice nil
  173.   "Rewrite notice message from server.
  174. Default : =irc.kyoto.wide.ad.jp= gaga
  175. If t    : === gaga")
  176.  
  177. (defvar irchat-pj-katakana-convert t
  178.   "Convert jisx0201 katakana characters to jisx0208.")
  179.  
  180. (defvar irchat-pj-fix-gaga-problem nil
  181.   "When `gaga' problem occured, not join but warn.
  182. If your server is irc2.10.3+jp6, set nil.
  183. If your server is older version, set t.")
  184.  
  185. ;; add by simm@irc.fan.gr.jp Sun, 1 Nov 1998
  186. (defvar irchat-pj-code-verbose nil
  187.   "Output messages on minibuffer when received non-JIS code")
  188.  
  189. ;; add by simm@irc.fan.gr.jp Sat, 16 Jan 1999
  190. (defvar irchat-pj-string-in-code 'auto-detect
  191.   "Input character code from server. Select below:
  192.  
  193. 'iso-2022-7bit-ss2           : Input code is ISO-2022-7BIT-SS2.
  194. 'iso-2022-jp                 : Input code is ISO-2022-JP.
  195. 'euc-jp, 'euc-japan          : Input code is EUC-Japan.
  196. 'sjis, 'shift-jis, 'ms-kanji : Input code is MS-Kanji.
  197. 'noconv                      : No conversion when input.
  198. 'non-euc                     : Detect automatically. (ISO-2022-7BIT-SS2 or MS-Kanji)
  199. 'auto-detect       (default) : Detect automatically. (ISO-2022-7BIT-SS2/MS-Kanji/EUC-Japan)
  200. ")
  201.  
  202. (defvar irchat-pj-string-out-code 'iso-2022-7bit-ss2
  203.   "Output character code to server. Select below:
  204.  
  205. 'iso-2022-7bit-ss2 (default) : Output code is ISO-2022-7BIT-SS2.
  206. 'iso-2022-jp                 : Output code is ISO-2022-JP.
  207. 'euc-jp, 'euc-japan          : Output code is EUC-Japan.
  208. 'sjis, 'shift-jis, 'ms-kanji : Output code is MS-Kanji.
  209. 'noconv                      : No conversion when output.
  210. ")
  211.  
  212. ;; add by simm@irc.fan.gr.jp Sun, 24 Jan 1999
  213. (defvar irchat-pj-filter-queue ""
  214.   "Queue variable for irchat-filter.")
  215.  
  216. ;; add by negi@KU3G.org, 1 Jun 1999
  217. (defvar irchat-pj-abbrev-table nil
  218.   "Abbrev table in use irchat-pj")
  219.  
  220. ;; add by negi@KU3G.org, 1 Jun 1999
  221. ;;        simm@irc.fan.gr.jp, Sat, 5 Jun 1999
  222. (defvar irchat-pj-save-log-directory "~/tmp"
  223.   "Log directory")
  224.  
  225. (defvar irchat-pj-save-log-channel-alist nil
  226.   "Alist of save channel and filename.
  227. car: channel
  228. cdr: base filename
  229.  
  230. ex. '((\"#KU3G\" . \"KU3G\")
  231.       (\"#IRC$(BIa5Z0Q0w2q(B:*.jp\" . \"ircpa\"))")
  232.  
  233. ;; add by simm@irc.fan.gr.jp, Sat, 5 Jun 1999
  234. (defvar irchat-pj-quit-with-kill-buffer nil
  235.   "If t, kill some irchat-pj-related buffers.")
  236.  
  237. ;; add by simm@irc.fan.gr.jp, Thu, 10 Jun 1999
  238. (defvar irchat-pj-my-userhost ""
  239.   "My user@host. Set when received 001.")
  240.  
  241. ;; add by simm@irc.fan.gr.jp, Mon, 14 Jun 1999
  242. (defvar irchat-pj-broadcast-ignore-list nil
  243.   "Channel/nick list irchat-pj-send-broadcast ignores.")
  244.  
  245. (defvar irchat-pj-broadcast-accept-list nil
  246.   "Channel/nick list irchat-pj-send-broadcast accepts.")
  247.  
  248. (defvar irchat-pj-broadcast-private nil
  249.   "If t, broadcast message is sent to private partner.")
  250.  
  251. (defvar irchat-pj-broadcast-channel t
  252.   "If t, broadcast message is sent to channels.")
  253.  
  254. ;; add by simm@irc.fan.gr.jp, Sun, 27 Jun 1999
  255. (defvar irchat-pj-scroll-condition nil
  256.   "Configure scroll condition.
  257. This variable decides scroll condition when non-pj frame is active.
  258. It uses as second argument for get-buffer-window.")
  259.  
  260. ;; add by simm@irc.fan.gr.jp, Tue, 20 Jul 1999
  261. (defvar irchat-pj-handle-join-verbose t
  262.   "Display userhost when someone joins")
  263. (defvar irchat-pj-handle-nick-verbose t
  264.   "Display userhost when someone changes nick")
  265. (defvar irchat-pj-handle-part-verbose t
  266.   "Display userhost when someone parts")
  267. (defvar irchat-pj-handle-quit-verbose t
  268.   "Display userhost when someone quits")
  269.  
  270. ;; add by simm@irc.fan.gr.jp, Sat, 18 Dec 1999 00:17:46 +0900
  271. (defvar irchat-pj-auto-oper-list nil
  272.   "List of user@host to give channel operator automatically.
  273. Each element consists of  \"nick!user@host\"-formatted string,
  274. \(\"user@host\" . \"#channel1,#channel2,...\"\)-formatted cons-cell,
  275. or \(\"user@host\" \"#channel1\" \"#channel2,...\"\)-formatted list.")
  276.  
  277. (defvar irchat-pj-maximum-privmsg-channels 5
  278.   "Maximum channels PRIVMSG accepts.")
  279.  
  280. ;; add by simm@irc.fan.gr.jp, Fri, 28 Jan 2000 02:42:03 +0900
  281. (defvar irchat-pj-first-channel nil
  282.   "First channel or nickname you first contact with.
  283. If non-nil, do (irchat-Command-join irchat-pj-first-channel) when initialize.")
  284.  
  285. (defvar irchat-pj-initialize-p nil
  286.   "Temporary variable for irchat-pj-first-channel")
  287.  
  288. ;; add by simm@irc.fan.gr.jp, Wed, 22 Mar 2000 00:10:42 +0900
  289. (defvar irchat-pj-enable-undernet-server t
  290.   "If non-nil, enable Undernet server.")
  291.  
  292. ;;;
  293. ;;; eof
  294. ;;;
  295.