;; .emacs
;;;load-path;;;;设置默认的load目录，以后emacs首先从这个目录搜索。
(setq load-path (append load-path (list "/home/xlmo/myelfiles/")))
;(setq load-path (cons "/home/xlmo/myelfiles/" load-path)
;;;;;;;;;;;;;;;;;;;
;;;;default mode;;;;;;;;
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;;;;;;;;;;;;;;;;;;;;
;;tabbar-mode;;;
;; (require 'tabbar)
;; (tabbar-mode)
;;;;;;;;;;;;;;;;
;;;;;ido-mode;;;;;;;;;;由于每次退出的时候都要求选择编码，所以在找到解决办法之前暂时不用。
;; (require 'ido)
;; (ido-mode t)
;;;;;;;;;;;;;;;
;;;ibuffer;;;;;;;;;;
(require 'ibuffer)
;;;;;;;;;;;;;;;
;;;setnu;;;;;;;;显示行号。
(require 'setnu)
;(add-hook 'text-mode-hook 'turn-on-setnu-mode)
;;;;;;;;;;;;;;;
;;;;;thumbs;;;;;;;;;;
;; (require 'thumbs)
;; (thumbs-mode)
;;;;;;;;;;;;;;;
;;;;;table;;;;
(require 'table)
;;;;;;;;;;;;;;
;;;;;display-time;;;;
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;;;;;;;;;;;;;;;;;;;
;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)
;; turn on font-lock mode
(when (fboundp 'global-font-lock-mode)
(global-font-lock-mode t))
;;;;;;;;;;;;;;;;;
;; enable visual feedback on selections
;(setq transient-mark-mode t)
;; default to better frame titles
;(setq frame-title-format
; (concat "%b - emacs@" system-name))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; default to unified diffs
(setq diff-switches "-u")
(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.
'(auto-compression-mode t nil (jka-compr))
'(case-fold-search t)
'(current-language-environment "Chinese-GB")
'(default-input-method "chinese-py-punct")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(transient-mark-mode t))
(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.
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;page jump 页面跳转。
(setq scroll-margin 3
scroll-conservatively 10000)
;;;;;;;;;;;;;;;
;;mouse leave from cursor 当光标移动到鼠标指针所在位置时，鼠标指针自动移开。
(mouse-avoidance-mode 'animate)
;;;;;;;;;;;;;
;;buffer name in title 设置buffer的name显示在标题栏。
(setq frame-title-format "emacs@%b")
;;;;;;;;;;;;;;;;;;;;;;
;;display pictours direct
(auto-image-file-mode)
;;;;;;;;;;;;;;;;;
;;My information;;;;;;;;;;;;
(setq user-full-name "Mo Xiaolong")
(setq user-mail-address "moxiaolong@gmail.com")
;;;;;;;;;;;;;;;;;;;;;;;
;;recursion copy in dired-mode ,make dired can copy and delete directory在dired模式中时允许递归的拷贝和删除目录。
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;;;;;;;;;;;;;;;;;;;;;;;
;;;disable the welcome screen;;;;;;;关闭“开机”画面。
;(setq inhibit-startup-message t)
;;;;;;;;;;;;;;;;;;;
;;;;;;;pop mail;;;;;;;;;
(setenv "pop.gmail.com")
(setq rmail-primary-inbox-list'("po:moxiaolong@gmail.com"))
(setq rmail-pop-password-required t)
;;;;;;;;;;;;;;;;;;;
;;;;;;;un-display the tool bar and menu bar;;;;;;;;对菜单条，工具栏，滚动条的可见设置。
;(menu-bar-mode nil)
(tool-bar-mode nil)
;(scroll-bar-mode nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;ecb+cedet;;;;;;;;;;;
;;(load-file "/home/xlmo/myelfiles/cedet-1.0pre3/common/cedet.el")
;; (semantic-load-enable-code-helpers)
;; (add-to-list 'load-path
;; "/home/xlmo/myelfiles/ecb-2.32")
;; (require 'ecb-autoloads)
;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;color-theme;;;;;;;;;;;;;;
(require 'color-theme)
;(color-theme-classic)
(color-theme-gnome2)
;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;mmm-mode;;;;;;;;;;;;;;;;;;
;(require 'mmm-auto)
;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;backup files;;;;;;;;;;;;;;;;
;; (setq kept-old-versions 2)
;; (setq kept-new-versions 5)
;; (setq delete-old-versions t)
;; (setq backup-directory-alist '(("." . "~/mybackupfiles")))
;; (setq backup-by-copying t)
(setq make-backup-files t)
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("" . "~/mybackupfiles")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;Setting for Chineses;;;;;;;;;;;;;;;;
(set-language-environment 'Chinese-GB)
;(create-fontset-from-fontset-spec
; "-isas-fangsong ti-medium-r-normal-*-*-160-*-*-c-*-gb2312.1980-0" t)
(set-keyboard-coding-system 'chinese-iso-8bit)
(set-clipboard-coding-system 'chinese-iso-8bit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;emacs-wiki;;;;;;;;;;;;;;;
(require 'emacs-wiki)
(setq emacs-wiki-directories '("~/wiki/source/webpage"))
(setq emacs-wiki-publishing-directory "~/wiki/publish/webpage")
(setq emacs-wiki-maintainer "mailto:moxiaolong@gmail.com")
(setq emacs-wiki-charset-default "GBK")
(setq emacs-wiki-coding-default "GBK")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;mpg123;;;;;;;;;;;;;;;;;
;(autoload 'mpg123 "mpg123" "A Front-end to mpg123" t)
;(setq mpg123-default-dir "~/music")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;Emacs-w3m;;;;;;;;;;;;;;
;(require 'w3m-load)
;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;mpg321;;;;;
(setq mp3play-dirlist '("~/music")
;; I want to see the remaining time
mp3play-show-timing 1
;; This because I use a patched mpg321 to control the gain
mp3play-use-remote-gain t
;; Initially, set the gain to 50%
mp3play-initial-gain 50
;; Where to store the info about the song playing to resume later
mp3play-resume-file "~/.mp3play-resume")
(load "mp3play")
;; M-\ go to the mp3play buffer
(define-key global-map [(meta \\)] 'mp3play)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;