2011年10月24日

Windows下ORACLE 10g安装与操作图解

Oracle 2008-08-07 08:17:34 阅读7580 评论8 字号:大中小 

刚刚接触ORACLE的人来说,从那里学,如何学,有那些工具可以使用,应该执行什么操作,一定回感到无助。所以在学习使用ORACLE之前,首先来安装一下ORACLE 10g,在来掌握其基本工具。俗话说的好:工欲善其事,必先利其器。我们开始吧!

  首先将ORACLE 10g的安装光盘放入光驱,如果自动运行,一般会出现如图1安装界面:


图1

  单击“开始安装”,就可以安装ORACLE 10g,一般会检查系统配置是否符合要求,然后出现“Oracle DataBase 10g安装”对话框,如图2所示:



图2

  在安装Oracle DataBase 10g时可以选择“基本安装”和“高级安装”两种方法。选择“基本安装”时,“Oracle主目录位置”用于指定Oracle DataBase 10g软件的存放位置;“安装类型”用于指定Oracle产品的安装类型(企业版、标准版和个人版)。如果选择“创建启动数据库”,那就要指定全局数据库名称和数据库用户的口令。

  选择“高级安装”,单击“下一步”,会出现“指定文件对话框”,在源路径显示的是安装产品所在的磁盘路径;目标名称用于资定Oracle主目录所对应的环境变量,目标路径用于指定安装Oracle软件的目标安装路径。设置目标名称为:OraDb10g_home1,目标路径为:D:oracleproduct10.1.0db1。如图3:



图3

  单击“下一步”,会加载Oracle产品列表,然后出现“选择安装类型”对话框;如图4:



图4

  选择安装类型时一般选择“企业版”,单击“下一步”,会出现“选择数据库配置”对话框,如图5 :



图5

  在“选择数据库配置”对话框中可以选择是否要创建启动数据库,如果要创建数据库还要选择建立数据库的类型。选择“不创建启动数据库”单击“下一步”,会出现“概要”对话框,如图6所示:



图6

  单击“安装”,就会开始安装Oracle DataBase 10g产品了。如图7为安装过程:



图7

  图8为安装完成



图8

  在安装完成Oracle Database 10g后,就要建立数据库。

   数据库配置助手(Database Configuration Assistant)用于创建数据库、配置数据库选项、删除数据库和管理模板。在安装Oracle database 10g的时候如果没有建立数据库,在安装完成之后就可以使用数据库配置助手(DBCA)建立数据库。

   建立数据库的方法有两种,第一种是在命令行下直接运行:dbca;第二种是点击开始菜单:开始=>程序=>Oracle=>oraDb10g_home1=>Configuration and Migration Tool=>Database Configuration Assistant。如图1:



图1

  之后,具体步骤如下,先出现欢迎对话框,如图2:



图2

  单击“下一步”,出现“操作”对话框,该对话框用于要执行的数据库操作(创建数据库、配置数据库选项、删除数据库和管理模板),如图3:



图3

  如果是第一次创建数据库,只能创建数据库和管理模板可以使用,选择创建数据库,单击“下一步”,会出现数据库模板对话框,如图4:



图4

  数据库模板是本地硬盘上的XML文件,用来存储数据库的配置信息。

  选择“事务处理”,单击“下一步”,会显示数据库标示对话框,该对话框用于设置全局数据库名和例程名。如图5:



图5

  全局数据库名,格式一般为:db_name.db_domain。db_name用于对应数据库名,db_domain对应于网络域名。SID(例程)应该与db_name完全一致.如图5都设置为:demo.

  单击“下一步”,会出现“管理选项”对话框。用于设置OEM管理信息,如图6:



图6

  如果要集中管理所有的Oracle数据库,那就要选择“Grid Control管理数据库”,如果只管理本地数据库,那就选择“使用Database Control管理数据库”。

  选择“使用Database Control管理数据库”,单击“下一步”,会出现“数据库身份证明”对话框,该对话框用于设置初始数据库用户帐号的口令。如图7:



