Windows下ORACLE 10g安装与操作图?/span>
Oracle 2008-08-07 08:17:34 阅读7580 评论8 字号Q大中小
刚刚接触ORACLE的h来说,从那里学,如何?有那些工具可以?应该执行什么操?一定回感到无助。所以在学习使用ORACLE之前Q首先来安装一下ORACLE 10gQ在来掌握其基本工具。俗话说的好Q工Ʋ善其事Q必先利其器。我们开始吧Q?/span>
首先ORACLE 10g的安装光盘放入光驱，如果自动q行Q一般会出现如图1安装界面Q?/span>
?
单击“开始安?#8221;Q就可以安装ORACLE 10gQ一般会查系l配|是否符合要求，然后出现“Oracle DataBase 10g安装”对话框，如图2所C：
?
在安装Oracle DataBase 10g时可以选择“基本安装”?#8220;高安装”两种Ҏ。选择“基本安装”Ӟ“Oracleȝ录位|?#8221;用于指定Oracle DataBase 10g软g的存放位|；“安装cd”用于指定Oracle产品的安装类?企业版、标准版和个人版)。如果选择“创徏启动数据?#8221;Q那p指定全局数据库名U和数据库用L口o?/span>
选择“高安装”Q单?#8220;下一?#8221;Q会出现“指定文g对话?#8221;Q在源\径显C的是安装品所在的盘路径Q目标名U用于资定Oracleȝ录所对应的环境变量，目标路径用于指定安装Oracle软g的目标安装\径。设|目标名UCؓQOraDb10g_home1Q目标\径ؓQD:oracleproduct10.1.0db1。如?Q?/span>
?
单击“下一?#8221;Q会加蝲Oracle产品列表Q然后出?#8220;选择安装cd”对话框；如图4Q?/span>
?
选择安装cd时一般选择“企业?#8221;Q单?#8220;下一?#8221;Q会出现“选择数据库配|?#8221;对话框，如图5 Q?/span>
?
?#8220;选择数据库配|?#8221;对话框中可以选择是否要创建启动数据库Q如果要创徏数据库还要选择建立数据库的cd。选择“不创建启动数据库”单击“下一?#8221;Q会出现“概要”对话框，如图6所C：
?
单击“安装”Q就会开始安装Oracle DataBase 10g产品了。如?为安装过E：
?
?为安装完?/span>
?
在安装完成Oracle Database 10g后，p建立数据库?/span>
数据库配|助?Database Configuration Assistant)用于创徏数据库、配|数据库选项、删除数据库和管理模ѝ在安装Oracle database 10g的时候如果没有徏立数据库Q在安装完成之后可以用数据库配置助手(DBCA)建立数据库?/span>
建立数据库的Ҏ有两U，W一U是在命令行下直接运行：dbca;W二U是点击开始菜单：开?>E序=>Oracle=>oraDb10g_home1=>Configuration and Migration Tool=>Database Configuration Assistant。如?:
?
之后Q具体步骤如下，先出现欢q对话框Q如?Q?/span>
?
单击“下一?#8221;Q出?#8220;操作”对话框，该对话框用于要执行的数据库操?创徏数据库、配|数据库选项、删除数据库和管理模?Q如?Q?/span>
?
如果是第一ơ创建数据库Q只能创建数据库和管理模板可以用，选择创徏数据库，单击“下一?#8221;Q会出现数据库模板对话框Q如?Q?/span>
?
数据库模板是本地盘上的XML文gQ用来存储数据库的配|信息?/span>
选择“事务处理”Q单?#8220;下一?#8221;Q会昄数据库标C对话框Q该对话框用于设|全局数据库名和例E名。如?Q?/span>
?
全局数据库名Q格式一般ؓQdb_name.db_domain。db_name用于对应数据库名Qdb_domain对应于网l域名。SID(例程)应该与db_name完全一?如图5都设|ؓ:demo.
单击“下一?#8221;Q会出现“理选项”对话框。用于设|OEM理信息Q如?Q?/span>
?
如果要集中管理所有的Oracle数据库，那就要选择“Grid Control理数据?#8221;Q如果只理本地数据库，那就选择“使用Database Control理数据?#8221;?/span>
选择“使用Database Control理数据?#8221;Q单?#8220;下一?#8221;Q会出现“数据库n份证?#8221;对话框，该对话框用于讄初始数据库用户帐L口o。如?Q?/span>
?
要选择用户SYS、SYSTEM、DBSNMP、SYSMAN使用相同的口令，那就选择“所有̎户用同一口o”。这里选择“使用不同的口?#8221;Q分别设|用L口oQSYS用户的口令ؓORACLE,SYSTEM用户的口令ؓMANAGER,DBSNMP用户的口令ؓDBSNMP,SYSMAN用户的口令ؓSYSMAN?/span>
讄口o后，单击“下一?#8221;Q会出现“存储选项”对话框，该对话框用于指定数据库的存储机制(文gpȝ、自动存储管理、裸讑֤)Q如?Q?/span>
?
选择“文gpȝ”Q单?#8220;下一?#8221;Q会出现“数据库文件位|?#8221;对话框，该对话框用于指定数据库文件的存放位置。如?Q?/span>
?
选择“使用模板中的数据库文件位|?#8221;Q单?#8220;下一?#8221;Q会出现“恢复配置”对话框，该对话框用于指定数据库的恢复选项Q如?0Q?/span>
?0
快速恢复区用于恢复数据Q以免系l发生故障时丢失数据Q启用归档用于将数据库设|ؓARCHIVELOG模式Q得当数据库出现失败时可以完全恢复数据库数据?/span>
单击“下一?#8221;Q会出现“数据库内?#8221;对话框，该对话框用指定是否安装示例方案，q运行自定义脚本。如?1Q?/span>
?1
单击“下一?#8221;Q会出现“初始化参?#8221;对话框，该对话框用配|初始化参数、数据库字符集和q接模式。如?2Q?/span>
?2
q里的内容相对初学者来说有垫补好理解，攑ֈ后面讲解?/span>
单击“下一?#8221;Q会出现“数据库存?#8221;对话框，该对话框用指定控制文件、数据文件、重做日志文件、名U和寸。如?3Q?/span>
?3
单击“下一?#8221;Q会出现“创徏选项”对话框，该对话框用指定徏立数据库Q还是保存ؓ数据库模ѝ如?4Q?/span>
?4
单击“完成”Q会昄“认”对话框，列出了要安装Oracle选项的所有信息。如?5Q?/span>
?5
单击“定”Q就完成数据库的建立q程。就会开始数据库的徏立，如图16Q?/span>
?6
当数据库建立完成后，׃出现如下对话框，如图17Q?/span>
?7
当徏立完成数据库后，pȝ会锁定除SYS、SYSTEM、DBSNMP、SYSMAN之外的所有其他用戗应Z后要使用SCOTT用户Q所以在点击“口o理”按钮后，解锁SCOTT用户Q如?8Q?/span>
?8
指定用户口o?/span>TIGERQ单?#8220;定”按钮Q最后单?#8220;退?#8221;按钮完成数据库徏立的全部q程?/span>
longsooooon 2011-10-24 10:00 发表评论
]]>简单方法解决Struts2中一个action处理多个h
关键? struts2, action, 多个Ҏ
q几天用Struts2+MySQL做名片管理系l的时?遇到了一些问?或许别h看来不是什么问?但作Z个刚刚开始学习Struts2的新?
很多东西Ҏ来说q是很有隑ֺ?比如我现在要说的在一个action中处理多个请求的问题.
要描qC下问题的产生:我要做的名片理pȝ中的一个用L理模?其中有两个最主要的方法就是登录和注册,q两个方法都是在UserAction中处?
而按照通常的状况而言,一个Action中只会有一个executeҎ,也就只能解决一个请?大概看了下Struts,好像其中可以通过在form中加一个hidden元素,
然后再在executeҎ中用getCommond()的方法来q行判别).不过我在Struts2中没有发现类似的解决办法,q也很有可能是我刚刚学习Struts2造成?
毕竟到现在我都还没弄C本完整的教材,只是到处找了些零散的资?然后,做的q程遇到问题再自q想结合google扑ֈ的一些东西来L解决.
遇到q个问题之后,我自己开始没有想明白是什么状?该怎么解决.于是在网上找了下,扑ֈ的方法貌似都不是很简?要么很复杂,要么p涉及一些比较深的知?
后面我在执行q个E序的时?发现Eclipse提出的一个warning,而正是这个warningl了我很大的提示,让我扑ֈ的解x?
Warning是这L:No configuration found for the specified action: 'UserAction.action' in namespace: '/pages/user'.
Form action defaulting to 'action' attribute's literal value. 原因是我在struts.xml中定义的action的name与login.jsp中的form中的action的name不一?
两个的名字Ҏ相同好?不要求以.actionl束,如都?LoginAction,也就是struts.xml中的<action name="LoginAction" class="main.UserAction">,
和JSP面中的<s:form action="LoginAction" method="POST">.
而在struts.xml中定义的actionq有一个参数method,既然已经可以Ҏaction的name扑ֈ对应的action,那还要这个参数做什么呢?另外,execute在不更改的情况下,
也是默认会调用的Ҏ,再结合自己在|上扑ֈ的一些资?我觉得可以尝试一下将struts.xml中的action中的methodq行讄.
于是有了下面的两个action的配|?struts.xml中的<action name="login" class="main.UserAction" method="login">?br />JSP面中的<s:form action="login" method="POST">. 提交上面的表单form的时?在struts.xml中找到该form对应的action的方法ؓlogin(),
于是到cUserAction中找到该Ҏq调?因而也p够调用UserActioncȝlogin()Ҏ?
q样上面的问题也可以解释了:因ؓ两个地方定义的方法的名字不同,所以在点击dq行login.jsp的时候就会弹Zq提C?
但由于struts.xml中只定义(配置)一个action,默认的方法ؓexecute(),故而编译器q是能够扑ֈ该方法进行执?
Ҏ上面的推?因而可以再d一个注册页面register.jsp,其中的表单form定义?<s:form action="register" method="POST">,
而将struts.xml增加一个设|?<action name="register" class="main.UserAction" method="register">.
q样当register.jsp的actionh被拦截器拦截之后通过struts.xml的配|就可以扑ֈUserActioncȝregister()Ҏq行相应的处理了,
因而也可以实C个UserAction中处理多个请求action?
PS:׃本h刚刚学习Struts2不到两个星期,而且以前也没有接触过Struts斚w的程序设?所?
肯定会有理解不对的地?ȝ各位发现的朋友帮我指出来,谢谢
来自Qhttp://www.360doc.com/content/09/1122/16/144699_9541328.shtml
longsooooon 2011-10-09 17:37 发表评论
]]>前言
在这个蔚蓝色的星球上Q流传着两大器的传_据说Emacs是神的编辑器Q而Vim是编辑器之神?br />一些h勇敢地拾起了Vim或EmacsQ却发现学习曲线陡峭而O长，q是有一些h留下来了Q坚定地守护着q两大神器?br />一些说葡萄太酸的h想离开又不甘心QL问：它们到底在哪里?
Emacs和Vim介绍来自Qhttp://os.51cto.com/art/201101/242518.htm
首先我们需要下载windows版的emacs,官网下蝲地址Q?br />http://ftp.gnu.org/pub/gnu/emacs/windows/
比如我下载的是：emacs-23.3-bin-i386.zip
在硬盘里解压后有个addpm.exeQ双击运行它?br />
在Windows下是无法手动建立.emacs文g的，你可以打开emacs然后在Options下随?br />挑个选项比如QParen Match Highlighting然后点Save Options
你就可以看到下面的提C?br />Wrote c:/Documents and Settings/Administrator/Application Data/.emacs
q时已经生成.emacs文g了?br />Z以后可以反复使用配置和插Ӟ我们需要改变插件导入\径，在C:\Documents
and Settings\Administrator\Application Data\.emacsd下面代码
'(load-file "D:\emacs-23.3\.emacs");;要在W一行且单独一?br />然后在D:\emacs-23.3文g下徏立配|文?emacsQ写入下面的代码?br />
;;改变默认路径
(setenv "HOME" "D:/emacs-23.3")
(setenv "PATH" "D:/emacs-23.3")
;;set the default file path
(setq default-directory "~/")
最后在D:/emacs-23.3下徏立文件夹ConFileQ把插g(默认插g在lisp文g多w)都扔q去Q?br />比如说display-line-number.el
?emacs中写入下面的代码?br />
;;昄行号
(load-file "~/ConFile/display-line-number.el")
(require 'display-line-number)
(global-display-line-number-mode t)
Emacs23可以不用插g昄行号
在配|?emacs文g中加?br />(global-linum-mode t)
或者m-x global-linum-mode回R(m-x是Alt+x)
可以显CP而且在用了tabbar插g的情况下Q这U方式不会出现差一行的错误.
(setq case-fold-search nil);;查找的时候就强制匚w大小写t,nil
(setq case-replace nil);;强制大小写自动替?/div>
下面是我从网上找?Emacs基本配置E加整理Q?br />我的.emacs文g细代码(|络收藏整理?Q?br />
;;'(load-file "D:\emacs-23.3\.emacs");;攑֜C:\~~~\.emacs文g里第一行且单独一?br />;;'(global-linum-mode t)
;;改变默认路径
(setenv "HOME" "D:/emacs-23.3")
(setenv "PATH" "D:/emacs-23.3")
;============================ 语言环境字符集设|?=================================
;;q一部䆾主要用在linux 环境下，windows下没什么作?br />;; (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-modeq,好像没作?br />;=========================== 语言环境字符集设|结?===============================
;============================ MS Windows环境下字体设|?===========================
(setq default-frame-alist
(append
'((font . "fontset-chinese")) default-frame-alist))
(create-fontset-from-fontset-spec
"-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-chinese")
(set-fontset-font
"fontset-default" nil
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'kana
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'han
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'cjk-misc
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'symbol
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-default-font "fontset-chinese")
;===========================MS Windows环境下字体设|结?=========================
;============================ Linux环境下字体设|?=================================
;; (create-fontset-from-fontset-spec
;; "-*-courier-medium-r-normal-*-14-*-*-*-*-*-fontset-courier")
;; (set-default-font "fontset-courier")
;; (setq default-frame-alist
;; (append
;; '((font . "fontset-courier")) default-frame-alist))
;; (set-fontset-font
;; "fontset-default" nil
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gb2312.1980-*" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'kana
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'han
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'cjk-misc
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;============================ Linux环境下字体设|结?==============================
;;;;;;;;;;;;;;;;;;;;语言环境字体讄l束;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;解决中英文排不能正fill的问?好像没什么用
;; (put-charset-property 'chinese-cns11643-5 'nospace-between-words t)
;; (put-charset-property 'chinese-cns11643-6 'nospace-between-words t)
;; (put-charset-property 'chinese-cns11643-7 'nospace-between-words t)
;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄H口界面 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")
(set-scroll-bar-mode nil)
;;取消滚动?br />
;;(customize-set-variable 'scroll-bar-mode 'right))
;;讄滚动栏在H口右侧Q而默认是在左?br />
(tool-bar-mode nil)
;;取消工具?br />
(setq default-frame-alist
'((vertical-scroll-bars)
(top . 25)
(left . 45)
(width . 110)
(height . 40)
(background-color . "black")
(foreground-color . "grey")
(cursor-color . "gold1")
(mouse-color . "gold1")
(tool-bar-lines . 0)
(menu-bar-lines . 1)
(right-fringe)
(left-fringe)))
;; 讄另外一些颜Ԍ语法高亮昄的背景和主题Q区域选择的背景和主题Q二ơ选择的背景和选择
(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")
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄界面l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 昄旉讄 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(display-time-mode 1);;启用旉昄讄Q在minibuffer上面的那个杠?br />(setq display-time-24hr-format t);;旉使用24时?br />(setq display-time-day-and-date t);;旉昄包括日期和具体时?br />(setq display-time-use-mail-icon t);;旉栏旁边启用邮件设|?br />(setq display-time-interval 10);;旉的变化频率，单位多少来着Q?br />
;;;;;;;;;;;;;;;;;;;;;;;;;;; 昄旉讄l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;讄打开文g的缺省\?br />(setq default-directory "/")
;;ido的配|?q个可以使你在用C-x C-f打开文g的时候在后面有提C?
;;q里是直接打开了ido的支持，在emacs23中这个是自带?
(ido-mode t)
(setq visible-bell t)
;;关闭烦h的出错时的提C声
(setq inhibit-startup-message t)
;;关闭emacs启动时的画面
(setq gnus-inhibit-startup-message t)
;;关闭gnus启动时的画面
(fset 'yes-or-no-p 'y-or-n-p)
;; 改变 Emacs 固执的要你回{?yes 的行为。按 y 或空格键表示 yesQn 表示 no?br />
(setq font-lock-maximum-decoration t)
(setq font-lock-global-modes '(not shell-mode text-mode))
(setq font-lock-verbose t)
(setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))
;; 语法高亮。除 shell-mode ?text-mode 之外的模式中使用语法高亮?br />
(setq global-linum-mode t);行号
(setq column-number-mode t)
(setq line-number-mode t)
;;昄行列?br />
(setq mouse-yank-at-point t)
;;不要在鼠标点ȝ那个地方插入剪脓板内宏V我不喜Ƣ那Pl常把我的文档搞的一团糟。我觉得先用光标定位Q然后鼠标中键点击要好的多?br />;;不管你的光标在文档的那个位置Q或是在 minibufferQ鼠标中键一点击QX selection 的内容就被插入到那个位置?br />
(setq kill-ring-max 200)
;;讄_脓~冲条目数量.用一个很大的kill ring(最多的记录个数). q样防止我不心删掉重要的东?br />
(setq-default auto-fill-function 'do-auto-fill)
; Autofill in all modes;;
(setq default-fill-column 120)
;;?fill-column 设ؓ 60. q样的文字更好读
(setq-default indent-tabs-mode nil)
(setq default-tab-width 8)
(setq tab-stop-list ())
;;不用 TAB 字符来indent, q会引v很多奇怪的错误。编?Makefile 的时候也不用担心Q因?makefile-mode 会把 TAB 键设|成真正?TAB 字符Qƈ且加亮显C的?br />
(setq sentence-end "\\([。！Q]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(setq sentence-end-double-space nil)
;;讄 sentence-end 可以识别中文标点。不用在 fill 时在句号后插入两个空根{?br />
(setq enable-recursive-minibuffers t)
;;可以递归的?minibuffer
(setq scroll-margin 3 scroll-conservatively 10000)
;;防止面滚动时蟩动， scroll-margin 3 可以在靠q屏q边?行时开始滚动，可以很好的看C下文?br />
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;讄~省L式是textQ?q进入auto-fillơ模?而不是基本模式fundamental-mode
(setq show-paren-mode t) ;;打开括号匚w昄模式
(setq show-paren-style 'parenthesis)
;;括号匚w时可以高亮显C另外一边的括号Q但光标不会烦h的蟩到另一个括号处?br />
(setq mouse-avoidance-mode 'animate)
;;光标靠近鼠标指针Ӟ让鼠标指针自动让开Q别挡住视线?br />
(setq frame-title-format "emacs@%b")
;;在标题栏昄buffer的名字，而不?emacs@wangyin.com q样没用的提C?br />
(setq uniquify-buffer-name-style 'forward);;好像没v作用
;; 当有两个文g名相同的~冲Ӟ使用前缀的目录名?buffer 名字Q不用原来的foobar 形式?br />
(setq auto-image-file-mode t)
;;?Emacs 可以直接打开和显C图片?br />
;(auto-compression-mode 1)
;打开压羃文g时自动解压羃?br />
(setq global-font-lock-mode t)
;;q行语法加亮?br />
(setq-default kill-whole-line t)
;; 在行?C-k Ӟ同时删除该行?br />
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
;;当你在shell、telnet、w3m{模式下Ӟ必然到q要输入密码的情?此时加密昑և你的密码
;; (setq version-control t);;启用版本控制Q即可以备䆾多次
;; (setq kept-old-versions 2);;备䆾最原始的版本两ơ，及第一ơ编辑前的文档，和第二次~辑前的文档
;; (setq kept-new-versions 1);;备䆾最新的版本1ơ，理解同上
;; (setq delete-old-versions t);;删掉不属于以?中版本的版本
;; (setq backup-directory-alist '(("." . "~/backups")));;讄备䆾文g的\?br />;; (setq backup-by-copying t);;备䆾讄ҎQ直接拷?br />;; Emacs 中，改变文gӞ默认都会产生备䆾文g(?~ l尾的文?。可以完全去?br />;; (q不可取)Q也可以制定备䆾的方式。这里采用的是，把所有的文g备䆾都放在一
;; 个固定的地方("~/backups")。对于每个备份文Ӟ保留最原始的两个版本和最新的
;; 1个版本。ƈ且备份的时候，备䆾文g是复本，而不是原件?br />
(setq make-backup-files nil)
;; 讑֮不生备份文?br />(setq version-control 'never);;不需要而不是想换个地方保存备䆾文g
(setq auto-save-mode nil)
;;自动保存模式
(setq-default make-backup-files nil)
;; 不生成时文?br />
(put 'scroll-left 'disabled nil) ;允许屏幕左移
(put 'scroll-right 'disabled nil) ;允许屏幕右移
(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)
;;把这些缺省禁用的功能打开?br />
;;允许emacs和外部其他程序的_脓
(setq x-select-enable-clipboard t)
(setq mouse-yank-at-point t)
;;使用鼠标中键可以_脓
(setq user-full-name "XXXXXX")
(setq user-mail-address "XXXXXX@163.com")
;;讄有用的个Z?q在很多地方有用?br />
(setq require-final-newline t)
;; 自动的在文g末增加一新行
(setq-default transient-mark-mode t)
;;Non-nil if Transient-Mark mode is enabled.
(setq track-eol t)
;; 当光标在行尾上下Ud的时候，始终保持在行?br />
(setq Man-notify-method 'pushy)
;; 当浏?man page Ӟ直接跌{?man buffer?br />
(setq next-line-add-newlines nil)
;;Emacs 21 中已l是~省讄。按 C-n 或向下键时不d新行?br />
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)
;;讄home键指向buffer开_end键指向bufferl尾
(global-set-key (kbd "C-,") 'scroll-left)
;; "C-,"设ؓ屏幕左移命o
(global-set-key (kbd "C-.") 'scroll-right)
;; "C-."设ؓ屏幕右移命o
(global-set-key [f1] 'manual-entry)
(global-set-key [C-f1] 'info )
(global-set-key [f3] 'repeat-complex-command)
(global-set-key [f4] 'other-window)
;; 跌{?Emacs 的另一个bufferH口
(defun du-onekey-compile ()
"Save buffers and start compile"
(interactive)
(save-some-buffers t)
(switch-to-buffer-other-window "*compilation*")
(compile compile-command))
(global-set-key [C-f5] 'compile)
(global-set-key [f5] 'du-onekey-compile)
;; C-f5, 讄~译命o; f5, 保存所有文件然后编译当前窗口文?br />
(global-set-key [f6] 'gdb)
;;F6讄为在Emacs中调用gdb
(global-set-key [C-f7] 'previous-error)
(global-set-key [f7] 'next-error)
(defun open-eshell-other-buffer ()
"Open eshell in other buffer"
(interactive)
(split-window-vertically)
(eshell))
(global-set-key [(f8)] 'open-eshell-other-buffer)
(global-set-key [C-f8] 'eshell)
;;目的是开一个shell的小bufferQ用于更方便地测试程?也就是运行程序了)Q我l常会用到?br />;;f8是另开一个buffer然后打开shellQC-f8则是在当前的buffer打开shell
(setq speedbar-show-unknown-files t);;可以昄所有目录以及文?br />(setq dframe-update-speed nil);;不自动刷斎ͼ手动 g h
(setq speedbar-update-flag nil)
(setq speedbar-use-images nil);;不?image 的方?br />(setq speedbar-verbosity-level 0)
(global-set-key [f9] 'speedbar)
;;讄f9调用speedbar命o
;;使用 n ?p 可以上下UdQ?br />;; + 展开目录或文件进行浏览，- 收羃QRET 讉K目录或文Ӟg 更新 speedbar?br />
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;?dired 可以递归的拷贝和删除目录?br />(global-set-key [C-f9] 'dired)
;;讄[C-f9]用dired命o
(global-set-key [f10] 'undo)
;;讄F10为撤销
(global-set-key [f11] 'calendar)
;;讄F11快捷键指定Emacs 的日历系l?br />
(global-set-key [f12] 'list-bookmarks)
;;讄F12 快速察看日E安?br />
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
;; 讄旉戻I标识出最后一ơ保存文件的旉?br />
(global-set-key (kbd "M-g") 'goto-line)
;;讄M-g为goto-line
(global-set-key (kbd "C-SPC") 'nil)
;;取消control+space键设为mark
(global-set-key (kbd "M-") 'set-mark-command)
;;q样 我就不用?C-@ ?setmark ? C-@ 很不好按?br />
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯l束;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日历 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;讄日历的一些颜?br />(setq calendar-load-hook
'(lambda ()
(set-face-foreground 'diary-face "skyblue")
(set-face-background 'holiday-face "slate blue")
(set-face-foreground 'holiday-face "white")))
;;讄我所在地方的l纬度，calendar里有个功能是日月食的预测Q和你的l纬度相联系的?br />;; 让emacs能计日出日落的旉Q在 calendar 上用 S 卛_看到
(setq calendar-latitude +39.54)
(setq calendar-longitude +116.28)
(setq calendar-location-name "北京")
;; 讄阴历昄Q在 calendar 上用 pC 昄阴历
(setq chinese-calendar-celestial-stem
["? "? "? "? "? "? "? "? "? "?])
(setq chinese-calendar-terrestrial-branch
["? "? "? "? "? "? "? "? "? "? "? "?])
;; 讄 calendar 的显C?br />(setq calendar-remove-frame-by-deleting t)
(setq calendar-week-start-day 1) ; 讄星期一为每周的W一?br />(setq mark-diary-entries-in-calendar t) ; 标记calendar上有diary的日?br />(setq mark-holidays-in-calendar nil) ; ZH出有diary的日期，calendar上不标记节日
(setq view-calendar-holidays-initially nil) ; 打开calendar的时候不昄一堆节?br />
;; L不关心的节日Q设定自己在意的节日Q在 calendar 上用 h 昄节日
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq solar-holidays nil)
(setq general-holidays '((holiday-fixed 1 1 "元旦")
(holiday-fixed 2 14 "情h?)
(holiday-fixed 3 14 "白色情h?)
(holiday-fixed 4 1 "愚h?)
(holiday-fixed 5 1 "力_?)
(holiday-float 5 0 2 "母亲?)
(holiday-fixed 6 1 "儿童?)
(holiday-float 6 0 3 "父亲?)
(holiday-fixed 7 1 "建党?)
(holiday-fixed 8 1 "建军?)
(holiday-fixed 9 10 "教师?)
(holiday-fixed 10 1 "国庆?)
(holiday-fixed 12 25 "圣诞?)))
;;Calendar模式支持各种方式来更改当前日?br />;;Q这里的“?#8221;是指q没有到来的那一天，“?#8221;是指已经q去的日子）
;; q 退出calendar模式
;; C-f 让当前日期向前一?br />;; C-b 让当前日期向后一?br />;; C-n 让当前日期向前一?br />;; C-p 让当前日期向后一?br />;; M-} 让当前日期向前一个月
;; M-{ 让当前日期向后一个月
;; C-x ] 让当前日期向前一q?br />;; C-x [ 让当前日期向后一q?br />;; C-a Ud到当前周的第一?br />;; C-e Ud到当前周的最后一?br />;; M-a Ud到当前月的第一?br />;; M-e 多动到当前月的最后一?br />;; M-< Ud到当前年的第一?br />;; M-> Ud到当前年的最后一?br />
;;Calendar模式支持Ud多种Ud到特珠日期的方式
;; g d UdC个特别的日期
;; o 使某个特D的月分作ؓ中间的月?br />;; . Ud到当天的日期
;; p d 昄某一天在一q中的位|，也显C本q度q有多少天?br />;; C-c C-l hCalendarH口
;; Calendar支持生成LATEX代码?br />;; t m 按月生成日历
;; t M 按月生成一个美化的日历
;; t d 按当天日期生成一个当天日?br />;; t w 1 在一上生成q个周的日历
;; t w 2 在两上生成q个周的日历
;; t w 3 生成一个ISO-SYTLE风格的当前周日历
;; t w 4 生成一个从周一开始的当前周日?br />;; t y 生成当前q的日历
;;EMACS Calendar支持配置节日Q?br />;; h 昄当前的节?br />;; x 定义当天为某个节?br />;; u 取消当天已被定义的节?br />;; e 昄所有这前后׃个月的节日?br />;; M-x holiday 在另外的H口的显C前后三个月的节日?br />
;; 另外Q还有一些特D的Q有意思的命oQ?br />;; S 昄当天的日出日落时?是大写的S)
;; p C 昄农历可以使用
;; g C 使用农历Ud日期可以使用
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 日历讄l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日记 ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
(setq diary-file "~/diary");; 默认的日记文?br />(setq diary-mail-addr "getmails@163.com")
(add-hook 'diary-hook 'appt-make-list)
;;当你创徏了一?~/diary'文gQ你可以用calendarL看里面的内容。你可以查看当天的事Ӟ相关命o如下 Q?br />;; d 昄被选中的日期的所有事?br />;; s 昄所有事Ӟ包括q期的，未到期的{等
;; 创徏一个事件的样例Q?br />;; 02/11/1989
;; Bill B. visits Princeton today
;; 2pm Cognitive Studies Committee meeting
;; 2:30-5:30 Liz at Lawrenceville
;; 4:00pm Dentist appt
;; 7:30pm Dinner at George's
;; 8:00-10:00pm concert
;; 创徏事g的命令：
;; i d 为当天日期添加一个事?br />;; i w 为当天周创徏一个周事g
;; i m 为当前月创徏一个月事g
;; i y 为当前年创徏一个年事g
;; i a 为当前日期创Z个周q纪忉|
;; i c 创徏一个@环的事g
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日记l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义lisp包设|?;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;=======================五笔输入法设|?=====================
;; (add-to-list 'load-path "~/lisp/wubi/wubi")
;; (require 'wubi)
;; (register-input-method "chinese-wubi" "Chinese-GB" 'quail-use-package "wubi" "wubi")
;; (wubi-load-local-phrases)
;; (setq default-input-method "chinese-wubi")
;;q几句Lisp代码的作用是讄中文环境、注册五W字型输入法。保?emacs后请重新启动emacsQ?br />;;使得上面的设|生效。现在您可以用快捷键C-\ Q同时按?Ctrl和反斜线键）唤出五笔字型输入法了?br />;;在emacs的mode line上会出现“五笔字型”的字栗?br />
;=======================五笔输入法设|结?==================
;======================= cscope 讄 =======================
;;使用 cscope 览源代?q个xcscope是个改进版，为每一ơ查扄l果使用不同 buffer Q?br />;;q样可以保存以前的l果?br />
(add-to-list 'load-path "~/lisp/xcscope") ;; Y件包所在的路径加到 EMACS ?load-path
(require 'xcscope) ;; 加蝲相应的Y?br />
;; C-c s a 讑֮初始化的目录Q一般是你代码的根目?br />;; C-s s I 对目录中的相x件徏立列表ƈq行索引
;; C-c s s 序找W号
;; C-c s g L全局的定?br />;; C-c s c 看看指定函数被哪些函数所调用
;; C-c s C 看看指定函数调用了哪些函?br />;; C-c s e L正则表达?br />;; C-c s f L文g
;; C-c s i 看看指定的文件被哪些文ginclude
;===================== cscope 讄l束 ======================
;======================== tabbar讄 ========================
(add-to-list 'load-path "~/lisp/tabbar")
(require 'tabbar)
(tabbar-mode)
;========================tabbar讄l束=======================
;======================= wb-line-number讄 ==================
;;增加一个显CLbuffer
;(add-to-list 'load-path "~/lisp/wb-line-number")
;(require 'wb-line-number)
;(wb-line-number-enable)
;====================== wb-line-number讄l束 ================
;======================= setnu讄 ============================
;;再增加一个显CL功能
(add-to-list 'load-path "~/lisp/setnu")
(require 'setnu)
(global-set-key [f2] (quote setnu-mode))
;======================= setnu讄l束 Q＝Q＝=================
;====================== rect-mark讄 =========================
;; 按下shift拖拽鼠标卛_选择矩Ş区域
;; Support for marking a rectangle of text with highlighting.
(add-to-list 'load-path "~/lisp/rect-mark")
(require 'rect-mark)
(define-key ctl-x-map "r\C-@" 'rm-set-mark)
(define-key ctl-x-map [?r ?\C-\ ] 'rm-set-mark)
(define-key ctl-x-map "r\C-x" 'rm-exchange-point-and-mark)
(define-key ctl-x-map "r\C-w" 'rm-kill-region)
(define-key ctl-x-map "r\M-w" 'rm-kill-ring-save)
(define-key global-map [S-down-mouse-1] 'rm-mouse-drag-region)
(autoload 'rm-set-mark "rect-mark"
"Set mark for rectangle." t)
(autoload 'rm-exchange-point-and-mark "rect-mark"
"Exchange point and mark for rectangle." t)
(autoload 'rm-kill-region "rect-mark"
"Kill a rectangular region and save it in the kill ring." t)
(autoload 'rm-kill-ring-save "rect-mark"
"Copy a rectangular region to the kill ring." t)
(autoload 'rm-mouse-drag-region "rect-mark"
"Drag out a rectangular region with the mouse." t)
;; Use this section in your "~/.emacs" to modify picture mode so that
;; it automatically uses the rect-mark equivalents of many commands.
;; One vision of a better picture mode.
(add-hook 'picture-mode-hook 'rm-example-picture-mode-bindings)
(autoload 'rm-example-picture-mode-bindings "rect-mark"
"Example rect-mark key and mouse bindings for picture mode.")
;===================== rect-mark讄l束 =========================
;===================== info文g讄 ==============================
;;Info 的菜单是?Info-directory-list 的顺序列出的Q?Info-directory-list 是在启动 info ?br />;;用Info-default-directory-list 来初始的。所以要d Info 目录是要讄 Info-default-directory-list?br />;;在添加的 Info 目录中，创徏一个叫 dir 的文Ӟ其实所?Info-directory-list 里有一个文件就行了Q?br />;;?${emacs}/info 文g夹下有这个文Ӟ修改q个也可以）?br />
(add-to-list 'Info-default-directory-list "~/lisp/info/")
;; nQ蟩转到该节点的下一个节点；
;; pQ蟩转到该节点的上一个节点；
;; m: 指定菜单名而选择另外一个节点；
;; fQ进入交叉引用主题；
;; lQ进入该H口中的最后一个节点；
;; TABQ蟩转到该窗口的下一个超文本链接Q?br />;; RETQ进入光标处的超文本链接Q?br />;; uQ{C一U主题；
;; dQ回?info 的初始节点目录；
;; hQ调?info 教程Q?br />;; qQ退?info?br />
;=================== info文g讄l束 ============================
;===================== AUCTeX讄 =================================
(load "~/lisp/auctex/site-lisp/auctex.el" nil t t)
(load "~/lisp/auctex/site-lisp/preview-latex.el" nil t t)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook #'LaTeX-install-toolbar)
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
;===================== AUCTeX讄l束 =============================
;===================== 文g头header讄 ===========================
;;当我们保存文件的时?有很多信息可以自动更?如何自动更新信息, 更新那些信息,
;也是可以完全自己配置. 包括文g名称,最后一ơ修Ҏ?文g保存ơ数,最后一ơ修改的作者等{?
;;可以?M-x make-header 自动生成文g头信?
(add-to-list 'load-path "~/lisp/header")
(require 'header)
(setq make-header-hooks '(header-mode-line
header-blank
header-file-name
header-blank
header-copyright
header-blank
header-author
header-creation-date
header-modification-author
header-modification-date
header-update-count
header-blank
header-history
header-blank
))
(setq header-copyright-notice " 源成工作?作品" )
(make-local-variable 'user-full-name)
(make-local-variable 'user-mail-address)
;===================== 文g头header讄l束 ==========================
;===================== template讄 =================================
(add-to-list 'load-path "~/lisp/template")
(require 'template)
(template-initialize)
;===================== template讄l束===============================
;===================== cedet讄 =====================================
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/speedbar")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/eieio")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/semantic")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/common")
(require 'cedet)
;; (add-to-list 'load-path "~/lisp/ecb-2.32")
;; (require 'ecb)
;; Ecb的操?
;; C-c . g d 目录列表H口
;; C-c . g s 源码H口
;; C-c . g m Ҏ和变量窗?br />;; C-c . g h 历史H口
;; C-c . g l 最后选择q的~辑H口
;; C-c . g 1 ~辑H口1
;; C-c . g n ~辑H口n
;; C-c . l c 选择版面
;; C-c . l r 重画版面
;; C-c . l t 拴牢版面(锁定版面)
;; C-c . l w 拴牢可见的ecbH口
;; C-c . \ 拴牢~绎H口
;; 其中l为小写字?L),大家别看?!
;======================cedet讄l束==================================
;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义lisp包设|结?;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;===================== GNUS讄 =================================
(setq gnus-select-method '(nntp "news.yaako.com"))
(setq gnus-default-subscribed-newsgroups
'( "cn.comp.os.linux")) ;;
;; (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourSecondProvider.net"))
;; (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourThirdProvider.net"))
;;惌 Gnus 在多个的服务器上取新?br />
;;中文相关
(set-language-environment 'Chinese-GB)
(setq gnus-default-charset 'chinese-iso-8bit
gnus-group-name-charset-group-alist '((".*" . chinese-iso-8bit))
gnus-summary-show-article-charset-alist
'((1 . chinese-iso-8bit)
(2 . gbk)
(3 . big5)
(4 . utf-8))
gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown iso-8859-1))
(setq mail-sources
'((pop :server "pop3.163.com" ;; 在这里设|pop3服务?br />:user "XXXXXXX" ;; 用户?br />;; :port "110"
:password "XXXXXX"))) ;; 密码
(setq gnus-secondary-select-methods '((nnfolder "")))
(setq user-full-name "XXXXXXXX") ;; 外发的邮仉用这个名?br />(setq user-mail-address "XXXXXX@163.com") ;;外发的邮仉用这个地址
(setq smtpmail-auth-credentials
'(("smtp.163.com" ;; SMTP服务?br />25
"XXXXXX" ;; 用户?br />"XXXXXX"))) ;; 密码
(setq smtpmail-default-smtp-server "smtp.163.com")
(setq smtpmail-smtp-server "smtp.163.com")
(setq message-send-mail-function 'smtpmail-send-it)
(setq nnmail-expiry-wait 3);;Gnus 默认的保质期?天，如果你觉得时间不合适，可以自己讄
(add-hook 'gnus-article-prepare-hook
(lambda ()
(setq fill-column 60)
(gnus-article-fill-long-lines)))
;;让gnus把这U邮件排版整齐后再显C给我们?br />
(add-hook 'gnus-article-prepare-hook 'gnus-article-date-local)
;;邮件的发出旉转换为本地时?br />
(gnus-add-configuration '(article
(vertical 1.0
(summary .4 point)
(article 1.0))))
;; 改变阅读新闻时窗口的布局Q窗口划分ؓ??Q比例）
(eval-after-load "mm-decode"
'(progn
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")))
;另外Q有些用web方式发出的邮仉有htmlQ加入下面的讄Q只看其中的
;plain text部分Q?br />
(setq gnus-thread-sort-functions
'(
(not gnus-thread-sort-by-date)
(not gnus-thread-sort-by-number)
))
;;排序
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;; 有时订阅了很多新ȝQ堆在一起不好管理。这个功能可以创建目录来分层理
(setq gnus-read-newsrc-file nil gnus-save-newsrc-file nil)
;======================== GNUS讄l束 ===============================
;;=========================== 方便~程操作的设|?====================================
(setq compile-command "make")
;;emacs的默认compile命o是调用make -kQ我把它Ҏ了make。你也可以把它改成其他的Q比如gcc之类?
;;把c语言风格讄为k&r风格
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "k&r")))
;;把C++语言风格讄为stroustrup风格
(add-hook 'c++-mode-hook
'(lambda()
(c-set-style "stroustrup")))
;========================================================================
(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)
;;能把一个代码块~v来，需要的时候再展开
;; 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
;========================================================================
(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)
;;输入左边的括P׃自动补全双的部?包括(), "", [] , {} , {等?br />
;=========================================================================
(setq semantic-load-turn-everything-on t)
;(add-hook 'semantic-init-hooks 'semantic-idle-completions-mode)
(setq semanticdb-project-roots
(list
(expand-file-name "/")))
;;配置Semantic的检索范?br />
(setq semanticdb-default-save-directory "~/")
;;讄semantic.cache路径
(global-set-key [(meta ?/)] 'hippie-expand)
;;M-/ l定?hippie-expand
(autoload 'senator-try-expand-semantic "senator")
(setq hippie-expand-try-functions-list
'(senator-try-expand-semantic ;优先调用了senator的分析结?br />try-expand-dabbrev ;当前的buffer补全
try-expand-dabbrev-visible ;别的可见的窗口里L补全
try-expand-dabbrev-all-buffers ;所有打开的buffer
try-expand-dabbrev-from-kill
try-complete-file-name-partially
try-complete-file-name
try-expand-all-abbrevs
try-expand-list
try-expand-line
try-complete-lisp-symbol-partially
try-complete-lisp-symbol))
;讄 hippie-expand 的补全方式。它是一个优先列表， hippie-expand 会优先用表最前面的函数来补全?br />
;=========================================================================
;==========================================================================
;;========================== 方便~程操作讄l束====================================
(setq case-replace nil);;强制大小写自动替?/div>
下面是我从网上找?Emacs基本配置E加整理Q?br />我的.emacs文g细代码(|络收藏整理?Q?br />
;;'(load-file "D:\emacs-23.3\.emacs");;攑֜C:\~~~\.emacs文g里第一行且单独一?br />;;'(global-linum-mode t)
;;改变默认路径
(setenv "HOME" "D:/emacs-23.3")
(setenv "PATH" "D:/emacs-23.3")
;============================ 语言环境字符集设|?=================================
;;q一部䆾主要用在linux 环境下，windows下没什么作?br />;; (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-modeq,好像没作?br />;=========================== 语言环境字符集设|结?===============================
;============================ MS Windows环境下字体设|?===========================
(setq default-frame-alist
(append
'((font . "fontset-chinese")) default-frame-alist))
(create-fontset-from-fontset-spec
"-outline-Courier New-normal-r-normal-normal-13-97-96-96-c-*-fontset-chinese")
(set-fontset-font
"fontset-default" nil
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'kana
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'han
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'cjk-misc
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-fontset-font
"fontset-chinese" 'symbol
"-outline-新宋?normal-r-normal-normal-14-*-96-96-c-*-iso10646-1" nil 'prepend)
(set-default-font "fontset-chinese")
;===========================MS Windows环境下字体设|结?=========================
;============================ Linux环境下字体设|?=================================
;; (create-fontset-from-fontset-spec
;; "-*-courier-medium-r-normal-*-14-*-*-*-*-*-fontset-courier")
;; (set-default-font "fontset-courier")
;; (setq default-frame-alist
;; (append
;; '((font . "fontset-courier")) default-frame-alist))
;; (set-fontset-font
;; "fontset-default" nil
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gb2312.1980-*" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'kana
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'han
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;; (set-fontset-font
;; "fontset-courier" 'cjk-misc
;; "-*-simsun-*-*-*-*-14-*-*-*-*-*-gbk-0" nil 'prepend)
;============================ Linux环境下字体设|结?==============================
;;;;;;;;;;;;;;;;;;;;语言环境字体讄l束;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;解决中英文排不能正fill的问?好像没什么用
;; (put-charset-property 'chinese-cns11643-5 'nospace-between-words t)
;; (put-charset-property 'chinese-cns11643-6 'nospace-between-words t)
;; (put-charset-property 'chinese-cns11643-7 'nospace-between-words t)
;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄H口界面 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")
(set-scroll-bar-mode nil)
;;取消滚动?br />
;;(customize-set-variable 'scroll-bar-mode 'right))
;;讄滚动栏在H口右侧Q而默认是在左?br />
(tool-bar-mode nil)
;;取消工具?br />
(setq default-frame-alist
'((vertical-scroll-bars)
(top . 25)
(left . 45)
(width . 110)
(height . 40)
(background-color . "black")
(foreground-color . "grey")
(cursor-color . "gold1")
(mouse-color . "gold1")
(tool-bar-lines . 0)
(menu-bar-lines . 1)
(right-fringe)
(left-fringe)))
;; 讄另外一些颜Ԍ语法高亮昄的背景和主题Q区域选择的背景和主题Q二ơ选择的背景和选择
(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")
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄界面l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;; 昄旉讄 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(display-time-mode 1);;启用旉昄讄Q在minibuffer上面的那个杠?br />(setq display-time-24hr-format t);;旉使用24时?br />(setq display-time-day-and-date t);;旉昄包括日期和具体时?br />(setq display-time-use-mail-icon t);;旉栏旁边启用邮件设|?br />(setq display-time-interval 10);;旉的变化频率，单位多少来着Q?br />
;;;;;;;;;;;;;;;;;;;;;;;;;;; 昄旉讄l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;讄打开文g的缺省\?br />(setq default-directory "/")
;;ido的配|?q个可以使你在用C-x C-f打开文g的时候在后面有提C?
;;q里是直接打开了ido的支持，在emacs23中这个是自带?
(ido-mode t)
(setq visible-bell t)
;;关闭烦h的出错时的提C声
(setq inhibit-startup-message t)
;;关闭emacs启动时的画面
(setq gnus-inhibit-startup-message t)
;;关闭gnus启动时的画面
(fset 'yes-or-no-p 'y-or-n-p)
;; 改变 Emacs 固执的要你回{?yes 的行为。按 y 或空格键表示 yesQn 表示 no?br />
(setq font-lock-maximum-decoration t)
(setq font-lock-global-modes '(not shell-mode text-mode))
(setq font-lock-verbose t)
(setq font-lock-maximum-size '((t . 1048576) (vm-mode . 5250000)))
;; 语法高亮。除 shell-mode ?text-mode 之外的模式中使用语法高亮?br />
(setq global-linum-mode t);行号
(setq column-number-mode t)
(setq line-number-mode t)
;;昄行列?br />
(setq mouse-yank-at-point t)
;;不要在鼠标点ȝ那个地方插入剪脓板内宏V我不喜Ƣ那Pl常把我的文档搞的一团糟。我觉得先用光标定位Q然后鼠标中键点击要好的多?br />;;不管你的光标在文档的那个位置Q或是在 minibufferQ鼠标中键一点击QX selection 的内容就被插入到那个位置?br />
(setq kill-ring-max 200)
;;讄_脓~冲条目数量.用一个很大的kill ring(最多的记录个数). q样防止我不心删掉重要的东?br />
(setq-default auto-fill-function 'do-auto-fill)
; Autofill in all modes;;
(setq default-fill-column 120)
;;?fill-column 设ؓ 60. q样的文字更好读
(setq-default indent-tabs-mode nil)
(setq default-tab-width 8)
(setq tab-stop-list ())
;;不用 TAB 字符来indent, q会引v很多奇怪的错误。编?Makefile 的时候也不用担心Q因?makefile-mode 会把 TAB 键设|成真正?TAB 字符Qƈ且加亮显C的?br />
(setq sentence-end "\\([。！Q]\\|……\\|[.?!][]\"')}]*\\($\\|[ \t]\\)\\)[ \t\n]*")
(setq sentence-end-double-space nil)
;;讄 sentence-end 可以识别中文标点。不用在 fill 时在句号后插入两个空根{?br />
(setq enable-recursive-minibuffers t)
;;可以递归的?minibuffer
(setq scroll-margin 3 scroll-conservatively 10000)
;;防止面滚动时蟩动， scroll-margin 3 可以在靠q屏q边?行时开始滚动，可以很好的看C下文?br />
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;讄~省L式是textQ?q进入auto-fillơ模?而不是基本模式fundamental-mode
(setq show-paren-mode t) ;;打开括号匚w昄模式
(setq show-paren-style 'parenthesis)
;;括号匚w时可以高亮显C另外一边的括号Q但光标不会烦h的蟩到另一个括号处?br />
(setq mouse-avoidance-mode 'animate)
;;光标靠近鼠标指针Ӟ让鼠标指针自动让开Q别挡住视线?br />
(setq frame-title-format "emacs@%b")
;;在标题栏昄buffer的名字，而不?emacs@wangyin.com q样没用的提C?br />
(setq uniquify-buffer-name-style 'forward);;好像没v作用
;; 当有两个文g名相同的~冲Ӟ使用前缀的目录名?buffer 名字Q不用原来的foobar 形式?br />
(setq auto-image-file-mode t)
;;?Emacs 可以直接打开和显C图片?br />
;(auto-compression-mode 1)
;打开压羃文g时自动解压羃?br />
(setq global-font-lock-mode t)
;;q行语法加亮?br />
(setq-default kill-whole-line t)
;; 在行?C-k Ӟ同时删除该行?br />
(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
;;当你在shell、telnet、w3m{模式下Ӟ必然到q要输入密码的情?此时加密昑և你的密码
;; (setq version-control t);;启用版本控制Q即可以备䆾多次
;; (setq kept-old-versions 2);;备䆾最原始的版本两ơ，及第一ơ编辑前的文档，和第二次~辑前的文档
;; (setq kept-new-versions 1);;备䆾最新的版本1ơ，理解同上
;; (setq delete-old-versions t);;删掉不属于以?中版本的版本
;; (setq backup-directory-alist '(("." . "~/backups")));;讄备䆾文g的\?br />;; (setq backup-by-copying t);;备䆾讄ҎQ直接拷?br />;; Emacs 中，改变文gӞ默认都会产生备䆾文g(?~ l尾的文?。可以完全去?br />;; (q不可取)Q也可以制定备䆾的方式。这里采用的是，把所有的文g备䆾都放在一
;; 个固定的地方("~/backups")。对于每个备份文Ӟ保留最原始的两个版本和最新的
;; 1个版本。ƈ且备份的时候，备䆾文g是复本，而不是原件?br />
(setq make-backup-files nil)
;; 讑֮不生备份文?br />(setq version-control 'never);;不需要而不是想换个地方保存备䆾文g
(setq auto-save-mode nil)
;;自动保存模式
(setq-default make-backup-files nil)
;; 不生成时文?br />
(put 'scroll-left 'disabled nil) ;允许屏幕左移
(put 'scroll-right 'disabled nil) ;允许屏幕右移
(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)
;;把这些缺省禁用的功能打开?br />
;;允许emacs和外部其他程序的_脓
(setq x-select-enable-clipboard t)
(setq mouse-yank-at-point t)
;;使用鼠标中键可以_脓
(setq user-full-name "XXXXXX")
(setq user-mail-address "XXXXXX@163.com")
;;讄有用的个Z?q在很多地方有用?br />
(setq require-final-newline t)
;; 自动的在文g末增加一新行
(setq-default transient-mark-mode t)
;;Non-nil if Transient-Mark mode is enabled.
(setq track-eol t)
;; 当光标在行尾上下Ud的时候，始终保持在行?br />
(setq Man-notify-method 'pushy)
;; 当浏?man page Ӟ直接跌{?man buffer?br />
(setq next-line-add-newlines nil)
;;Emacs 21 中已l是~省讄。按 C-n 或向下键时不d新行?br />
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)
;;讄home键指向buffer开_end键指向bufferl尾
(global-set-key (kbd "C-,") 'scroll-left)
;; "C-,"设ؓ屏幕左移命o
(global-set-key (kbd "C-.") 'scroll-right)
;; "C-."设ؓ屏幕右移命o
(global-set-key [f1] 'manual-entry)
(global-set-key [C-f1] 'info )
(global-set-key [f3] 'repeat-complex-command)
(global-set-key [f4] 'other-window)
;; 跌{?Emacs 的另一个bufferH口
(defun du-onekey-compile ()
"Save buffers and start compile"
(interactive)
(save-some-buffers t)
(switch-to-buffer-other-window "*compilation*")
(compile compile-command))
(global-set-key [C-f5] 'compile)
(global-set-key [f5] 'du-onekey-compile)
;; C-f5, 讄~译命o; f5, 保存所有文件然后编译当前窗口文?br />
(global-set-key [f6] 'gdb)
;;F6讄为在Emacs中调用gdb
(global-set-key [C-f7] 'previous-error)
(global-set-key [f7] 'next-error)
(defun open-eshell-other-buffer ()
"Open eshell in other buffer"
(interactive)
(split-window-vertically)
(eshell))
(global-set-key [(f8)] 'open-eshell-other-buffer)
(global-set-key [C-f8] 'eshell)
;;目的是开一个shell的小bufferQ用于更方便地测试程?也就是运行程序了)Q我l常会用到?br />;;f8是另开一个buffer然后打开shellQC-f8则是在当前的buffer打开shell
(setq speedbar-show-unknown-files t);;可以昄所有目录以及文?br />(setq dframe-update-speed nil);;不自动刷斎ͼ手动 g h
(setq speedbar-update-flag nil)
(setq speedbar-use-images nil);;不?image 的方?br />(setq speedbar-verbosity-level 0)
(global-set-key [f9] 'speedbar)
;;讄f9调用speedbar命o
;;使用 n ?p 可以上下UdQ?br />;; + 展开目录或文件进行浏览，- 收羃QRET 讉K目录或文Ӟg 更新 speedbar?br />
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;?dired 可以递归的拷贝和删除目录?br />(global-set-key [C-f9] 'dired)
;;讄[C-f9]用dired命o
(global-set-key [f10] 'undo)
;;讄F10为撤销
(global-set-key [f11] 'calendar)
;;讄F11快捷键指定Emacs 的日历系l?br />
(global-set-key [f12] 'list-bookmarks)
;;讄F12 快速察看日E安?br />
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
;; 讄旉戻I标识出最后一ơ保存文件的旉?br />
(global-set-key (kbd "M-g") 'goto-line)
;;讄M-g为goto-line
(global-set-key (kbd "C-SPC") 'nil)
;;取消control+space键设为mark
(global-set-key (kbd "M-") 'set-mark-command)
;;q样 我就不用?C-@ ?setmark ? C-@ 很不好按?br />
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯l束;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日历 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;讄日历的一些颜?br />(setq calendar-load-hook
'(lambda ()
(set-face-foreground 'diary-face "skyblue")
(set-face-background 'holiday-face "slate blue")
(set-face-foreground 'holiday-face "white")))
;;讄我所在地方的l纬度，calendar里有个功能是日月食的预测Q和你的l纬度相联系的?br />;; 让emacs能计日出日落的旉Q在 calendar 上用 S 卛_看到
(setq calendar-latitude +39.54)
(setq calendar-longitude +116.28)
(setq calendar-location-name "北京")
;; 讄阴历昄Q在 calendar 上用 pC 昄阴历
(setq chinese-calendar-celestial-stem
["? "? "? "? "? "? "? "? "? "?])
(setq chinese-calendar-terrestrial-branch
["? "? "? "? "? "? "? "? "? "? "? "?])
;; 讄 calendar 的显C?br />(setq calendar-remove-frame-by-deleting t)
(setq calendar-week-start-day 1) ; 讄星期一为每周的W一?br />(setq mark-diary-entries-in-calendar t) ; 标记calendar上有diary的日?br />(setq mark-holidays-in-calendar nil) ; ZH出有diary的日期，calendar上不标记节日
(setq view-calendar-holidays-initially nil) ; 打开calendar的时候不昄一堆节?br />
;; L不关心的节日Q设定自己在意的节日Q在 calendar 上用 h 昄节日
(setq christian-holidays nil)
(setq hebrew-holidays nil)
(setq islamic-holidays nil)
(setq solar-holidays nil)
(setq general-holidays '((holiday-fixed 1 1 "元旦")
(holiday-fixed 2 14 "情h?)
(holiday-fixed 3 14 "白色情h?)
(holiday-fixed 4 1 "愚h?)
(holiday-fixed 5 1 "力_?)
(holiday-float 5 0 2 "母亲?)
(holiday-fixed 6 1 "儿童?)
(holiday-float 6 0 3 "父亲?)
(holiday-fixed 7 1 "建党?)
(holiday-fixed 8 1 "建军?)
(holiday-fixed 9 10 "教师?)
(holiday-fixed 10 1 "国庆?)
(holiday-fixed 12 25 "圣诞?)))
;;Calendar模式支持各种方式来更改当前日?br />;;Q这里的“?#8221;是指q没有到来的那一天，“?#8221;是指已经q去的日子）
;; q 退出calendar模式
;; C-f 让当前日期向前一?br />;; C-b 让当前日期向后一?br />;; C-n 让当前日期向前一?br />;; C-p 让当前日期向后一?br />;; M-} 让当前日期向前一个月
;; M-{ 让当前日期向后一个月
;; C-x ] 让当前日期向前一q?br />;; C-x [ 让当前日期向后一q?br />;; C-a Ud到当前周的第一?br />;; C-e Ud到当前周的最后一?br />;; M-a Ud到当前月的第一?br />;; M-e 多动到当前月的最后一?br />;; M-< Ud到当前年的第一?br />;; M-> Ud到当前年的最后一?br />
;;Calendar模式支持Ud多种Ud到特珠日期的方式
;; g d UdC个特别的日期
;; o 使某个特D的月分作ؓ中间的月?br />;; . Ud到当天的日期
;; p d 昄某一天在一q中的位|，也显C本q度q有多少天?br />;; C-c C-l hCalendarH口
;; Calendar支持生成LATEX代码?br />;; t m 按月生成日历
;; t M 按月生成一个美化的日历
;; t d 按当天日期生成一个当天日?br />;; t w 1 在一上生成q个周的日历
;; t w 2 在两上生成q个周的日历
;; t w 3 生成一个ISO-SYTLE风格的当前周日历
;; t w 4 生成一个从周一开始的当前周日?br />;; t y 生成当前q的日历
;;EMACS Calendar支持配置节日Q?br />;; h 昄当前的节?br />;; x 定义当天为某个节?br />;; u 取消当天已被定义的节?br />;; e 昄所有这前后׃个月的节日?br />;; M-x holiday 在另外的H口的显C前后三个月的节日?br />
;; 另外Q还有一些特D的Q有意思的命oQ?br />;; S 昄当天的日出日落时?是大写的S)
;; p C 昄农历可以使用
;; g C 使用农历Ud日期可以使用
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 日历讄l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日记 ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
(setq diary-file "~/diary");; 默认的日记文?br />(setq diary-mail-addr "getmails@163.com")
(add-hook 'diary-hook 'appt-make-list)
;;当你创徏了一?~/diary'文gQ你可以用calendarL看里面的内容。你可以查看当天的事Ӟ相关命o如下 Q?br />;; d 昄被选中的日期的所有事?br />;; s 昄所有事Ӟ包括q期的，未到期的{等
;; 创徏一个事件的样例Q?br />;; 02/11/1989
;; Bill B. visits Princeton today
;; 2pm Cognitive Studies Committee meeting
;; 2:30-5:30 Liz at Lawrenceville
;; 4:00pm Dentist appt
;; 7:30pm Dinner at George's
;; 8:00-10:00pm concert
;; 创徏事g的命令：
;; i d 为当天日期添加一个事?br />;; i w 为当天周创徏一个周事g
;; i m 为当前月创徏一个月事g
;; i y 为当前年创徏一个年事g
;; i a 为当前日期创Z个周q纪忉|
;; i c 创徏一个@环的事g
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 讄日记l束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义lisp包设|?;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;=======================五笔输入法设|?=====================
;; (add-to-list 'load-path "~/lisp/wubi/wubi")
;; (require 'wubi)
;; (register-input-method "chinese-wubi" "Chinese-GB" 'quail-use-package "wubi" "wubi")
;; (wubi-load-local-phrases)
;; (setq default-input-method "chinese-wubi")
;;q几句Lisp代码的作用是讄中文环境、注册五W字型输入法。保?emacs后请重新启动emacsQ?br />;;使得上面的设|生效。现在您可以用快捷键C-\ Q同时按?Ctrl和反斜线键）唤出五笔字型输入法了?br />;;在emacs的mode line上会出现“五笔字型”的字栗?br />
;=======================五笔输入法设|结?==================
;======================= cscope 讄 =======================
;;使用 cscope 览源代?q个xcscope是个改进版，为每一ơ查扄l果使用不同 buffer Q?br />;;q样可以保存以前的l果?br />
(add-to-list 'load-path "~/lisp/xcscope") ;; Y件包所在的路径加到 EMACS ?load-path
(require 'xcscope) ;; 加蝲相应的Y?br />
;; C-c s a 讑֮初始化的目录Q一般是你代码的根目?br />;; C-s s I 对目录中的相x件徏立列表ƈq行索引
;; C-c s s 序找W号
;; C-c s g L全局的定?br />;; C-c s c 看看指定函数被哪些函数所调用
;; C-c s C 看看指定函数调用了哪些函?br />;; C-c s e L正则表达?br />;; C-c s f L文g
;; C-c s i 看看指定的文件被哪些文ginclude
;===================== cscope 讄l束 ======================
;======================== tabbar讄 ========================
(add-to-list 'load-path "~/lisp/tabbar")
(require 'tabbar)
(tabbar-mode)
;========================tabbar讄l束=======================
;======================= wb-line-number讄 ==================
;;增加一个显CLbuffer
;(add-to-list 'load-path "~/lisp/wb-line-number")
;(require 'wb-line-number)
;(wb-line-number-enable)
;====================== wb-line-number讄l束 ================
;======================= setnu讄 ============================
;;再增加一个显CL功能
(add-to-list 'load-path "~/lisp/setnu")
(require 'setnu)
(global-set-key [f2] (quote setnu-mode))
;======================= setnu讄l束 Q＝Q＝=================
;====================== rect-mark讄 =========================
;; 按下shift拖拽鼠标卛_选择矩Ş区域
;; Support for marking a rectangle of text with highlighting.
(add-to-list 'load-path "~/lisp/rect-mark")
(require 'rect-mark)
(define-key ctl-x-map "r\C-@" 'rm-set-mark)
(define-key ctl-x-map [?r ?\C-\ ] 'rm-set-mark)
(define-key ctl-x-map "r\C-x" 'rm-exchange-point-and-mark)
(define-key ctl-x-map "r\C-w" 'rm-kill-region)
(define-key ctl-x-map "r\M-w" 'rm-kill-ring-save)
(define-key global-map [S-down-mouse-1] 'rm-mouse-drag-region)
(autoload 'rm-set-mark "rect-mark"
"Set mark for rectangle." t)
(autoload 'rm-exchange-point-and-mark "rect-mark"
"Exchange point and mark for rectangle." t)
(autoload 'rm-kill-region "rect-mark"
"Kill a rectangular region and save it in the kill ring." t)
(autoload 'rm-kill-ring-save "rect-mark"
"Copy a rectangular region to the kill ring." t)
(autoload 'rm-mouse-drag-region "rect-mark"
"Drag out a rectangular region with the mouse." t)
;; Use this section in your "~/.emacs" to modify picture mode so that
;; it automatically uses the rect-mark equivalents of many commands.
;; One vision of a better picture mode.
(add-hook 'picture-mode-hook 'rm-example-picture-mode-bindings)
(autoload 'rm-example-picture-mode-bindings "rect-mark"
"Example rect-mark key and mouse bindings for picture mode.")
;===================== rect-mark讄l束 =========================
;===================== info文g讄 ==============================
;;Info 的菜单是?Info-directory-list 的顺序列出的Q?Info-directory-list 是在启动 info ?br />;;用Info-default-directory-list 来初始的。所以要d Info 目录是要讄 Info-default-directory-list?br />;;在添加的 Info 目录中，创徏一个叫 dir 的文Ӟ其实所?Info-directory-list 里有一个文件就行了Q?br />;;?${emacs}/info 文g夹下有这个文Ӟ修改q个也可以）?br />
(add-to-list 'Info-default-directory-list "~/lisp/info/")
;; nQ蟩转到该节点的下一个节点；
;; pQ蟩转到该节点的上一个节点；
;; m: 指定菜单名而选择另外一个节点；
;; fQ进入交叉引用主题；
;; lQ进入该H口中的最后一个节点；
;; TABQ蟩转到该窗口的下一个超文本链接Q?br />;; RETQ进入光标处的超文本链接Q?br />;; uQ{C一U主题；
;; dQ回?info 的初始节点目录；
;; hQ调?info 教程Q?br />;; qQ退?info?br />
;=================== info文g讄l束 ============================
;===================== AUCTeX讄 =================================
(load "~/lisp/auctex/site-lisp/auctex.el" nil t t)
(load "~/lisp/auctex/site-lisp/preview-latex.el" nil t t)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)
(add-hook 'LaTeX-mode-hook #'LaTeX-install-toolbar)
(add-hook 'LaTeX-mode-hook 'turn-on-auto-fill)
(add-hook 'LaTeX-mode-hook 'turn-on-reftex)
;===================== AUCTeX讄l束 =============================
;===================== 文g头header讄 ===========================
;;当我们保存文件的时?有很多信息可以自动更?如何自动更新信息, 更新那些信息,
;也是可以完全自己配置. 包括文g名称,最后一ơ修Ҏ?文g保存ơ数,最后一ơ修改的作者等{?
;;可以?M-x make-header 自动生成文g头信?
(add-to-list 'load-path "~/lisp/header")
(require 'header)
(setq make-header-hooks '(header-mode-line
header-blank
header-file-name
header-blank
header-copyright
header-blank
header-author
header-creation-date
header-modification-author
header-modification-date
header-update-count
header-blank
header-history
header-blank
))
(setq header-copyright-notice " 源成工作?作品" )
(make-local-variable 'user-full-name)
(make-local-variable 'user-mail-address)
;===================== 文g头header讄l束 ==========================
;===================== template讄 =================================
(add-to-list 'load-path "~/lisp/template")
(require 'template)
(template-initialize)
;===================== template讄l束===============================
;===================== cedet讄 =====================================
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/speedbar")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/eieio")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/semantic")
(add-to-list 'load-path "~/lisp/cedet-1.0pre3/common")
(require 'cedet)
;; (add-to-list 'load-path "~/lisp/ecb-2.32")
;; (require 'ecb)
;; Ecb的操?
;; C-c . g d 目录列表H口
;; C-c . g s 源码H口
;; C-c . g m Ҏ和变量窗?br />;; C-c . g h 历史H口
;; C-c . g l 最后选择q的~辑H口
;; C-c . g 1 ~辑H口1
;; C-c . g n ~辑H口n
;; C-c . l c 选择版面
;; C-c . l r 重画版面
;; C-c . l t 拴牢版面(锁定版面)
;; C-c . l w 拴牢可见的ecbH口
;; C-c . \ 拴牢~绎H口
;; 其中l为小写字?L),大家别看?!
;======================cedet讄l束==================================
;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义lisp包设|结?;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;===================== GNUS讄 =================================
(setq gnus-select-method '(nntp "news.yaako.com"))
(setq gnus-default-subscribed-newsgroups
'( "cn.comp.os.linux")) ;;
;; (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourSecondProvider.net"))
;; (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourThirdProvider.net"))
;;惌 Gnus 在多个的服务器上取新?br />
;;中文相关
(set-language-environment 'Chinese-GB)
(setq gnus-default-charset 'chinese-iso-8bit
gnus-group-name-charset-group-alist '((".*" . chinese-iso-8bit))
gnus-summary-show-article-charset-alist
'((1 . chinese-iso-8bit)
(2 . gbk)
(3 . big5)
(4 . utf-8))
gnus-newsgroup-ignored-charsets
'(unknown-8bit x-unknown iso-8859-1))
(setq mail-sources
'((pop :server "pop3.163.com" ;; 在这里设|pop3服务?br />:user "XXXXXXX" ;; 用户?br />;; :port "110"
:password "XXXXXX"))) ;; 密码
(setq gnus-secondary-select-methods '((nnfolder "")))
(setq user-full-name "XXXXXXXX") ;; 外发的邮仉用这个名?br />(setq user-mail-address "XXXXXX@163.com") ;;外发的邮仉用这个地址
(setq smtpmail-auth-credentials
'(("smtp.163.com" ;; SMTP服务?br />25
"XXXXXX" ;; 用户?br />"XXXXXX"))) ;; 密码
(setq smtpmail-default-smtp-server "smtp.163.com")
(setq smtpmail-smtp-server "smtp.163.com")
(setq message-send-mail-function 'smtpmail-send-it)
(setq nnmail-expiry-wait 3);;Gnus 默认的保质期?天，如果你觉得时间不合适，可以自己讄
(add-hook 'gnus-article-prepare-hook
(lambda ()
(setq fill-column 60)
(gnus-article-fill-long-lines)))
;;让gnus把这U邮件排版整齐后再显C给我们?br />
(add-hook 'gnus-article-prepare-hook 'gnus-article-date-local)
;;邮件的发出旉转换为本地时?br />
(gnus-add-configuration '(article
(vertical 1.0
(summary .4 point)
(article 1.0))))
;; 改变阅读新闻时窗口的布局Q窗口划分ؓ??Q比例）
(eval-after-load "mm-decode"
'(progn
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")))
;另外Q有些用web方式发出的邮仉有htmlQ加入下面的讄Q只看其中的
;plain text部分Q?br />
(setq gnus-thread-sort-functions
'(
(not gnus-thread-sort-by-date)
(not gnus-thread-sort-by-number)
))
;;排序
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
;; 有时订阅了很多新ȝQ堆在一起不好管理。这个功能可以创建目录来分层理
(setq gnus-read-newsrc-file nil gnus-save-newsrc-file nil)
;======================== GNUS讄l束 ===============================
;;=========================== 方便~程操作的设|?====================================
(setq compile-command "make")
;;emacs的默认compile命o是调用make -kQ我把它Ҏ了make。你也可以把它改成其他的Q比如gcc之类?
;;把c语言风格讄为k&r风格
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "k&r")))
;;把C++语言风格讄为stroustrup风格
(add-hook 'c++-mode-hook
'(lambda()
(c-set-style "stroustrup")))
;========================================================================
(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)
;;能把一个代码块~v来，需要的时候再展开
;; 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
;========================================================================
(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)
;;输入左边的括P׃自动补全双的部?包括(), "", [] , {} , {等?br />
;=========================================================================
(setq semantic-load-turn-everything-on t)
;(add-hook 'semantic-init-hooks 'semantic-idle-completions-mode)
(setq semanticdb-project-roots
(list
(expand-file-name "/")))
;;配置Semantic的检索范?br />
(setq semanticdb-default-save-directory "~/")
;;讄semantic.cache路径
(global-set-key [(meta ?/)] 'hippie-expand)
;;M-/ l定?hippie-expand
(autoload 'senator-try-expand-semantic "senator")
(setq hippie-expand-try-functions-list
'(senator-try-expand-semantic ;优先调用了senator的分析结?br />try-expand-dabbrev ;当前的buffer补全
try-expand-dabbrev-visible ;别的可见的窗口里L补全
try-expand-dabbrev-all-buffers ;所有打开的buffer
try-expand-dabbrev-from-kill
try-complete-file-name-partially
try-complete-file-name
try-expand-all-abbrevs
try-expand-list
try-expand-line
try-complete-lisp-symbol-partially
try-complete-lisp-symbol))
;讄 hippie-expand 的补全方式。它是一个优先列表， hippie-expand 会优先用表最前面的函数来补全?br />
;=========================================================================
;==========================================================================
;;========================== 方便~程操作讄l束====================================
longsooooon 2011-09-14 10:43 发表评论
]]>