会python真的可以为所欲为0(回)
450天前
这里还有人吗1(回)
635天前这里还有人吗0(回)
635天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
860天前到处都是羊，不想上班0(回)
940天前
鸽子
0(回)
944天前;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;; Filename: .emacs el lisp文件 |
;; |
;; Copyright (C) 2011 |
;; Created at: Aug 12 15:56:07 2011 |
;; Author : YuChao from SINA |
;; E-Mail : yuchao86@gmail.com |
;; Description: 将此文件重命名为".emacs"，并在用户HOME目录即可。 |
;; 参考了水木清华王根的各种配置，还有Emacs中文网的资料 |
;; 特此感谢EMACS中文网：http://emacser.com/ |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
;;********************** basic setting ********************* |
;;Load_path |
(add-to-list 'load-path' "~/.emacs.d/plugins") |
;;todo_path |
(setq todo-file-do "~/emacs/todo/do") |
(setq todo-file-done "~/emacs/todo/done") |
(setq todo-file-top "~/emacs/todo/top") |
;;Personal information |
(setq user-full-name "Yu Chao") |
(setq user-mail-address "yuchao86@gmail.com") |
;;====================== time setting ===================== |
;;时间显示设置 |
;;启用时间显示设置，在minibuffer上面的那个杠上（忘了叫什么来着） |
(display-time-mode 1) |
;;时间使用24小时制 |
(setq display-time-24hr-format t) |
;;时间显示包括日期和具体时间 |
(setq display-time-day-and-date t) |
;;时间栏旁边启用邮件设置 |
(setq display-time-use-mail-icon t) |
;;时间的变化频率，单位多少来着？ |
(setq display-time-interval 10) |
;;显示时间，格式如下 |
(display-time-mode 1) |
(setq display-time-24hr-format t) |
(setq display-time-day-and-date t) |
;;---------------------- END time setting --------------------- |
;;====================== color setting ===================== |
;; 指针颜色设置为白色 |
;;(set-cursor-color "white") |
;; 鼠标颜色设置为白色 |
;;(set-mouse-color "white") |
;; 设置背景颜色和字体颜色 |
(set-foreground-color "white") |
(set-background-color "darkblue") |
;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择 |
(set-face-foreground 'highlight "white") |
(set-face-background 'highlight "blue") |
(set-face-foreground 'region "cyan") |
(set-face-background 'region "blue") |
(set-face-foreground 'secondary-selection "skyblue") |
(set-face-background 'secondary-selection "darkblue") |
;;设置日历的一些颜色 |
(setq calendar-load-hook |
'(lambda () |
(set-face-foreground 'diary-face "skyblue") |
(set-face-background 'holiday-face "slate blue") |
(set-face-foreground 'holiday-face "white"))) |
;;---------------------- END color setting --------------------- |
;;Font |
(set-default-font "13") |
;;不要生成临时文件 |
(setq-default make-backup-files nil) |
;;设置中文语言环境 |
;;(set-language-environment 'Chinese-GB) |
;;写文件的编码方式 |
;;(set-buffer-file-coding-system 'gb2312) |
(set-buffer-file-coding-system 'utf-8) |
;;新建文件的编码方式 |
;;(setq default-buffer-file-coding-system 'gb2312) |
(setq default-buffer-file-coding-system 'utf-8) |
;;终端方式的编码方式 |
(set-terminal-coding-system 'utf-8) |
;;键盘输入的编码方式 |
;;(set-keyboard-coding-system 'gb2312) |
;;读取或写入文件名的编码方式 |
(setq file-name-coding-system 'utf-8) |
;;打开就启用 text 模式 |
(setq default-major-mode 'text-mode) |
;;禁用启动信息 |
;;(setq inhibit-startup-message t) |
;;语法高亮 |
(global-font-lock-mode t) |
(put 'set-goal-column 'disabled nil) |
(put 'narrow-to-region 'disabled nil) |
(put 'upcase-region 'disabled nil) |
(put 'downcase-region 'disabled nil) |
(put 'LaTeX-hide-environment 'disabled nil) |
;;打开图片显示功能 |
;;(auto-image-file-mode t) |
;;以 y/n 替代 yes/no |
(fset 'yes-or-no-p 'y-or-n-p) |
;;显示行列号 |
(column-number-mode t) |
;;显示列号 |
(setq mouse-yank-at-point t) |
;;显示括号匹配 |
(show-paren-mode t) |
;;隐藏工具栏 |
;;(tool-bar-mode nil) |
;; 隐藏滚动条。实际上再本机上的emacs-2.23是没有这个模式的。 |
;;(scroll-bar-mode nil) |
;;去掉工具栏 |
;;(tool-bar-mode nil) |
;;去掉菜单栏，我将F10绑定为显示菜单栏，万一什么东西忘了，需要菜单栏了可以摁F10调出，再摁F10就去掉菜单 |
(menu-bar-mode nil) |
;;光标靠近鼠标指针时，让鼠标指针自动让开 |
;;(mouse-avoidance-mode 'animate) |
;;不要在鼠标光标出插入 |
;;(setq mouse-yank-at-point t) |
;;高亮显示选中的区域 |
(transient-mark-mode t) |
;;支持emacs和外部程序的拷贝粘贴 |
(setq x-select-enable-clipboard t) |
;;在标题栏提示当前位置 |
(setq frame-title-format "Admire@%b") |
;;可以递归的使用 minibuffer |
(setq enable-recursive-minibuffers t) |
;;显示80列就换行 |
(setq default-fill-column 80) |
;;禁止终端响铃 |
(setq visiable-bell t) |
;;设置tab为4个空格的宽度 |
;;(setq default-tab-width 4) |
;;打开缺省禁用的功能 |
(setq version-control t) |
(setq kept-new-versions 3) |
(setq delete-old-versions t) |
(setq kept-old-versions 2) |
(setq dired-kept-versions 1) |
;;设置备份时的版本控制，这样更加安全。 |
(mapcar |
(function (lambda (setting) |
(setq auto-mode-alist |
(cons setting auto-mode-alist)))) |
'(("\\.xml$". sgml-mode) |
("\\\.bash" . sh-mode) |
("\\.rdf$". sgml-mode) |
("\\.session" . emacs-lisp-mode) |
("\\.l$" . c-mode) |
("\\.css$" . css-mode) |
("\\.cfm$" . html-mode) |
("gnus" . emacs-lisp-mode) |
("\\.idl$" . idl-mode))) |
;;让 dired 可以递归的拷贝和删除目录 |
(setq dired-recursive-copies 'top) |
(setq dired-recursive-deletes 'top) |
;;时间戳设置(time-stamp)，设定文档上次保存的信息 |
;;只要里在你得文档里有Time-stamp:的设置，就会自动保存时间戳 |
;;启用time-stamp |
(setq time-stamp-active t) |
;;去掉time-stamp的警告？ |
(setq time-stamp-warn-inactive t) |
;;设置time-stamp的格式，我如下的格式所得的一个例子： |
(setq time-stamp-format "%:u %02m/%02d/%04y %02H02M02S") |
;;将修改时间戳添加到保存文件的动作里。 |
(add-hook 'write-file-hooks 'time-stamp) |
;;在文档最后自动插入空白一行，好像某些系统配置文件是需要这样的 |
(setq require-final-newline t) |
(setq track-eol t) |
;;使用C-k删掉指针到改行末的所有东西 |
(setq-default kill-whole-line t) |
;;设定删除保存记录为200，可以方便以后无限恢复 |
(setq kill-ring-max 200) |
;;增大使用查找函数和变量的寻找范围 |
(setq apropos-do-all t) |
;;是用aspell程序作为Emacs的拼写检查成学 |
(setq-default ispell-program-name "aspell") |
;;使用narrow功能时的一个设置 |
(put 'narrow-to-region 'disabled nil) |
;;启动Emacs自动设置为两个窗口(上下各一个) |
;;(split-window-vertically) |
;;功能是将当前行设为本页第一行，同终端下的clear命令有点相似 |
(defun line-to-top-of-window () |
"Move the line point is on to top of window." |
(interactive) |
(recenter 0)) |
;;代码折叠 |
(load-library "hideshow") |
(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) |
;;临时记号 |
;;有时你需要跳到另一个文件进行一些操作，然后很快的跳回来。你当然可以 使用 bookmark或者寄存器。 |
;;但是这些实在是太慢了。你多想拥有vi那样的 ma, mb, 'a, 'b 的操作。现在你可以用几行 elisp 达到类似的目的 |
(global-set-key [(control ?\.)] 'ska-point-to-register) |
(global-set-key [(control ?\,)] 'ska-jump-to-register) |
(defun ska-point-to-register() |
"Store cursorposition _fast_ in a register. |
Use ska-jump-to-register to jump back to the stored |
position." |
(interactive) |
(setq zmacs-region-stays t) |
(point-to-register 8)) |
(defun ska-jump-to-register() |
"Switches between current cursorposition and position |
that was stored with ska-point-to-register." |
(interactive) |
(setq zmacs-region-stays t) |
(let ((tmp (point-marker))) |
(jump-to-register 8) |
(set-register 8 tmp))) |
;; go-to-char 非常感谢 Oliver Scholz 提供这个函数给 我。 |
;;这个函数是一个 vi 的 "f" 命令的替代品。vi的用户知道，vi有 一个特别好的命令 "f"。当你按 "fx", x 是任意一个字符时 |
;;光标 就会移动到下一个 "x" 处。这之后只要按 ";"(分号)，光标就到再 下一个 "x"。 |
;;举个例子说明这个命令的用途。比如我们有这样一行字，光标在 行首。 |
;;(setq unread-command-events (list last-input-event))) |
;; ^^^^^ |
;;我们希望迅速的到达最后那个 event 处，于是我在 vi 里按 "fe"。结果光标到了 "setq" 的那个 e 上面，这时候我接着按 ";", |
;;不一会儿就到了我们想要的地方。很方便吧？可能起初不觉得，后来 你发现这真的非常好！ |
;;我一直觉得 Emacs 没有这样一个方便的命令，但是 Oliver 给了 我一个完美的答案： |
;;有了这段代码之后，当你按 C-c a x (x 是任意一个字符) 时，光 标就会到下一个 x 处。再次按 x，光标就到下一个 x。比如 C-c a w w w w ..., C-c a b b b b b b ... |
;;我觉得这个方式比 vi 的 "f" 要快。 |
(defun wy-go-to-char (n char) |
"Move forward to Nth occurence of CHAR. |
Typing `wy-go-to-char-key' again will move forwad to the next Nth |
occurence of CHAR." |
(interactive "p\ncGo to char: ") |
(search-forward (string char) nil nil n) |
(while (char-equal (read-char) |
char) |
(search-forward (string char) nil nil n)) |
(setq unread-command-events (list last-input-event))) |
(define-key global-map (kbd "C-c a") 'wy-go-to-char) |
;;====================== Chinese setting ===================== |
;;(setq gnus-default-charset 'cn-gb-2312 |
;;gnus-group-name-charset-group-alist '((".*" . gb2312)) |
;;gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5) (3 . chinese-gbk) (4 . utf-8)) |
;;gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1) |
;;gnus-group-posting-charset-alist '((".*" gb2312 (gb2312)))) |
;;(define-coding-system-alias 'gb18030 'gb2312) |
;;------------设置(utf-8)模式------------ |
(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) |
(setq default-process-coding-system '(utf-8 . utf-8)) |
(setq-default pathname-coding-system 'utf-8) |
(set-file-name-coding-system 'utf-8) |
(setq ansi-color-for-comint-mode t) ;;′|àshell-mode??,o??÷[M`J3 |
;;设置 sentence-end 可以识别中文标点。不用在 fill 时在句号后插 入两个空格。 |
(setq sentence-end "\\([。！？]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*") |
(setq sentence-end-double-space nil) |
;;---------------------- End Chinese setting --------------------- |
;;窗口设置 |
(gnus-add-configuration '(article (vertical 1.0 (summary .35 point) (article1.0)))) |
;;Group Buffer设置 |
;;自动进入Topic-mode |
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode) |
;;Sumarry Buffer设置 |
(setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n") |
;;Article Buffer设置 |
;;设定要显示的头消息格式 |
(setq gnus-visible-headers |
"^\\(^To:\\|^CC:\\|^From:\\|^Subject:\\|^Date:\\|^Followup-To: |
\\|^X-Newsreader:\\|^User-Agent:\\|^X-Mailer: |
\\|Line:\\|Lines:\\|Content-Type:\\|NNTP-Posting-Host\\)") |
;; session.el |
;;(require 'session) |
;; (add-hook 'after-init-hook 'session-initialize) |
;;自动断行，每行80个字符 |
(add-hook 'message-mode-hook (lambda () |
(setq fill-column 80) |
(turn-on-auto-fill))) |
;;====================== 字体解码优先顺序 =====================; |
;;从王垠那拷过来的，不用怎么再改吧。 |
;;(setq font-encoding-alist |
;;(append '(("MuleTibetan-0" (tibetan . 0)) |
;;("GB2312" (chinese-gb2312 . 0)) |
;;("JISX0208" (japanese-jisx0208 . 0)) |
;;("JISX0212" (japanese-jisx0212 . 0)) |
;;("VISCII" (vietnamese-viscii-lower . 0)) |
;;("KSC5601" (korean-ksc5601 . 0)) |
;;("MuleArabic-0" (arabic-digit . 0)) |
;;("MuleArabic-1" (arabic-1-column . 0)) |
;;("MuleArabic-2" (arabic-2-column . 0))) font-encoding-alist)) |
;;---------------------- 字体解码优先顺序 --------------------- |
;;鼠标滚轮，默认的滚动太快，这里改为3行 |
(defun up-slightly () (interactive) (scroll-up 3)) |
(defun down-slightly () (interactive) (scroll-down 3)) |
(global-set-key [mouse-4] 'down-slightly) |
(global-set-key [mouse-5] 'up-slightly) |
;;约会提醒 |
(setq appt-issue-message t) |
;;********************** 全局按键设定 ********************* |
;;设置[f1]为goto-line |
;;(global-set-key [f1] 'info) |
(global-set-key [f1] 'goto-line) |
(global-set-key [f2] 'eshell) |
;;(global-set-key [f3] 'shell) |
(global-set-key [f4] 'kill-this-buffer) |
;;[f11] define to maximise present window |
;;习惯设置，打开／关闭菜单 |
(global-set-key [f12] 'menu-bar-mode) |
;;移动光标设置 |
(global-set-key [home] 'beginning-of-buffer) |
(global-set-key [end] 'end-of-buffer) |
;;切换buffer的设置 |
(global-set-key [(control o)] 'other-window) |
(global-set-key [(control tab)] 'tabbar-forward) |
;;********************** 常用编程配置 ********************* |
;; 按下Alt+/，就会弹出菜单让你自动补全 |
;;(define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu) |
;;热键设置 |
(global-set-key [f5] 'complile) |
(setq-default compile-command "make") |
(global-set-key [f6] 'speedbar) |
(global-set-key [f7] 'gdb) |
(global-set-key [f8] 'previous-error) |
(global-set-key [f9] 'next-error) |
;;启动窗口gdb |
(global-set-key [f10] 'gdb-many-windows) |
;;(global-set-key [f9] 'delete-window);F9 关闭d当前窗口 |
;;(global-set-key [f8] 'other-window);F8窗口间跳转 |
;;(global-set-key [(f2)] 'ansi-term);F2 切换到shell模式 |
;;(global-set-key [f3] 'split-window-vertically);F3分割窗口 |
;;(global-set-key [f12] 'my-fullscreen);F12 全屏 |
;;(global-set-key [(f4)] 'compile);编译 |
;;(global-set-key [f5] 'gdb);启动gdb |
;;(global-set-key [(f6)] 'gdb-many-windows);启动窗口gdb |
;;(global-set-key [f1] 'goto-line);设置M-g为goto-line |
;;(global-set-key [f7] 'other-frame);跳到其它窗格 |
;;(global-set-key [(f3)] 'speedbar);打开speedbar |
;;########### CC-mode配置 http://cc-mode.sourceforge.net/ ################ |
(require 'cc-mode) |
(c-set-offset 'inline-open 0) |
(c-set-offset 'friend '-) |
(c-set-offset 'substatement-open 0) |
:;(setq indent-tabs-mode nil) |
(setq c-basic-offset 4 ) |
(setq default-tab-width 4) |
;;(setq tab-stop-list()) |
;;(loop for x downfrom 40 to 1 do |
;; (setq tab-stop-list (cons(* x 4) tab-stop-list))) |
;;默认Linux内核编程风格，取自Linux内核说明文档 |
(setq auto-mode-alist (cons '("/usr/src/linux.*/.*\\.[ch]$" . linux-c-mode) |
auto-mode-alist)) |
(defun linux-c-mode () |
"C mode with adjusted defaults for use with the Linux kernel." |
(interactive) |
(c-mode) |
(c-set-style "K&R") |
(setq tab-width 4) ;;默认风格是8个缩进 |
(setq indent-tabs-mode t) |
(setq c-basic-offset 4)) ;;默认风格是8个缩进 |
;;c-mode或cc-mode下缩进只有4格 |
(add-hook 'c-mode-hook |
'(lambda () |
(c-set-style "Stroustrup"))) |
;;**************************************************************** |
;;C/C++语言编辑策略 |
;;有些问题 |
;;(defun my-c-mode-common-hook() |
;;(define-key c-mode-base-map [(f7)] 'compile) |
;;(setq tab-width 4 indent-tabs-mode nil) |
;; hungry-delete and auto-newline |
;;(c-toggle-auto-hungry-state 1) |
;;C++语言编辑策略 |
;;(defun my-c++-mode-hook() |
;;(setq c-basic-offset 4 ) |
;; (setq tab-width 4 indent-tabs-mode nil) |
;; (c-set-style "stroustrup") |
;;(define-key c++-mode-map [f3] 'replace-regexp) |
;;) |
;;_____________C______________ |
;;C预处理设置 |
;;(setq c-macro-shrink-window-flag t) |
;;(setq c-macro-preprocessor "c") |
;;(setq c-macro-cppflags " ") |
;;(setq c-macro-prompt-flag t) |
;;(setq abbrev-mode t) |
;;(add-hook 'c-mode-common-hook 'my-c-mode-common-hook) |
;;___________CPP______________ |
;;CPP预处理设置 |
;;(setq c-macro-shrink-window-flag t) |
;;(setq c-macro-preprocessor "cpp") |
;;(setq c-macro-cppflags " ") |
;;(setq c-macro-prompt-flag t) |
;;(setq abbrev-mode t) |
;;(add-hook 'c-mode-common-hook 'my-c-mode-common-hook) |
;;下面这句是自动换行 |
;;(c-toggle-auto-hungry-state 1) |
;;(c-set-style "stroustrup") |
;;(add-hook 'c-mode-common-hook 'program-mode) |
;;(add-hook 'c++-mode-common-hook 'program-mode) |
;;====================== 自动补全功能 ===================== |
;;自动补全功能，这事从王垠的网站直接Copy过来的，引用一些他对此的说明 |
;;设置以下 hippie-expand 的补全方式。它是一个优先列表， hippie-expand 会优先使用表最前面 |
;;的函数来补全这是说，首先使用当前的buffer补全，如果找不到，就到别的可见的窗口里寻找，如 |
;;还找不到，那么到所有打开的buffer去找，如果还……那么到kill-ring里，到文件名，到简称列表 |
;;里，到list，当前使用的匹配方式会在 echo 区域显示。 |
;;特别有意思的是 try-expand-line，它可以帮你补全整整一行文字。我很多时后有两行文字大致相 |
;;同，只有几个字不一样，但是我懒得去拷贝粘贴以下。那么我就输入这行文字的前面几个字。然后 |
;;多按几下 M-/ 就能得到那一行。 |
(global-set-key [(meta ?/)] 'hippie-expand) |
(setq hippie-expand-try-functions-list |
'(try-expand-line |
try-expand-line-all-buffers |
try-expand-list |
try-expand-list-all-buffers |
try-expand-dabbrev |
try-expand-dabbrev-visible |
try-expand-dabbrev-all-buffers |
try-expand-dabbrev-from-kill |
try-complete-file-name |
try-complete-file-name-partially |
try-complete-lisp-symbol |
try-complete-lisp-symbol-partially |
try-expand-whole-kill)) |
;;hippie的自动补齐策略，优先调用了senator的分析结果： |
(autoload 'senator-try-expand-semantic "senator") |
;;---------------------- End 自动补全 --------------------- |
;;====================== 常用编程插件 ===================== |
;;********************** auto-header ********************* |
(add-to-list 'load-path "~/.emacs.d/plugins/") |
;;(require 'auto-header) |
;;加载auto-header.el文件,自动添加文件头 |
;;(require 'auto-header) |
;; 设置文件头中的姓名 |
(setq header-full-name "Yu Chao") |
;; 设置邮箱 |
(setq header-email-address "yuchao86@gmail.com") |
;; 设置每次保存时要更新的项目 |
(setq header-update-on-save |
'( filename |
modified |
counter |
copyright)) |
;; 设置文件头的显示格式 |
(setq header-field-list |
'( filename ;文件名 |
blank ;空行，下同 |
;;copyright ;;版权 |
version |
author ;作者 |
created ;创建人 |
blank |
description ;描述 |
;;blank |
;;modified_by ;更改者 |
;; blank |
;;status ;状态，是否发布 |
;;更新 |
;;blank |
)) |
;;---------------------- END auto-header --------------------- |
;;====================== Load cedet ===================== |
;; See cedet/common/cedet.info for configuration details. |
;;(load-file "~/.emacs.d/plugins/cedet-1.0pre7/common/cedet.el") |
;; Enable EDE (Project Management) features |
;;(global-ede-mode 1) |
;; Enable EDE for a pre-existing C++ project |
;; (ede-cpp-root-project "NAME" :file "~/myproject/Makefile") |
;; Enabling Semantic (code-parsing, smart completion) features |
;; Select one of the following: |
;; * This enables the database and idle reparse engines |
;;(semantic-load-enable-minimum-features) |
;; * This enables some tools useful for coding, such as summary mode |
;; imenu support, and the semantic navigator |
;;(semantic-load-enable-code-helpers) |
;; * This enables even more coding tools such as intellisense mode |
;; decoration mode, and stickyfunc mode (plus regular code helpers) |
;; (semantic-load-enable-gaudy-code-helpers) |
;; * This enables the use of Exuberent ctags if you have it installed. |
;; If you use C++ templates or boost, you should NOT enable it. |
;; (semantic-load-enable-all-exuberent-ctags-support) |
;; Or, use one of these two types of support. |
;; Add support for new languges only via ctags. |
;; (semantic-load-enable-primary-exuberent-ctags-support) |
;; Add support for using ctags as a backup parser. |
;; (semantic-load-enable-secondary-exuberent-ctags-support) |
;; Enable SRecode (Template management) minor-mode. |
;; (global-srecode-minor-mode 1) |
;;---------------------- END cedet --------------------- |
;;====================== Load ecb ===================== |
(add-to-list 'load-path "~/.emacs.d/plugins/ecb") |
(require 'ecb) |
;;(require 'ecb-autoloads) |
;;打开emacs，然后M-x ecb-activate即可打开ecb。 |
;;---------------------- END ecb --------------------- |
;;====================== Load cscope ===================== |
(add-to-list 'load-path "~/emacs.d/plugins/cscope-15.7a/contrib/xcscope/") |
;;(require 'xcscope) |
;;如果工程十分庞大，即使是判断文件更新与否也很费时，可以告诉 Emacs 别自 动更新 cscope.out： |
;;(setq cscope-do-not-update-database t) |
;;先M-x !，然后cscope -b，之后就可以在源代码中进行跳转了。命令见cscope菜单 |
;;这里有篇讲怎么在emacs下安装和使用cscope的： |
;;http://ann77.stu.cdut.edu.cn/EmacsCscope.html |
;;---------------------- END cscop --------------------- |
;;====================== Load color-theme ===================== |
;;配色方案 |
;;(load-file "~/.emacs.d/plugins/color-theme.el") |
;;(require 'color-theme) |
;;(add-hook 'c-mode-common-hook 'color-theme-taylor) |
;;(add-hook 'c++-mode-common-hook 'color-theme-taylor) |
;;---------------------- END color-theme --------------------- |
;;====================== `Load gdb-many-window ===================== |
;;gdb-many-window |
;;这个功能插件可以使emacs的调试界面像VC一样，有watch, stacktrace等窗口，真正实现图形化gdb. |
;;在emacs中编译好程序，然后M-x gdb，连按两次ret，多窗口gdb就出来了 |
;;http://www.inet.net.nz/~nickrob/multi-gud.el |
;;http://www.inet.net.nz/~nickrob/multi-gdb-ui.el |
(add-to-list 'load-path"~/.emacs.d/plugins") |
(setq gdb-many-windows t) |
(load-library "multi-gud.el") |
(load-library "multi-gdb-ui.el") |
;;---------------------- END gdb-many-window --------------------- |
;;====================== Load linum ===================== |
;;调用linum.el(line number)来显示行号： |
;;(add-to-list 'load-path"~/.emacs.d/plugins") |
(require 'linum) |
(global-linum-mode 1) |
;;---------------------- END linum --------------------- |
;;====================== Load Doxymacs ===================== |
;;调用linum.el(line number)来显示行号： |
;;(add-to-list 'load-path"~/.emacs.d/plugins/") |
;;(require 'doxymacs) |
;;(add-hook 'c-mode-common-hook 'doxymacs-mode) |
;;(defun my-doxymacs-font-lock-hook () |
;;(if (or (eq major-mode 'c-mode) (eq major-mode 'c++-mode)) |
;; (doxymacs-font-lock))) |
;;(add-hook 'font-lock-mode-hook 'my-doxymacs-font-lock-hook) |
;; This will add the Doxygen keywords to c-mode and c++-mode only. |
;;- Default key bindings are: |
;; - C-c d ? will look up documentation for the symbol under the point. |
;; - C-c d r will rescan your Doxygen tags file. |
;; - C-c d f will insert a Doxygen comment for the next function. |
;; - C-c d i will insert a Doxygen comment for the current file. |
;; - C-c d ; will insert a Doxygen comment for the current member. |
;; - C-c d m will insert a blank multi-line Doxygen comment. |
;; - C-c d s will insert a blank single-line Doxygen comment. |
;; - C-c d @ will insert grouping comments around the current region. |
;;---------------------- END Doxymacs --------------------- |
;;====================== Load yasnippet ===================== |
;;自动补全代码插件 |
(add-to-list 'load-path |
"~/.emacs.d/plugins/yasnippet-0.6.1c") |
(require 'yasnippet) ;; not yasnippet-bundle |
(yas/initialize) |
(yas/load-directory "~/.emacs.d/plugins/yasnippet-0.6.1c/snippets") |
;;---------------------- END yasnippet --------------------- |
;;================================PHP-Mode=================================== |
;; PHP 语法支持,需要MMM模块的添加才支持混合代码 |
(add-to-list 'load-path"~/.emacs.d/plugins/php") |
;;php-mode |
(require 'php-mode) |
;;根据扩展名绑定 |
(add-to-list 'auto-mode-alist '("\\.php[34]?\\'\\|\\.phtml\\'" . php-mode)) |
(add-to-list 'auto-mode-alist '("\\.module\\'" . php-mode)) |
(add-to-list 'auto-mode-alist '("\\.inc\\'" . php-mode)) |
(require 'auto-complete) |
(locate-library "auto-complete.el") |
;;php 自动提示设置 |
(add-hook 'php-mode-hook |
(lambda () |
(require 'php-completion) |
(php-completion-mode t) |
(define-key php-mode-map (kbd "C-o") 'phpcmp-complete))) |
(add-hook 'php-mode-hook |
(lambda () |
(when (require 'auto-complete nil t) |
(make-variable-buffer-local 'ac-sources) |
(add-to-list 'ac-sources 'ac-source-php-completion) |
;; if you like patial match, |
;; use `ac-source-php-completion-patial' instead of `ac-source-php-completion'. |
(add-to-list 'ac-sources 'ac-source-php-completion-patial) |
(auto-complete-mode t)))) |
;;====================================PHP自动提示======================== |
(add-to-list 'load-path "~/.emacs.d/plugins/php/") |
(require 'install-elisp) |
(setq install-elisp-repository-directory "~/.emacs.d/plugins/php/") |
;;设置使用install-elisp-from-emacswiki 后下载下来的文件路径，我把它们放在一个文件夹里面 |