图7

  要选择用户SYS、SYSTEM、DBSNMP、SYSMAN使用相同的口令,那就选择“所有账户使用同一口令”。这里选择“使用不同的口令”,分别设置用户的口令:SYS用户的口令为ORACLE,SYSTEM用户的口令为MANAGER,DBSNMP用户的口令为DBSNMP,SYSMAN用户的口令为SYSMAN。

  设置口令后,单击“下一步”,会出现“存储选项”对话框,该对话框用于指定数据库的存储机制(文件系统、自动存储管理、裸设备),如图8:



图8

  选择“文件系统”,单击“下一步”,会出现“数据库文件位置”对话框,该对话框用于指定数据库文件的存放位置。如图9:
   

  图9

  选择“使用模板中的数据库文件位置”,单击“下一步”,会出现“恢复配置”对话框,该对话框用于指定数据库的恢复选项,如图10:
  

  图10

  快速恢复区用于恢复数据,以免系统发生故障时丢失数据;启用归档用于将数据库设置为ARCHIVELOG模式,使得当数据库出现失败时可以完全恢复数据库数据。

  单击“下一步”,会出现“数据库内容”对话框,该对话框用指定是否安装示例方案,并运行自定义脚本。如图11:



图11

  单击“下一步”,会出现“初始化参数”对话框,该对话框用配置初始化参数、数据库字符集和连接模式。如图12:
   

  图12

  这里的内容相对初学者来说有垫补好理解,放到后面讲解。

  单击“下一步”,会出现“数据库存储”对话框,该对话框用指定控制文件、数据文件、重做日志文件、名称和尺寸。如图13:
   

  图13

  单击“下一步”,会出现“创建选项”对话框,该对话框用指定建立数据库,还是保存为数据库模板。如图14:
  

 图14

  单击“完成”,会显示“确认”对话框,列出了要安装Oracle选项的所有信息。如图15:
   

  图15

  单击“确定”,就完成数据库的建立过程。就会开始数据库的建立,如图16:



图16

  当数据库建立完成后,就会出现如下对话框,如图17:
   

  图17

  当建立完成数据库后,系统会锁定除SYS、SYSTEM、DBSNMP、SYSMAN之外的所有其他用户。应为以后要使用SCOTT用户,所以在点击“口令管理”按钮后,解锁SCOTT用户,如图18:
   

  图18

  指定用户口令为TIGER,单击“确定”按钮,最后单击“退出”按钮完成数据库建立的全部过程。


posted @ 2011-10-24 10:00 longsooooon 阅读(824) | 评论 (0)编辑 收藏

2011年10月9日


超简单方法解决Struts2中一个action处理多个请求
关键字: struts2, action, 多个方法
    这几天用Struts2+MySQL做名片管理系统的时候,遇到了一些问题,或许别人看来不是什么问题,但作为一个刚刚开始学习Struts2的新手,
很多东西对我来说还是很有难度的.比如我现在要说的在一个action中处理多个请求的问题.

    简要描述一下问题的产生:我要做的名片管理系统中的一个用户管理模块,其中有两个最主要的方法就是登录和注册,这两个方法都是在UserAction中处理.
而按照通常的状况而言,一个Action中只会有一个execute方法,也就只能解决一个请求(大概看了下Struts,好像其中可以通过在form中加一个hidden元素,
然后再在execute方法中用getCommond()的方法来进行判别).不过我在Struts2中没有发现类似的解决办法,这也很有可能是我刚刚学习Struts2造成的,
毕竟到现在我都还没弄到一本完整的教材,就只是到处找了些零散的资料,然后,做的过程遇到问题再自己猜想结合google找到的一些东西来寻求解决.

    遇到这个问题之后,我自己开始没有想明白是什么状况,该怎么解决.于是在网上找了下,找到的方法貌似都不是很简单,要么就很复杂,要么就要涉及一些比较深的知识.
