;;; -*- mode: emacs-lisp -*- -*- coding: iso-2022-jp -*- ;; IRC Servers (setq liece-server "irc.kyoto.wide.ad.jp") ;(setq liece-server "irc.rcac.tdi.co.jp") ;(setq liece-server "irc.race.u-tokyo.ac.jp") ;(setq liece-server "irc.huie.hokudai.ac.jp") ;(setq liece-server "irc.karrn.ad.jp") ;(setq liece-server "irc.tohoku.ac.jp") ;(setq liece-server "irc.dti.ne.jp") ;(setq liece-server "irc.tokyo.wide.ad.jp") ;; Port number of IRC Servers (default: 6667) ;(setq liece-service 6667) ;; Private information of user. ;(setq liece-name "") (setq liece-nickname "VineUser") ;; Customization to change Look & Feel. ;; If non-nil, channel buffer would be displayed. (setq liece-channel-buffer-mode t) ;; If non-nil, nick buffer would be displayed. (setq liece-nick-buffer-mode t) ;; If non-nil, channel list buffer would be displayed. (setq liece-channel-list-buffer-mode t) ;; Window splitting parameters. (setq liece-nick-window-width-percent 18) (setq liece-channel-list-window-width-percent 24) (setq liece-buffer-max-size 100000) ;; Path settings ;; If you have installed as XEmacs package please set them to nil. (setq liece-intl-catalogue-directory "/usr/share/liece/po") (setq liece-window-style-directory "/usr/share/liece/styles") (setq liece-window-default-style "middle") ;; Highlighten IRC buffers. (setq liece-highlight-mode t) ;; If `liece-highlight-mode' is non-nil, strings which matches ;; following regular expression would be emphasized by colouring. ;(setq liece-highlight-pattern ; (regexp-opt ; '("foo" "bar" "baz.*"))) ;; Channels we want to join startup time. ;(setq liece-startup-channel-list ; '("#foo" "#bar")) ;; Channel bindings to its numerical expression. ;; Each element of list are bound to n-th. ;(setq liece-default-channel-binding ; '("#foo" nil "#baz" "#bar")) ;; DCC external programs. ;; When this is not specified, we search `dcc' executable in exec-path. (setq liece-dcc-program (expand-file-name "@DCCPATH@")) ;; Don't receive any files automatically. (setq liece-dcc-receive-direct nil) ;;; XEmacs specific features ;; Normal position of toolbar icons. (setq liece-icon-directory (expand-file-name "@ICONDIR@")) ;; Default toolbar position. ;(setq liece-toolbar-position 'top) ;; Display smiley mark. ;(setq liece-use-smiley t) ;;; URL browsing. ;; Specify browser name. To see available browser names, ;; refer docstring of `liece-url-browser-function'. (setq liece-url-browser-name "mozilla") ;;; Encryption (setq liece-crypt-known-keys '("foo" "bar")) ;(setq liece-crypt-default-keys '(("#hoge" . "fuga"))) ;;; Automatic invisible. ;(add-hook 'liece-after-001-hook ; (function (lambda (prefix rest) ; (liece-send ; "MODE %s +i" liece-real-nickname) ; nil))) ;;; Converting codings. ;; Detect coding automatically. ;(setq liece-detect-coding-system t) ;; Convert deprecated hankaku kana to zenkaku kana. ;(setq liece-convert-hankaku-katakana t) ;; Saved Settings ;; End of Saved Settings