rendered paste body;(setq debug-on-error t)
;; ***************************************************************
;; General display customization
;; ***************************************************************
(setq inhibit-startup-message t)
(setq additional-paths '("/home/prash" "/home/prash/.emacs-lisp" "/usr/local/share/emacs/site-lisp"))
(setq load-path (append additional-paths load-path))
(setq font-lock-maximum-decoration t)
(setq visible-bell t)
(setq require-final-newline t)
(setq resize-minibuffer-frame t)
(setq column-number-mode t)
(setq-default transient-mark-mode t)
(setq next-line-add-newlines nil)
(setq blink-matching-paren nil)
(global-font-lock-mode 1 t)
(blink-cursor-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)
(require 'python-mode)
;; *****************************************************************
;; Emacs IRC Client
;; *****************************************************************
;(require 'erc)
;; *****************************************************************
;; Save everything in UTF-8
;; *****************************************************************
(prefer-coding-system 'utf-8)
(set-language-environment 'UTF-8)
(set-default-coding-systems 'utf-8)
(setq file-name-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(setq coding-system-for-write 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(setq default-process-coding-system '(utf-8 . utf-8))
(add-to-list 'auto-coding-alist '("." . utf-8))
;; *****************************************************************
;; Don't take any backups
;; *****************************************************************
(setq backup-inhibited t)
;; *******************************
;; Initialization for template
;; *******************************
;(require 'template)
;(template-initialize)
;; ******************************
;; Stuff for SVN Mode
;; ******************************
;;(require 'vc-svn)
;; ***************************************************************
;; My frame setup...
;; ***************************************************************
;(if window-system
; (setq default-frame-alist
; '((cursor-color . "white")
; (cursor-type . box)
; (foreground-color . "white")
; (background-color . "black")))
; (require 'color-theme)
; (color-theme-greiner))
(setq initial-frame-alist '((top . 26) (left . 465) (width . 85) (height . 65)))
(setq frame-title-format "GNU Emacs %f")
(setq icon-title-format "%b")
;; ***************************************************************
;; News and mail customizations
;; ***************************************************************
;;general mail account name settings
(setq user-mail-address "prashmohan@gmail.com")
(setq user-full-name "Prashanth Mohan")
;; ***************************************************************
;; Scrolling Setup
;; ***************************************************************
(setq scroll-step 4)
;; ***************************************************************
;; Basic Modes and Editing
;; ***************************************************************
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
(setq auto-mode-alist (cons '("Wishlist" . text-mode) auto-mode-alist))
(setq auto-mode-alist (cons '("README" . text-mode) auto-mode-alist))
;; ***************************************************************
;; sh mode for conf files
;; ***************************************************************
(setq auto-mode-alist (cons '("\\.conf$" . sh-mode) auto-mode-alist))
;; ***************************************************************
;; Tab setup
;; ***************************************************************
(setq-default tab-width 4
standard-indent 4
indent-tabs-mode nil)
;; ***************************************************************
;; Word Count
;; ***************************************************************
(defun wc ()
"Count the words in the current buffer, show the result in the
minibuffer"
(interactive) ; *** This is the line that you need to add
(save-excursion
(save-restriction
(widen)
(goto-char (point-min))
(let ((count 0))
(while (forward-word 1)
(setq count(1+ count)))
(message "There are %d words in the buffer" count)))))
;; ****************************************************************
;; Function to turn on Linux C indenting
;; ****************************************************************
;(defun linux-c-mode ()
; "C mode with adjusted defaults for use with the Linux kernel."
; (interactive)
; (c-mode)
; (setq c-indent-level 8)
; (setq c-brace-imaginary-offset 0)
; (setq c-brace-offset -8)
; (setq c-argdecl-indent 8)
; (setq c-label-offset -8)
; (setq c-continued-statement-offset 8)
; (setq indent-tabs-mode nil)
; (setq tab-width 8))
; Remember the -*- linux-c -*- bit, too.
;(setq auto-mode-alist (cons '("~/src/linux.*/.*\\.[ch]$" . linux-c-mode)
; auto-mode-alist))
;; The above is not required with newer Emacs,
;; the hook below is sufficient.
(add-hook 'c-mode-common-hook
(lambda ()
(c-set-style "k&r")))
;; **************************************************************
;; Auto fill mode
;; **************************************************************
(add-hook 'c-mode-common-hook 'turn-on-auto-fill)
(global-set-key (kbd "C-c q") 'auto-fill-mode)
;; ***************************************************************
;; Set number mode
;; ***************************************************************
;(require 'setnu+)
;; ***************************************************************
;; Setup AUCTex
;; ***************************************************************
;(require 'tex-site)
;(load "auctex.el" nil t t)
;(load "preview-latex.el" nil t t)
;(setq TeX-auto-save t)
;(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
;; ***************************************************************
;; Misc Key Mappings
;; ***************************************************************
(global-set-key [f1] 'search-forward)
(global-set-key [f3] 'search-backward)
(global-set-key [f2] 'replace-string)
(global-set-key [f4] 'set-justification-full) ;JUSTIFY
(global-set-key [f5] 'set-mark-command) ;MARK
(global-set-key [f6] 'kill-ring-save) ;COPY
(global-set-key [f7] 'yank) ;PASTE
(global-set-key [f8] 'kill-region) ;DELETE
(global-set-key [f9] 'setnu-mode) ;SETNU
(global-set-key [f11] 'wc) ;WORD COUNT
(global-set-key [f12] 'save-buffer) ;SAVE
;(global-set-key "\C-cf" 'font-lock-mode)
(global-set-key "\C-ca" 'auto-fill-mode)
; 'y' for 'yes', 'n' for 'no'
(fset 'yes-or-no-p 'y-or-n-p)
(setq query-replace-highlight t)
(setq search-highlight t)
(global-set-key (kbd "RET") 'newline-and-indent)
;; ****************************************************************
;; line-to-top-of-window extension
;; ****************************************************************
;; Line to top of window
(defun line-to-top-of-window()
"Move the line point is on to the top of the window"
(interactive)
(recenter 0))
;; Bind the function to the [F6] key
;; (global-set-key [f6] 'line-to-top-of-window)
;; ****************************************************************
;; Fill adapt mode
;; ****************************************************************
;; (require 'filladapt)
;; (add-hook 'c-mode-hook 'turn-off-filladapt-mode)
;; ****************************************************************
;; psgml mode
;; ****************************************************************
(autoload 'sgml-mode "psgml" "Major mode to edit SGML files." t)
(autoload 'xml-mode "psgml" "Major mode to edit XML files." t)
(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(add-log-full-name "Prashanth Mohan")
'(add-log-mailing-address "prashmohan@gmail.com")
'(add-log-time-format (quote add-log-iso8601-time-string))
'(blink-cursor-mode nil)
'(column-number-mode t)
'(current-language-environment "UTF-8")
'(erc-email-userid "prashmohan")
'(erc-interpret-mirc-color t)
'(erc-user-full-name "Prashanth Mohan")
'(fill-column 72)
'(global-font-lock-mode t)
'(load-home-init-file t t)
'(python-guess-indent t)
'(python-honour-comment-indentation t)
'(show-paren-mode t)
'(transient-mark-mode t))
;; ******************************************************************
;; Customized syntax highlighting colors
;; ******************************************************************
;;(set-default-font "-misc-fixed-medium-r-normal--10-*-*-*-*-*-*-*")
(set-foreground-color "#dbdbdb")
(set-background-color "#000000")
(set-cursor-color "#ff0000")
(if (> (display-color-cells) 20)
(custom-set-faces
'(font-lock-builtin-face ((t (:foreground "deepskyblue"))))
'(font-lock-comment-face ((t (:foreground "gray60"))))
'(font-lock-doc-face ((t (:foreground "darkkhaki"))))
'(font-lock-keyword-face ((t (:foreground "magenta"))))
'(font-lock-function-name-face ((t (:foreground "green"))))
'(font-lock-string-face ((t (:foreground "red"))))
'(font-lock-type-face ((t (:foreground "cyan"))))
'(font-lock-variable-name-face ((t (:foreground "yellow"))))
'(modeline ((t (:foreground "plum1" :background "navy"))))
'(region ((t (:background "sienna"))))
'(highlight ((t (:foreground "black" :background "darkseagreen2"))))
'(diff-added-face ((t (:foreground "green"))))
'(diff-changed-face ((t (:foreground "yellow"))))
'(diff-header-face ((t (:foreground "cyan"))))
'(diff-hunk-header-face ((t (:foreground "magenta"))))
'(diff-removed-face ((t (:foreground "red")))))
)
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(diff-added-face ((t (:foreground "green"))) t)
'(diff-changed-face ((t (:foreground "yellow"))) t)
'(diff-header-face ((t (:foreground "cyan"))) t)
'(diff-hunk-header-face ((t (:foreground "magenta"))) t)
'(diff-removed-face ((t (:foreground "red"))) t)
'(font-lock-builtin-face ((t (:foreground "deepskyblue"))))
'(font-lock-comment-face ((t (:foreground "gray60"))))
'(font-lock-doc-face ((t (:foreground "darkkhaki"))))
'(font-lock-function-name-face ((t (:foreground "green"))))
'(font-lock-keyword-face ((t (:foreground "magenta"))))
'(font-lock-string-face ((t (:foreground "red"))))
'(font-lock-type-face ((t (:foreground "cyan"))))
'(font-lock-variable-name-face ((t (:foreground "yellow"))))
'(highlight ((t (:foreground "black" :background "darkseagreen2"))))
'(mode-line ((t (:foreground "plum1" :background "navy"))))
'(region ((t (:background "sienna")))))