;; -*-emacs-lisp-*-

;; Vivek Varghese Cherian's .emacs file
;; copyright (c) 2004,2005 Vivek Varghese Cherian <vivekvc AT gnu DOT org>

;; 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 2 of the License, 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; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
;; USA


;; Savannah Hackers section

(load-file "/home/vivek/savannah/elisp/savannah.el")
	     
(require `savannah)

(load-file "/home/vivek/savannah/elisp/svterm.el")

(require `svterm)

;

; ERC, Emacs IRC Client

;;

;(add-to-list 'load-path "~/.elisp")

;(require 'erc-auto)

(setq erc-server "irc.freenode.net" 

       erc-port 6667 

       erc-nick "VivekVC"

       erc-user-full-name "Vivek Varghese Cherian"

       erc-prompt-for-password nil

       erc-auto-query t

       erc-pals '("")

       erc-keywords '("")

       erc-fill-prefix "    "

       erc-server-history-list '("irc.freenode.net"; #gnu

				 "irc.freenode.net"; #emacs

				 "irc.freenode.net")) 



;

;(add-to-list 'load-path "~/.elisp")

;(require 'erc-auto)

(autoload 'erc-select "erc" "" t)

(add-hook 'erc-mode-hook

          '(lambda () (require 'erc-pcomplete)

           (pcomplete-erc-setup)

	   (erc-completion-mode 1)))

;

;; To enable auto filling of erc buffers



;

(add-hook 'erc-insert-post-hook (lambda () (goto-char (point-min))

				  (when (re-searc\h-forward

				  (regexp-quote

				  (erc-current-nick)) nil t)

				  (ding))))

;

;; Turn logging on

;;



(require 'erc-log) 

(erc-log-mode 1)

(setq erc-log-channels-directory "~/.irc/logs/")

(setq erc-save-buffer-on-part t)

(erc-timestamp-mode 1)

(erc-show-timestamps)

;;(setq erc-hide-timestamps t)

(setq erc-log-insert-log-on-open nil)

(defadvice save-buffers-kill-emacs (before save-logs (arg) activate)

(save-some-buffers t (lambda () (when (eq major-mode 'erc-mode) t))))



;

;