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