后面我在执行这个程序的时候,发现Eclipse提出的一个warning,而正是这个warning给了我很大的提示,让我找到的解决方法.

    Warning是这样的: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不一致,
将两个的名字改成相同就好了,不要求以.action结束,如都为:LoginAction,也就是struts.xml中的<action name="LoginAction" class="main.UserAction">,
和JSP页面中的<s:form action="LoginAction" method="POST">.


    而在struts.xml中定义的action还有一个参数method,既然已经可以根据action的name找到对应的action,那还要这个参数做什么呢?另外,execute在不更改的情况下,
也是默认会调用的方法,再结合自己在网上找到的一些资料,我觉得可以尝试一下将struts.xml中的action中的method进行设置.
于是就有了下面的两个action的配置:struts.xml中的<action name="login" class="main.UserAction"  method="login">和
JSP页面中的<s:form action="login" method="POST">. 提交上面的表单form的时候,在struts.xml中找到该form对应的action的方法为login(),
于是就到类UserAction中找到该方法并调用.因而也就能够调用UserAction类的login()方法了.
    这样上面的问题也就可以解释了:因为两个地方定义的方法的名字不同,所以在点击登录进行login.jsp的时候就会弹出上述提示,
但由于struts.xml中只定义(配置)一个action,默认的方法为execute(),故而编译器还是能够找到该方法进行执行.
    根据上面的推断,因而可以再添加一个注册页面register.jsp,将其中的表单form定义为:<s:form action="register" method="POST">,
而将struts.xml增加一个设置:<action name="register" class="main.UserAction" method="register">.
这样当register.jsp的action请求被拦截器拦截之后通过struts.xml的配置就可以找到UserAction类的register()方法进行相应的处理了,
因而也就可以实现一个UserAction中处理多个请求action了.

    PS:由于本人刚刚学习Struts2不到两个星期,而且以前也没有接触过Struts方面的程序设计.所以,
肯定会有理解不对的地方,麻烦各位发现的朋友帮我指出来,谢谢

 来自:http://www.360doc.com/content/09/1122/16/144699_9541328.shtml
posted @ 2011-10-09 17:37 longsooooon 阅读(1601) | 评论 (0)编辑 收藏

2011年9月14日

windows下安装emacs及添加配置文件(网络整合收集)

前言
在这个蔚蓝色的星球上,流传着两大神器的传说:据说Emacs是神的编辑器,而Vim是编辑器之神。
一些人勇敢地拾起了Vim或Emacs,却发现学习曲线陡峭而漫长,还是有一些人留下来了,坚定地守护着这两大神器。
一些说葡萄太酸的人想离开又不甘心,总是问:它们到底神在哪里啊?
Emacs和Vim介绍来自:http://os.51cto.com/art/201101/242518.htm

首先我们需要下载windows版的emacs,官网下载地址:
http://ftp.gnu.org/pub/gnu/emacs/windows/
比如我下载的是:emacs-23.3-bin-i386.zip
在硬盘里解压后有个addpm.exe,双击运行它。

在Windows下是无法手动建立.emacs文件的,你可以打开emacs然后在Options下随便
挑个选项比如:Paren Match Highlighting然后点Save Options
你就可以看到下面的提示
Wrote c:/Documents and Settings/Administrator/Application Data/.emacs
这时已经生成.emacs文件了。
为了以后可以反复使用配置和插件,我们需要改变插件导入路径,在C:\Documents
and Settings\Administrator\Application Data\.emacs添加下面代码

'(load-file "D:\emacs-23.3\.emacs");;要在第一行且单独一行
然后在D:\emacs-23.3文件下建立配置文件.emacs,写入下面的代码。

;;改变默认路径
(setenv "HOME" "D:/emacs-23.3")
(setenv "PATH" "D:/emacs-23.3")
;;set the default file path
(setq default-directory "~/")

最后在D:/emacs-23.3下建立文件夹ConFile,把插件(默认插件在lisp文件夹里)都扔进去,
比如说display-line-number.el
在.emacs中写入下面的代码。

