;; shakthimaan's .emacs

(setq line-number-mode t)
(setq column-number-mode t)
(global-font-lock-mode t)
(setq-default transient-mark-mode t)

;; set colors
(set-background-color "Black")
(set-foreground-color "White")

;; set font for X
(set-default-font "8x13")

;; color theme
(require 'color-theme)
(setq color-theme-is-global t)
(color-theme-comidia)

;; erc
(defun erc-start ()
  (interactive)
  (erc :server "192.168.1.69" :port 6667 :full-name "Shakthi Kannan" :nick "mbuf")
  (erc :server "irc.freenode.net" :port 6667 :full-name "Shakthi Kannan" 
     :nick "mbuf")
  (setq erc-echo-notices-in-minibuffer-flag t)
  (require 'erc)
  ;; require erc-match
  (require 'erc-match)
  (setq erc-keywords '("mbuf"))
  (setq erc-current-nick-highlight-type 'nick)
  (setq erc-track-exclude-types '("JOIN" "PART" "QUIT" "NICK" "MODE"))
  (setq erc-track-use-faces t)
  (setq erc-track-faces-priority-list
	'(erc-current-nick-face erc-keyword-face))
  (setq erc-track-priority-faces-only 'all)
  ;; display nicklist in side bar
  (add-to-list 'load-path "~/installs/emacs/elisp/erc-5.2-extras" t)
  (require 'erc-nicklist)
  ;; erc scroll to bottom
  (setq erc-input-line-position -2)
  (setq erc-echo-notices-in-minibuffer-flag t)
  ;; Connect
  (setq erc-autojoin-channels-alist 
	'(("qvantel.com" "#foss" "#qvantel" "#kiira" "#it")
	  ("freenode.net" "##linux-india" "#dgplug" "#gnu" "#gnu-india" 
	   "#mukt.in" "#p52" "#hurd" "#openmoko" "#maemo" "#linuxtag" "#edev"
	   "#poky" "#indlinux" "#sjce" "#openmoko-debian")))
  )

;; Don't echo passwords
(add-hook 'comint-output-filter-functions
	  'comint-watch-for-password-prompt)

;; No toolbar
(tool-bar-mode -1)

;; X11 paste key-binding
(setq x-select-enable-clipboard t)
(global-set-key "\C-y" 'clipboard-yank)

;; Setup ansi-color
(eval-after-load "shell" '(ansi-color-for-comint-mode-on))

;; http://www.emacswiki.org/cgi-bin/wiki/download/ansi-color.el
;; (autoload 'ansi-color-for-comit-mode-on "ansi-color" nil t)
;; (add-hook 'shell-mode-hook 'ansi-color-for-comit-mode-on)
(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
 )

;;

(require 'tramp)
(setq tramp-default-method "scp")

;; emms
;; (add-to-list 'load-path "/home/shaks/installs/emacs/elisp/emms/")
;;(require 'emms-setup)
;; (add-hook 'emms-player-started-hook 'emms-show)
;; (setq emms-show-format "NP: %s"
;;       emms-source-file-default-directory "/disk4/music1/"
;;       emms-player-list '(emms-player-mplayer))
;; (require 'emms-player-simple)
;; (require 'emms-source-file)
;; (require 'emms-source-playlist)
;;(setq emms-player-list '(emms-player-mpg321
;;			 emms-player-ogg123
;;			 emms-player-mplayer))
;; (emms-standard)
;; (emms-default-players)

;; server start
;; (server-start)

;; emacs-intl-fonts support
;; (add-to-list 'bdf-directory "/usr/share/emacs/fonts/bdf")

;; Python mode support
(add-to-list 'load-path "~/installs/emacs/elisp/python-mode-1.0" t)
(autoload 'python-mode "python-mode" "Python Mode." t)
(add-to-list 'auto-mode-alist '("\\.py\\'" . python-mode))
(add-to-list 'interpreter-mode-alist '("python" . python-mode))

;; Add git emacs
(add-to-list 'load-path "~/installs/emacs/elisp/git-emacs-1.1" t)
(require 'git-emacs)

;; ecb
(require 'ecb)
(setq ecb-layout-name "right1")

;; cscope
(add-to-list 'load-path "~/installs/emacs/elisp/cscope" t)
(require 'xcscope)