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/share/emacs/site-lisp" "/usr/share/emacs/site-lisp/muse" "/usr/share/emacs/site-lisp/preview-latex"))
(setq load-path (append additional-paths load-path))
(setq font-lock-maximum-decoration t)
(setq visible-bell t)
(setq x-select-enable-clipboard 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)
(setq user-mail-address "prashmohan gmail com")
(setq user-full-name "Prashanth Mohan")
(defun changelog-entry ()
"Add entry to ChangeLog"
(interactive)
(progn
(if (equal (file-name-nondirectory (buffer-file-name)) "ChangeLog")
(progn
(basic-save-buffer)
(kill-buffer "ChangeLog"))
(progn
(add-change-log-entry)))
; (insert (current-time-string) "\n")))
))
(global-set-key "\M-n" 'changelog-entry)
;; *****************************************************************
;; 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)
;; ***************************************************************
;; My frame setup...
;; ***************************************************************
(setq initial-frame-alist '((top . 26) (left . 465) (width . 50) (height . 60)))
(setq frame-title-format "Emacs %f")
(setq icon-title-format "%b")
;; ***************************************************************
;; News and mail customizations
;; ***************************************************************
;;general mail account name settings
(setq user-mail-address "prash86@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 8
standard-indent 8
indent-tabs-mode t)
;; ***************************************************************
;; 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
;; ****************************************************************
(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)
;; ***************************************************************
;; 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))
;; ****************************************************************
;; 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 nil (font-lock))
'(load-home-init-file t t)
'(python-guess-indent t)
'(python-honour-comment-indentation t)
'(show-paren-mode t)
'(speedbar-frame-parameters (quote ((minibuffer) (width . 20) (border-width . 0) (menu-bar-lines . 0) (tool-bar-lines . 0) (unsplittable . t) (set-background-color "black"))))
'(transient-mark-mode t)
'(x-select-enable-clipboard t))
;; ******************************************************************
;; Customized syntax highlighting colors
;; ******************************************************************
;; (set-default-font "-misc-fixed-medium-r-normal--14-*-*-*-*-*-*-*")
;; (set-default-font "Bitstream Vera Sans Mono-14")
;; (set-default-font "-*-verdana-medium-r-normal-*-14-*-*-*-*-*-iso8859-*")
(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.
'(background "blue")
'(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"))))
'(font-lock-builtin-face ((((class color) (background dark)) (:foreground "Turquoise"))))
'(font-lock-comment-face ((t (:foreground "MediumAquamarine"))))
'(font-lock-constant-face ((((class color) (background dark)) (:bold t :foreground "DarkOrchid"))))
'(font-lock-doc-face ((t (:foreground "darkkhaki"))))
'(font-lock-doc-string-face ((t (:foreground "green2"))))
'(font-lock-function-name-face ((t (:foreground "SkyBlue"))))
'(font-lock-keyword-face ((t (:bold t :foreground "CornflowerBlue"))))
'(font-lock-preprocessor-face ((t (:italic nil :foreground "CornFlowerBlue"))))
'(font-lock-reference-face ((t (:foreground "DodgerBlue"))))
'(font-lock-string-face ((t (:foreground "LimeGreen"))))
'(font-lock-type-face ((t (:foreground "#9290ff"))))
'(font-lock-variable-name-face ((t (:foreground "PaleGreen"))))
'(font-lock-warning-face ((((class color) (background dark)) (:foreground "yellow" :background "red"))))
'(highlight ((t (:background "CornflowerBlue"))))
'(list-mode-item-selected ((t (:background "gold"))))
'(makefile-space-face ((t (:background "wheat"))))
'(mode-line ((t (:background "Navy"))))
'(paren-match ((t (:background "darkseagreen4"))))
'(region ((t (:background "DarkSlateBlue"))))
'(show-paren-match ((t (:foreground "black" :background "wheat"))))
'(show-paren-mismatch ((((class color)) (:foreground "white" :background "red"))))
'(speedbar-button-face ((((class color) (background dark)) (:foreground "green4"))))
'(speedbar-directory-face ((((class color) (background dark)) (:foreground "khaki"))))
'(speedbar-file-face ((((class color) (background dark)) (:foreground "cyan"))))
'(speedbar-tag-face ((((class color) (background dark)) (:foreground "Springgreen"))))
'(vhdl-speedbar-architecture-selected-face ((((class color) (background dark)) (:underline t :foreground "Blue"))))
'(vhdl-speedbar-entity-face ((((class color) (background dark)) (:foreground "darkGreen"))))
'(vhdl-speedbar-entity-selected-face ((((class color) (background dark)) (:underline t :foreground "darkGreen"))))
'(vhdl-speedbar-package-face ((((class color) (background dark)) (:foreground "black"))))
'(vhdl-speedbar-package-selected-face ((((class color) (background dark)) (:underline t :foreground "black"))))
'(widget-field ((((class grayscale color) (background light)) (:background "DarkBlue")))))
(put 'downcase-region 'disabled nil)