.emacs
;;K.Suresh 22 NOV 2004=========
;;Adding muse support on 15 MAY 2006=====
;;dot emacs file
;;keep this simple and crisp
;;move emacs-wiki, planner and remember to individual config.el files
;;+_ Language Environment
(set-language-environment "Japanese")
(set-terminal-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
;;+_ If this is set to utf-8, it will hang in a Japanese Win XP since the
;;default keyboard coding system is shift_jis. needs to fix this
(set-keyboard-coding-system 'shift_jis)
(set-default-coding-systems 'utf-8)
(set-clipboard-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
(set-background-color "AliceBlue")
(set-foreground-color "CadetBlue")
;;+_ 2006 May 23. even after adding this, japanese input changes the encoding to ISO-2022-JP
; Make Emacs UTF-8 compatible for both display and editing:
(prefer-coding-system 'utf-8)
; Turn on syntax colouring in all modes supporting it:
(global-font-lock-mode t)
;;+_ Default tab width
(setq default-tab-width 8);
;;+_ Path for personalised elisp scripts
(add-to-list 'load-path "D:/soft/elisp")
(add-to-list 'load-path "D:/soft/elisp/config")
(add-to-list 'load-path "D:/soft/elisp/mule-ucs")
(add-to-list 'load-path "D:/soft/elisp/planner")
(add-to-list 'load-path "D:/soft/elisp/vm")
;;+_Used to map CJK characters to utf-8 06 JUN 2006
(load "un-define")
(setq utf-translate-cjk-mode t)
;;+_ session.el Saves history, global variables
(require 'session)
(add-hook 'after-init-hook 'session-initialize)
;;+_ ido.el Enhance file opening and buffer switching
(require 'ido)
(ido-mode t)
;;+_ desktop.el. saves the desktop environment
(load "desktop")
(desktop-load-default)
(desktop-read)
;;+_ Tab mode for all the modes
(global-set-key (kbd "TAB") 'self-insert-command);
;;+_ browse-kill-ring.el helps to find things in kill region
(require 'browse-kill-ring)
(global-set-key [(control c)(k)] 'browse-kill-ring)
(browse-kill-ring-default-keybindings)
;;+_ tabbar.el Adds tab bars when multiple files opened
(require 'tabbar)
(tabbar-mode)
(global-set-key (kbd "") 'tabbar-backward-group)
(global-set-key (kbd "") 'tabbar-forward-group)
(global-set-key (kbd "") 'tabbar-backward)
(global-set-key (kbd "") 'tabbar-forward)
;;+_ Bracket matching. press % to match brackets
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching paren if on a paren; otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
;;+_ Thumbs For image browsing
(require 'thumbs)
;;user level muse config file
;;(require 'muse-config)
(require 'muse-init)
(require 'planner-muse-config)
(require 'remember-config)
;;+_ I no more use the following emacs-wiki and old planner-config that is based
;; on emacs-wiki
;;(require 'emacs-wiki-config)
;;(require 'planner-config)
(require 'vm-config)
;;.emacs ends here