SiteMap Search ElispArea HowTo Glossary RecentChanges News Problems Suggestions
Cameroon, National Day

init-rcirc.el

Download

;;; init-rcirc.el --- Rcirc init

;; Filename: init-rcirc.el
;; Description: Rcirc init
;; Author: Andy Stewart lazycat.manatee@gmail.com
;; Maintainer: Andy Stewart lazycat.manatee@gmail.com
;; Copyright (C) 2008, 2009, Andy Stewart, all rights reserved.
;; Created: 2008-10-20 09:28:25
;; Version: 0.1
;; Last-Updated: 2008-10-20 09:28:28
;;           By: Andy Stewart
;; URL:
;; Keywords: rcirc
;; Compatibility: GNU Emacs 23.0.60.1
;;
;; Features that might be required by this library:
;;
;;
;;

;;; This file is NOT part of GNU Emacs

;;; License
;;
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; see the file COPYING.  If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth
;; Floor, Boston, MA 02110-1301, USA.

;;; Commentary:
;;
;; Rcirc init
;;

;;; Installation:
;;
;; Put init-rcirc.el to your load-path.
;; The load-path is usually ~/elisp/.
;; It's set in your ~/.emacs like this:
;; (add-to-list 'load-path (expand-file-name "~/elisp"))
;;
;; And the following to your ~/.emacs startup file.
;;
;; (require 'init-rcirc)
;;
;; No need more.

;;; Change log:
;;
;; 2008/10/20
;;      First released.
;;

;;; Acknowledgements:
;;
;;
;;

;;; TODO
;;
;;
;;

;;; Require


;;; Code:

(setq rcirc-log-directory "~/MyEmacs/Configure-File/Rcirc/logs") ;rcirc聊天记录
(setq rcirc-notify-open t)                                       ;默认打开消息提醒模式
(setq rcirc-notify-timeout 1)           ;同一个人发信息给我的延迟 (单位: 秒)
(setq rcirc-omit-responses              ;设置忽略的响应类型
      (quote ("JOIN" "PART" "QUIT" "NICK" "AWAY" "MODE")))
(setq rcirc-prompt "> ")                                   ;提示的符号
(setq rcirc-time-format "[%H:%M] ")                        ;时间格式
(setq rcirc-track-minor-mode nil)                          ;关闭mode-line提示
(add-hook 'rcirc-mode-hook '(lambda () (rcirc-omit-mode))) ;默认打开忽略模式
(add-hook 'rcirc-print-hooks 'rcirc-write-log)             ;写入日志

(provide 'init-rcirc)

;;; init-rcirc.el ends here