我的.emacs文件

koeiknight

(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. ;'(column-number-mode t)  ;显示列号  '(display-time-mode t);显示时间 ;;'(indent-tabs-mode nil) ;'(show-paren-mode t)  '(standard-indent 2);缩进为2格  '(tab-width 2) ;Tab键为2格  '(transient-mark-mode t)) (setq default-major-mode 'text-mode);一打开就起用 text 模式。 (global-font-lock-mode t);语法高亮 (auto-image-file-mode t);打开图片显示功能 (fset 'yes-or-no-p 'y-or-n-p);以 y/n代表 yes/no，可能你觉得不需要，呵呵。 (column-number-mode t);显示列号 (show-paren-mode t);显示括号匹配 (display-time-mode 1);显示时间，格式如下 (setq display-time-24hr-format t) (setq display-time-day-and-date t) (tool-bar-mode nil);去掉那个大大的工具栏 ;(scroll-bar-mode nil);去掉滚动条，因为可以使用鼠标滚轮了 ^_^ (mouse-avoidance-mode 'animate);光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。很好玩阿，这个功能 (setq mouse-yank-at-point t);支持中键粘贴 (transient-mark-mode t);这个忘了，郁闷！ (setq x-select-enable-clipboard t);支持emacs和外部程序的粘贴 (setq frame-title-format "gaof@%b");在标题栏提示你目前在什么位置。你要把zhan改成自己的用户名 (setq default-fill-column 80);默认显示 80列就换行  (load-file "/home/gaof/prime/etc/emacs/color-theme.el") ;(color-theme-dark-blue);选择 darkblue的配色方案  (set-default-font "-sony-fixed-medium-r-normal--16-120-100-100-c-80-iso8859-1") (setq skeleton-pair t) ;括号的自动配对 (local-set-key (kbd "[") 'skeleton-pair-insert-maybe) (local-set-key (kbd "(") 'skeleton-pair-insert-maybe) (local-set-key (kbd "{") 'skeleton-pair-insert-maybe)  (local-set-key (kbd "<") 'skeleton-pair-insert-maybe) ;(local-set-key [(control o)] 'vi-open-next-line) ;设置快捷键的一种方式 (color-theme-sitaramv-solaris) ;设置Ruby模式 (setq load-path (add-to-list 'load-path "/usr/share/emacs22/site-lisp/mozart")) (setq load-path (add-to-list 'load-path "/usr/share/emacs/site-lisp/ruby1.8-elisp")) (require 'ruby-mode) (add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode)) ;设置session和desktop (setq load-path (add-to-list 'load-path "/home/gaof/prime/etc/emacs")) (require 'session) (add-hook 'after-init-hook 'session-initialize) (load "desktop")  (desktop-load-default)   (desktop-read)  (desktop-save-mode 1) ;抑制启动时的提示信息 (setq inhibit-startup-message t) ;保证同名文件显示的缓冲区名称唯一 (setq uniquify-buffer-name-style 'forward) ;设置org模式 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode)) (define-key global-map "\C-cl" 'org-store-link) (define-key global-map "\C-ca" 'org-agenda) (setq org-hide-leading-stars t) (setq org-log-done t) (setq org-agenda-files (list "~/org/work.org"     "~/org/todo.org"     "~/org/school.org"             "~/org/home.org"))   ;以Server模式启动 (server-start) (require 'ido) (ido-mode t) (require 'tabbar) (tabbar-mode) (global-set-key [s-up]    'tabbar-backward-group) (global-set-key [s-down]  'tabbar-forward-group) (global-set-key [s-left]  'tabbar-backward) (global-set-key [s-right] 'tabbar-forward) ;设置进入VIP模式的快捷键，注意Win键的设置方法 (global-set-key (kbd "s-z") 'vip-mode) ;显示缓冲区对应的文件全路径 (defun display-buffer-name ()   (interactive) (message (buffer-file-name (current-buffer))))