emacs Linux Java编程环境_[zt]Linux下开发环境搭建－－－2. emacs篇

;;LOAD_PATH(add-to-list 'load-path'"~/.emacs.d/site-lisp");=========================================END==============================================;;;COLOR_THEME(require 'color-theme)(color-theme-classic);=========================================END==============================================;;;LANG(set-language-environment 'Chinese-GB)(set-keyboard-coding-system 'utf-8)(set-clipboard-coding-system 'utf-8)(set-terminal-coding-system 'utf-8)(set-buffer-file-coding-system 'utf-8)(set-default-coding-systems 'utf-8)(set-selection-coding-system 'utf-8)(modify-coding-system-alist 'process"*"'utf-8)(setqdefault-process-coding-system '(utf-8. utf-8))(setq-defaultpathname-coding-system 'utf-8)(set-file-name-coding-system 'utf-8)(setq ansi-color-for-comint-mode t) ;;处理shell-mode乱码,好像没作用;=========================================END==============================================;;;MY CUSTOMIZE(auto-image-file-mode t);打开图片显示功能(display-time-mode1);显示时间，格式如下(setq display-time-24hr-format t)(setq display-time-day-and-date t)(transient-mark-mode t);允许临时设置标记(setq frame-title-format '(""buffer-file-name"@emacs"));在标题栏显示buffer名称(setqdefault-fill-column80);默认显示 80列就换行(set-scroll-bar-mode nil)  ; 取消滚动栏;;(tool-bar-mode nil)        ; 取消工具栏(setqdefault-directory"~/")     ; 设置打开文件的缺省路径(ido-mode t)             ; 打开ido，使打开文件时后面有提示，在emacs23带有ido(setq visible-bell t)          ; 关闭烦人的出错时的提示声(setq inhibit-startup-message t) ; 关闭emacs启动时的画面(setq gnus-inhibit-startup-message t) ; 关闭gnus启动时的画面(fset 'yes-or-no-p 'y-or-n-p)    ; 按 y 或空格键表示 yes，n 表示 no(setq mouse-yank-at-point t)    ; 不在鼠标点击的那个地方插入剪贴板内容(setq kill-ring-max200)    ; 设置粘贴缓冲条目数量(setq auto-save-mode nil)    ; 自动保存模式(setq x-select-enable-clipboard t) ; 允许emacs和外部其他程序的粘贴(setq user-full-name"XXXXXX")(setq user-mail-address"XXXXXX@gmail.com")    ; 设置有用的个人信息,这在很多地方有用。(setq global-font-lock-mode t)    ; 进行语法加亮。(setq-defaultkill-whole-line t) ; 在行首 C-k 时，同时删除该行(setq show-paren-mode t) ;打开括号匹配显示模式(setq show-paren-style 'parenthesis) ;括号匹配时可以高亮显示另外一边的括号，但光标不会烦人的跳到另一个括号处。(setq mouse-avoidance-mode 'animate) ;光标靠近鼠标指针时，让鼠标指针自动让开，别挡住视线。(setq auto-image-file-mode t) ;让 Emacs 可以直接打开和显示图片(setqdefault-major-mode 'text-mode); (add-hook 'text-mode-hook 'turn-on-auto-fill) ; 设置缺省主模式是text，,并进入auto-fill次模式.而不是基本模式fundamental-mode(setq-defaultauto-fill-function'do-auto-fill) ; Autofillinall modes;;;(setq-defaultindent-tabs-mode nil);(setqdefault-tab-width8);(setq tab-stop-list ());;不用 TAB 字符来indent, 这会引起很多奇怪的错误。编辑 Makefile 的时候也不用担心，因为 makefile-mode 会把 TAB 键设置成真正的 TAB 字符，并且加亮显示的。注：还没搞清楚(setq column-number-mode t)(setq line-number-mode t) ; 显示行号(setq display-time-24hr-format t)(setq display-time-day-and-date t)(display-time) ; 显示时间(setq sentence-end"\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")(setq sentence-end-double-space nil)     ; 设置 sentence-end 可以识别中文标点。不用在 fill 时在句号后插入两个空格。(setq enable-recursive-minibuffers t)     ; 可以递归的使用 minibuffer(setq scroll-margin 3  scroll-conservatively 10000);;防止页面滚动时跳动， scroll-margin 3 可以在靠近屏幕边沿3行时就开始滚动，可以很好的看到上下文。(setq track-eol t)    ; 当光标在行尾上下移动的时候，始终保持在行尾。(setq Man-notify-method 'pushy) ; 当浏览 man page 时，直接跳转到 man buffer。(setq next-line-add-newlines nil)    ; Emacs 21 中已经是缺省设置。按 C-n 或向下键时不添加新行。(setq speedbar-show-unknown-files t);;可以显示所有目录以及文件(setq dframe-update-speed nil);;不自动刷新，手动 g 刷新(setq speedbar-update-flag nil)(setq speedbar-use-images nil);;不使用 image 的方式(setq speedbar-verbosity-level 0)(setq time-stamp-active t)(setq time-stamp-warn-inactive t)(setq time-stamp-format"%:y-%02m-%02d%3a%02H:%02M:%02S chunyu") ; 设置时间戳，标识出最后一次保存文件的时间。(setq dired-recursive-copies 'top)(setq dired-recursive-deletes 'top) ;让 dired 可以递归的拷贝和删除目录。;=========================================END==============================================;;;xcscope(require 'xcscope);; C-c s a             设定初始化的目录，一般是你代码的根目录;; C-s s I             对目录中的相关文件建立列表并进行索引;; C-c s s             序找符号;; C-c s g             寻找全局的定义;; C-c s c             看看指定函数被哪些函数所调用;; C-c s C             看看指定函数调用了哪些函数;; C-c s e             寻找正则表达式;; C-c s f             寻找文件;; C-c s i             看看指定的文件被哪些文件include;=========================================END==============================================;;;文件头header设置(require 'header2);;(require 'header)(setq make-header-hooks '(header-mode-lineheader-blankheader-file-nameheader-blankheader-copyrightheader-blankheader-authorheader-creation-dateheader-modification-authorheader-modification-dateheader-update-countheader-blankheader-historyheader-blank))(setq header-copyright-notice"XXXXXXX")(make-local-variable 'user-full-name)(make-local-variable 'user-mail-address);=========================================END==============================================;;;setnu;(add-hook 'c-mode-common-hook '(lambda()  (require 'setnu+)  ) ) ;;设置C/C++mode显示行号;(add-hook 'c++-mode-common-hook '(lambda()  (require 'setnu+)  ) );; 加载显示行号模块(require 'display-line-number);;(add-hook 'c-mode-common-hook '(lambda()  (require 'display-line-number)  ) );; 如果想所有打开的文件都显示行的话就打开下面的注释;;(global-display-line-number-mode 1);; 设置显示格式(setq display-line-number-format"%3d");; 在 tool bar 上增加一个图标，;; 注意: 一定要在 load-path 中 可以找到 display-line-nuber.xpm 文件才行。;;;;(tool-bar-add-item"display-line-number";;                   'display-line-number-mode;;                   'display-line-number-mode;;                  :help"display line number!";;                   :button (cons :toggle  '(and (boundp;;                                                 display-line-number-mode);;                                                display-line-number-mode)));;;; 使用方法;; M-x display-line-number-mode;; 用来 toggle 显示行号的模式;; M-x display-line-number-mode-on;; 启动显示行号的模式;; M-x display-line-number-mode-off;; 关闭显示行号的模式;; 仅对某种 mode 启动显示行号的模式;; (add-hook 'c-mode-hook 'display-line-number-mode)(add-hook 'c-mode-hook 'display-line-number-mode)(add-hook 'c++-mode-hook 'display-line-number-mode);=========================================END==============================================;;;tabbar(require 'tabbar)(tabbar-mode);=========================================END==============================================;;加入会话功能(require 'session)(add-hook 'after-init-hook 'session-initialize)(load"desktop")(desktop-save-mode);=========================================END==============================================;;; 启用redo(require 'redo);=========================================END==============================================;;;cedet ecb安装(add-hook 'texinfo-mode-hook (lambda () (require 'sb-texinfo)))(load-file"~/.emacs.d/site-lisp/cedet-1.0pre4/common/cedet.el")(semantic-load-enable-code-helpers)(autoload 'speedbar-frame-mode"speedbar" "Popup a speedbar frame"t)(autoload 'speedbar-get-focus"speedbar" "Jump to speedbar frame"t)(define-key-after (lookup-key global-map [menu-bar tools])[speedbar]'("Speedbar".speedbar-frame-mode)[calendar]);; 指定semantic临时文件的路径，避免到处都是临时文件(setq semanticdb-default-save-directory"~/backups/emacs/semantic");;;;C/C++语言启动时自动加载semantic对/usr/include的索引数据库(setq semanticdb-search-system-databases t)(add-hook 'c-mode-common-hook(lambda ()(setq semanticdb-project-system-databases(list (semanticdb-create-databasesemanticdb-new-database-class"/usr/include")))));; project root path(setq semanticdb-project-roots(list(expand-file-name"/")));; 避免semantic占用CPU过多(setq-default semantic-idle-scheduler-idle-time 432000);;ecb(add-to-list 'load-path"~/.emacs.d/site-lisp/ecb-2.32")(load-file"~/.emacs.d/site-lisp/ecb-2.32/ecb.el")(require 'ecb)(setq ecb-auto-activate nilecb-tip-of-the-day nilecb-tree-indent 4ecb-windows-height 0.5ecb-windows-width 0.13)ecb-auto-compatibility-check nilecb-version-check nilinhibit-startup-message t;;重启Emacs;;运行M-x ecb-byte-complie编译，可以加快运行速度;;M-x ecb-show-help看在线帮助;;M-x customize-option RET ecb-source-path RET设置源码目录;;设置自动补全(defun my-indent-or-complete ()(interactive)(if (looking-at"\\>")(hippie-expand nil)(indent-for-tab-command)))(autoload 'senator-try-expand-semantic"senator")(setq hippie-expand-try-functions-list'(senator-try-expand-semantictry-expand-dabbrevtry-expand-dabbrev-visibletry-expand-dabbrev-all-bufferstry-expand-dabbrev-from-killtry-expand-listtry-expand-list-all-bufferstry-expand-linetry-expand-line-all-bufferstry-complete-file-name-partiallytry-complete-file-nametry-expand-whole-kill));=========================================END==============================================;;; c-mode设置;; c-mode公共设置(defun my-c-mode-common-hook ()(setq default-tab-width 4)(setq tab-width 4)(setq c-basic-offset 4)(hs-minor-mode t))(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)(load-library"hideshow")(add-hook 'c-mode-hook 'hs-minor-mode)(add-hook 'c++-mode-hook 'hs-minor-mode)(add-hook 'java-mode-hook 'hs-minor-mode)(add-hook 'perl-mode-hook 'hs-minor-mode)(add-hook 'php-mode-hook 'hs-minor-mode)(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode);;能把一个代码块缩起来，需要的时候再展开;;  M-x              hs-minor-mode;;  C-c @ ESC C-s    show all;;  C-c @ ESC C-h    hide all;;  C-c @ C-s        show block;;  C-c @ C-h        hide block;;  C-c @ C-c toggle hide/show;; C语言设置(defun my-c-mode-hook ()(c-set-style"cc-mode"))(add-hook 'c-mode-hook 'my-c-mode-hook);; C++设置(defun my-c++-mode-hook ()(c-set-style"stroustrup"))(add-hook 'c++-mode-hook 'my-c++-mode-hook);=========================================END==============================================;(defun my-c-mode-auto-pair ()(interactive)(make-local-variable 'skeleton-pair-alist)(setq skeleton-pair-alist  '((?` ?` _"''")(?\( ?  _")")(?\[ ?  _"]")(?{ \n > _ \n ?} >)))(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))(add-hook 'c-mode-hook 'my-c-mode-auto-pair)(add-hook 'c++-mode-hook 'my-c-mode-auto-pair);;输入左边的括号，就会自动补全右边的部分.包括(),"", [] , {} , 等等。;=========================================END==============================================;;;bakup(setq auto-save-default nil)    ;不生成 #filename# 文件(setq make-backup-files t)    ;设定不产生备份文件(setq auto-save-mode nil)    ;自动保存模式;;(setq-default make-backup-files t)    ; 不生成临时文件(setq   delete-old-versions   t)(setq version-control 'never)    ; 启用版本控制，即可以备份多次(setq kept-old-versions 2)    ; 备份最原始的版本两次，及第一次编辑前的文档，和第二次编辑前的文档(setq kept-new-versions 1)    ; 备份最新的版本1次，理解同上(setq delete-old-versions t)    ;删掉不属于以上3中版本的版本(setq backup-directory-alist '((" "."~/backups/emacs/")))    ; 设置备份文件的路径(setq backup-by-copying t)    ;备份设置方法，直接拷贝;; Emacs 中，改变文件时，默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉;; (并不可取)，也可以制定备份的方式。这里采用的是，把所有的文件备份都放在一;; 个固定的地方("~/backups")。对于每个备份文件，保留最原始的两个版本和最新的;; 1个版本。并且备份的时候，备份文件是复本，而不是原件。;=========================================END==============================================;;;HOT KEY;;保留F3、F4、F5、F6、F7、F8 for Xrefactory(global-set-key [f1] 'shell)                              ; 进入shell(global-set-key [C-f9] 'gdb)                              ; 调试(setq compile-command"make-f Makefile")                 ; 编译(global-set-key [f9] 'do-compile)(global-set-key [f10] 'speedbar)                          ; 启动/关闭speedbar(global-set-key (kbd"M-\[") 'hs-hide-block)              ; 隐藏块(global-set-key (kbd"M-\]") 'hs-show-block)              ; 显示块(global-set-key [C-f12] 'comment-or-uncomment-region)     ; 注释 / 取消注释(global-set-key [f12] 'c-indent-line-or-region)           ; 格式化代码(global-set-key (kbd"C-`") 'ecb-goto-window-sources)     ; 切换到ecb sources窗口(global-set-key [C-tab] 'other-window)                    ; 切换窗口(global-set-key [M-return] 'delete-other-windows)         ; 关闭其他窗口(global-set-key"\C-xk"'kill-this-buffer)                ; 关闭当前buffer(global-set-key (kbd"s-SPC") 'set-mark-command)          ; 改变set mark键;; 显示buffer列表(global-set-key (kbd"C-x C-b") 'ibuffer);; 跳转到当前目录的Dired(global-set-key"\C-x\C-j"'dired-jump);; 跳转到寄存器指定的位置(global-set-key"\C-xj"'jump-to-register);; 跳转到全局定义(global-set-key"\C-xg"'cscope-find-global-definition-no-prompting)(global-set-key (kbd"S-") 'set-mark-command) ;用shift+space 来 setmark 了, C-@ 很不好按。(global-set-key [C-=] 'my-indent-or-complete)     ;自动补全或缩进(global-set-key [\C-f12] 'ecb-activate)         ;启用ECB(global-set-key [\C-S-f12] 'ecb-deactivate)     ;退出ECB;; 补全命令 右Ctrl+\ 自动补全menu(global-set-key [M-/] 'hippie-expand);;(global-set-key [(control return)] 'senator-complete-symbol);;;(global-set-key [(control return)] ' senator-completion-menu-popup)(global-set-key"\C-\\"'semantic-ia-complete-symbol-menu);;tabbar(global-set-key (kbd"S-") 'tabbar-backward-group)(global-set-key (kbd"S-") 'tabbar-forward-group)(global-set-key (kbd"S-") 'tabbar-backward)(global-set-key (kbd"S-") 'tabbar-forward)(global-set-key ( kbd"C-.") 'redo);=========================================END==============================================;(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.'(ecb-options-version"2.32")'(ecb-primary-secondary-mouse-buttons (quote mouse-1--mouse-2)))(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.);=========================================END==============================================;;; Xrefactory configuration part ;;;; some Xrefactory defaults can be set here(defvar xref-current-project t) ;; can be also"my_project_name";;注:这里的nil改为了t(defvar xref-key-binding 'global) ;; can be also 'local or 'none(setq load-path (cons"/home/uiu/.emacs.d/site-lisp/xref/emacs"load-path))(setq exec-path (cons"/home/uiu/.emacs.d/site-lisp/xref"exec-path))(load"xrefactory");; end of Xrefactory configuration part ;;(message"xrefactory loaded");=========================================END==============================================;