;;显示行号
(load-file "~/ConFile/display-line-number.el")
(require 'display-line-number)
(global-display-line-number-mode t)

Emacs23可以不用插件显示行号
在配置.emacs文件中加上
(global-linum-mode t)
或者m-x  global-linum-mode回车(m-x就是Alt+x)
就可以显示行号,而且在用了tabbar插件的情况下,这种方式不会出现差一行的错误.

(setq case-fold-search nil);;查找的时候就强制匹配大小写t,nil
(setq case-replace  nil);;强制大小写自动替换


下面是我从网上找的 Emacs基本配置稍加整理,
我的.emacs文件祥细代码(网络收藏整理的):

;;'(load-file "D:\emacs-23.3\.emacs");;放在C:\~~~\.emacs文件里第一行且单独一行
;;'(global-linum-mode t)
;;改变默认路径
(setenv "HOME" "D:/emacs-23.3")
(setenv "PATH" "D:/emacs-23.3")

;============================ 语言环境字符集设置 =================================
;;这一部份主要用在linux 环境下,windows下没什么作用
;; (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乱码,好像没作用
;=========================== 语言环境字符集设置结束 ===============================

;============================ 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环境下字体设置结束 ==============================


;;;;;;;;;;;;;;;;;;;;语言环境字体设置结束;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;解决中英文混排不能正确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)


;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置窗口界面 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")

(set-scroll-bar-mode nil)
;;取消滚动栏

;;(customize-set-variable 'scroll-bar-mode 'right))
;;设置滚动栏在窗口右侧,而默认是在左侧

(tool-bar-mode nil)
;;取消工具栏

(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)))


;; 设置另外一些颜色:语法高亮显示的背景和主题,区域选择的背景和主题,二次选择的背景和选择
(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")

;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置界面结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;; 显示时间设置 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(display-time-mode 1);;启用时间显示设置,在minibuffer上面的那个杠上
(setq display-time-24hr-format t);;时间使用24小时制
(setq display-time-day-and-date t);;时间显示包括日期和具体时间
(setq display-time-use-mail-icon t);;时间栏旁边启用邮件设置
(setq display-time-interval 10);;时间的变化频率,单位多少来着?

;;;;;;;;;;;;;;;;;;;;;;;;;;; 显示时间设置结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;设置打开文件的缺省路径
(setq default-directory "/")

;;ido的配置,这个可以使你在用C-x C-f打开文件的时候在后面有提示;
;;这里是直接打开了ido的支持,在emacs23中这个是自带的.
(ido-mode t)

(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)
;; 改变 Emacs 固执的要你回答 yes 的行为。按 y 或空格键表示 yes,n 表示 no。

(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 之外的模式中使用语法高亮。

(setq global-linum-mode t);行号
(setq column-number-mode t)
(setq line-number-mode t)
;;显示行列号

(setq mouse-yank-at-point t)
;;不要在鼠标点击的那个地方插入剪贴板内容。我不喜欢那样,经常把我的文档搞的一团糟。我觉得先用光标定位,然后鼠标中键点击要好的多。
;;不管你的光标在文档的那个位置,或是在 minibuffer,鼠标中键一点击,X selection 的内容就被插入到那个位置。

(setq kill-ring-max 200)
;;设置粘贴缓冲条目数量.用一个很大的kill ring(最多的记录个数). 这样防止我不小心删掉重要的东西

(setq-default auto-fill-function 'do-auto-fill)
; Autofill in all modes;;
(setq default-fill-column 120)
;;把 fill-column 设为 60. 这样的文字更好读

(setq-default indent-tabs-mode nil)
(setq default-tab-width 8)
(setq tab-stop-list ())
;;不用 TAB 字符来indent, 这会引起很多奇怪的错误。编辑 Makefile 的时候也不用担心,因为 makefile-mode 会把 TAB 键设置成真正的 TAB 字符,并且加亮显示的。

(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 default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;设置缺省主模式是text,,并进入auto-fill次模式.而不是基本模式fundamental-mode

(setq show-paren-mode t) ;;打开括号匹配显示模式
(setq show-paren-style 'parenthesis)
;;括号匹配时可以高亮显示另外一边的括号,但光标不会烦人的跳到另一个括号处。

(setq mouse-avoidance-mode 'animate)
;;光标靠近鼠标指针时,让鼠标指针自动让开,别挡住视线。

(setq frame-title-format "emacs@%b")
;;在标题栏显示buffer的名字,而不是 emacs@wangyin.com 这样没用的提示。

(setq uniquify-buffer-name-style 'forward);;好像没起作用
;; 当有两个文件名相同的缓冲时,使用前缀的目录名做 buffer 名字,不用原来的foobar 形式。

(setq auto-image-file-mode t)
;;让 Emacs 可以直接打开和显示图片。

;(auto-compression-mode 1)
;打开压缩文件时自动解压缩。

(setq global-font-lock-mode t)
;;进行语法加亮。

(setq-default kill-whole-line t)
;; 在行首 C-k 时,同时删除该行。

(add-hook 'comint-output-filter-functions
'comint-watch-for-password-prompt)
;;当你在shell、telnet、w3m等模式下时,必然碰到过要输入密码的情况,此时加密显出你的密码

;; (setq version-control t);;启用版本控制,即可以备份多次
;; (setq kept-old-versions 2);;备份最原始的版本两次,及第一次编辑前的文档,和第二次编辑前的文档
;; (setq kept-new-versions 1);;备份最新的版本1次,理解同上
;; (setq delete-old-versions t);;删掉不属于以上3中版本的版本
;; (setq backup-directory-alist '(("." . "~/backups")));;设置备份文件的路径
;; (setq backup-by-copying t);;备份设置方法,直接拷贝
;; Emacs 中,改变文件时,默认都会产生备份文件(以 ~ 结尾的文件)。可以完全去掉
;; (并不可取),也可以制定备份的方式。这里采用的是,把所有的文件备份都放在一
;; 个固定的地方("~/backups")。对于每个备份文件,保留最原始的两个版本和最新的
;; 1个版本。并且备份的时候,备份文件是复本,而不是原件。

(setq make-backup-files nil)
;; 设定不产生备份文件
(setq version-control 'never);;不需要而不是想换个地方保存备份文件
(setq auto-save-mode nil)
;;自动保存模式

(setq-default make-backup-files nil)
;; 不生成临时文件

(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)
;;把这些缺省禁用的功能打开。

;;允许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")
;;设置有用的个人信息,这在很多地方有用。

(setq require-final-newline t)
;; 自动的在文件末增加一新行

(setq-default transient-mark-mode t)
;;Non-nil if Transient-Mark mode is enabled.

(setq track-eol t)
;; 当光标在行尾上下移动的时候,始终保持在行尾。

(setq Man-notify-method 'pushy)
;; 当浏览 man page 时,直接跳转到 man buffer。

(setq next-line-add-newlines nil)
;;Emacs 21 中已经是缺省设置。按 C-n 或向下键时不添加新行。

(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)
;;设置home键指向buffer开头,end键指向buffer结尾


(global-set-key (kbd "C-,") 'scroll-left)
;; "C-,"设为屏幕左移命令
(global-set-key (kbd "C-.") 'scroll-right)
;; "C-."设为屏幕右移命令

(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 的另一个buffer窗口

(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, 设置编译命令; f5, 保存所有文件然后编译当前窗口文件

(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的小buffer,用于更方便地测试程序(也就是运行程序了),我经常会用到。
;;f8就是另开一个buffer然后打开shell,C-f8则是在当前的buffer打开shell

(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)

(global-set-key [f9] 'speedbar)
;;设置f9调用speedbar命令
;;使用 n 和 p 可以上下移动,
;; + 展开目录或文件进行浏览,- 收缩,RET 访问目录或文件,g 更新 speedbar。

(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;让 dired 可以递归的拷贝和删除目录。
(global-set-key [C-f9] 'dired)
;;设置[C-f9]为调用dired命令

(global-set-key [f10] 'undo)
;;设置F10为撤销

(global-set-key [f11] 'calendar)
;;设置F11快捷键指定Emacs 的日历系统

(global-set-key [f12] 'list-bookmarks)
;;设置F12 快速察看日程安排

(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S chunyu")
;; 设置时间戳,标识出最后一次保存文件的时间。

(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)
;;这样 我就不用按 C-@ 来 setmark 了, C-@ 很不好按。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;定制操作习惯结束;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日历 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;设置日历的一些颜色
(setq calendar-load-hook
'(lambda ()
(set-face-foreground 'diary-face "skyblue")
(set-face-background 'holiday-face "slate blue")
(set-face-foreground 'holiday-face "white")))

;;设置我所在地方的经纬度,calendar里有个功能是日月食的预测,和你的经纬度相联系的。
;; 让emacs能计算日出日落的时间,在 calendar 上用 S 即可看到
(setq calendar-latitude +39.54)
(setq calendar-longitude +116.28)
(setq calendar-location-name "北京")

;; 设置阴历显示,在 calendar 上用 pC 显示阴历
(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "己" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "丑" "寅" "卯" "辰" "巳" "戊" "未" "申" "酉" "戌" "亥"])

;; 设置 calendar 的显示
(setq calendar-remove-frame-by-deleting t)
(setq calendar-week-start-day 1) ; 设置星期一为每周的第一天
(setq mark-diary-entries-in-calendar t) ; 标记calendar上有diary的日期
(setq mark-holidays-in-calendar nil) ; 为了突出有diary的日期,calendar上不标记节日
(setq view-calendar-holidays-initially nil) ; 打开calendar的时候不显示一堆节日

;; 去掉不关心的节日,设定自己在意的节日,在 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 "情人节")
(holiday-fixed 3 14 "白色情人节")
(holiday-fixed 4 1 "愚人节")
(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模式支持各种方式来更改当前日期
;;(这里的“前”是指还没有到来的那一天,“后”是指已经过去的日子)
;; q 退出calendar模式
;; C-f 让当前日期向前一天
;; C-b 让当前日期向后一天
;; C-n 让当前日期向前一周
;; C-p 让当前日期向后一周
;; M-} 让当前日期向前一个月
;; M-{ 让当前日期向后一个月
;; C-x ] 让当前日期向前一年
;; C-x [ 让当前日期向后一年
;; C-a 移动到当前周的第一天
;; C-e 移动到当前周的最后一天
;; M-a 移动到当前月的第一天
;; M-e 多动到当前月的最后一天
;; M-< 移动到当前年的第一天
;; M-> 移动到当前年的最后一天

;;Calendar模式支持移动多种移动到特珠日期的方式
;; g d 移动到一个特别的日期
;; o 使某个特殊的月分作为中间的月分
;; . 移动到当天的日期
;; p d 显示某一天在一年中的位置,也显示本年度还有多少天。
;; C-c C-l 刷新Calendar窗口

;; Calendar支持生成LATEX代码。
;; t m 按月生成日历
;; t M 按月生成一个美化的日历
;; t d 按当天日期生成一个当天日历
;; t w 1 在一页上生成这个周的日历
;; t w 2 在两页上生成这个周的日历
;; t w 3 生成一个ISO-SYTLE风格的当前周日历
;; t w 4 生成一个从周一开始的当前周日历
;; t y 生成当前年的日历

;;EMACS Calendar支持配置节日:
;; h 显示当前的节日
;; x 定义当天为某个节日
;; u 取消当天已被定义的节日
;; e 显示所有这前后共三个月的节日。
;; M-x holiday 在另外的窗口的显示这前后三个月的节日。


;; 另外,还有一些特殊的,有意思的命令:
;; S 显示当天的日出日落时间(是大写的S)
;; p C 显示农历可以使用
;; g C 使用农历移动日期可以使用


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 日历设置结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日记 ;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;

(setq diary-file "~/diary");; 默认的日记文件
(setq diary-mail-addr "getmails@163.com")
(add-hook 'diary-hook 'appt-make-list)
;;当你创建了一个'~/diary'文件,你就可以使用calendar去查看里面的内容。你可以查看当天的事件,相关命令如下 :
;; d 显示被选中的日期的所有事件
;; s 显示所有事件,包括过期的,未到期的等等

;; 创建一个事件的样例:
;; 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

;; 创建事件的命令:
;; i d 为当天日期添加一个事件
;; i w 为当天周创建一个周事件
;; i m 为当前月创建一个月事件
;; i y 为当前年创建一个年事件
;; i a 为当前日期创建一个周年纪念日
;; i c 创建一个循环的事件


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 设置日记结束 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义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")


;;这几句Lisp代码的作用是设置中文环境、注册五笔字型输入法。保存.emacs后请重新启动emacs,
;;使得上面的设置生效。现在您可以用快捷键C-\ (同时按住 Ctrl和反斜线键)唤出五笔字型输入法了。
;;在emacs的mode line上会出现“五笔字型”的字样。

;=======================五笔输入法设置结束===================


;======================= cscope 设置 =======================
;;使用 cscope 浏览源代码,这个xcscope是个改进版,为每一次查找的结果使用不同 buffer ,
;;这样就可以保存以前的结果。

(add-to-list 'load-path "~/lisp/xcscope") ;; 将软件包所在的路径加到 EMACS 的 load-path
(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


;===================== cscope 设置结束 ======================


;======================== tabbar设置 ========================
(add-to-list 'load-path "~/lisp/tabbar")
(require 'tabbar)
(tabbar-mode)
;========================tabbar设置结束=======================


;======================= wb-line-number设置 ==================
;;增加一个显示行号的buffer
;(add-to-list 'load-path "~/lisp/wb-line-number")
;(require 'wb-line-number)
;(wb-line-number-enable)
;====================== wb-line-number设置结束 ================

;======================= setnu设置 ============================
;;再增加一个显示行号的功能
(add-to-list 'load-path "~/lisp/setnu")
(require 'setnu)
(global-set-key [f2] (quote setnu-mode))

;======================= setnu设置结束 =====================


;====================== 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设置结束 =========================

;===================== info文件设置 ==============================
;;Info 的菜单是按 Info-directory-list 的顺序列出的,而 Info-directory-list 是在启动 info 时
;;用Info-default-directory-list 来初始的。所以要添加 Info 目录是要设置 Info-default-directory-list。
;;在添加的 Info 目录中,创建一个叫 dir 的文件(其实所有 Info-directory-list 里有一个文件就行了,
;;在 ${emacs}/info 文件夹下有这个文件,修改这个也可以)。

(add-to-list 'Info-default-directory-list "~/lisp/info/")

;; n:跳转到该节点的下一个节点;
;; p:跳转到该节点的上一个节点;
;; m: 指定菜单名而选择另外一个节点;
;; f:进入交叉引用主题;
;; l:进入该窗口中的最后一个节点;
;; TAB:跳转到该窗口的下一个超文本链接;
;; RET:进入光标处的超文本链接;
;; u:转到上一级主题;
;; d:回到 info 的初始节点目录;
;; h:调出 info 教程;
;; q:退出 info。

;=================== info文件设置结束 ============================


;===================== 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设置结束 =============================


;===================== 文件头header设置 ===========================
;;当我们保存文件的时候,有很多信息可以自动更新.如何自动更新信息, 更新那些信息,
;也是可以完全自己配置. 包括文件名称,最后一次修改时间,文件保存次数,最后一次修改的作者等等.
;;可以用 M-x make-header 自动生成文件头信息.
(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)

;===================== 文件头header设置结束 ==========================


;===================== template设置 =================================
(add-to-list 'load-path "~/lisp/template")
(require 'template)
(template-initialize)

;===================== template设置结束===============================

;===================== 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 目录列表窗口
;; C-c . g s 源码窗口
;; C-c . g m 方法和变量窗口
;; C-c . g h 历史窗口
;; C-c . g l 最后选择过的编辑窗口
;; C-c . g 1 编辑窗口1
;; C-c . g n 编辑窗口n
;; C-c . l c 选择版面
;; C-c . l r 重画版面
;; C-c . l t 拴牢版面(锁定版面)
;; C-c . l w 拴牢可见的ecb窗口
;; C-c . \ 拴牢编绎窗口

;; 其中l为小写字母(L),大家别看错!!

;======================cedet设置结束==================================


;;;;;;;;;;;;;;;;;;;;;;;;;; 自定义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 在多个的服务器上取新闻


;;中文相关
(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服务器
:user "XXXXXXX" ;; 用户名
;; :port "110"
:password "XXXXXX"))) ;; 密码
(setq gnus-secondary-select-methods '((nnfolder "")))

(setq user-full-name "XXXXXXXX") ;; 外发的邮件采用这个名字
(setq user-mail-address "XXXXXX@163.com") ;;外发的邮件采用这个地址
(setq smtpmail-auth-credentials
'(("smtp.163.com" ;; SMTP服务器
25
"XXXXXX" ;; 用户名
"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 默认的保质期是7天,如果你觉得时间不合适,可以自己设置

(add-hook 'gnus-article-prepare-hook
(lambda ()
(setq fill-column 60)
(gnus-article-fill-long-lines)))
;;让gnus把这种邮件排版整齐后再显示给我们看

(add-hook 'gnus-article-prepare-hook 'gnus-article-date-local)
;;将邮件的发出时间转换为本地时间

(gnus-add-configuration '(article
(vertical 1.0
(summary .4 point)
(article 1.0))))
;; 改变阅读新闻时窗口的布局,窗口划分为上4下6(比例)

(eval-after-load "mm-decode"
'(progn
(add-to-list 'mm-discouraged-alternatives "text/html")
(add-to-list 'mm-discouraged-alternatives "text/richtext")))
;另外,有些用web方式发出的邮件里有html,加入下面的设置,只看其中的
;plain text部分:

(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)
;; 有时订阅了很多新闻组,堆在一起不好管理。这个功能可以创建目录来分层管理

(setq gnus-read-newsrc-file nil gnus-save-newsrc-file nil)

;======================== GNUS设置结束 ===============================

;;=========================== 方便编程操作的设置=====================================

(setq compile-command "make")
;;emacs的默认compile命令是调用make -k,我把它改成了make。你也可以把它改成其他的,比如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)
;;能把一个代码块缩起来,需要的时候再展开
;; 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)
;;输入左边的括号,就会自动补全右边的部分.包括(), "", [] , {} , 等等。

;=========================================================================
(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的检索范围

(setq semanticdb-default-save-directory "~/")
;;设置semantic.cache路径

(global-set-key [(meta ?/)] 'hippie-expand)
;;M-/ 绑定到 hippie-expand

(autoload 'senator-try-expand-semantic "senator")
(setq hippie-expand-try-functions-list
'(senator-try-expand-semantic ;优先调用了senator的分析结果
try-expand-dabbrev ;当前的buffer补全
try-expand-dabbrev-visible ;别的可见的窗口里寻找补全
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 会优先使用表最前面的函数来补全。

;=========================================================================


;==========================================================================

;;========================== 方便编程操作设置结束====================================
posted @ 2011-09-14 10:43 longsooooon 阅读(8246) | 评论 (0)编辑 收藏
仅列出标题  

导航

<2024年3月>
252627282912
3456789
10111213141516
17181920212223
24252627282930
31123456

统计

常用链接

留言簿

随笔档案

搜索

最新评论

阅读排行榜

评论排行榜