早上8：30点起床，打开本本，不经意打开了Emacs，想想最近的Java和javaWeb编写，于是想在windows7下的Emacs里写Java程序，于是google一下配置信息
第一个问题，Java类型定制：
找到很多linux下的配置，还有就是windows XP下的配置，先前知道点VIM的东西，知道这些基于Lisp下的东西都有配置的东西，于是找所谓的~.emacs文件，可是找了半天也没找到，google和百度上信息太多，什么.emacs.d文件夹，弄得头都大了，
现在就仔细说一下流程，找到你Emacs放置的目录（我的：D:\Program Files (x86)\Emacs_Windows v23.2\emacs-23.2\bin）下的addpm.exe点击执行，这样会同时在你的start启动里添加上GNU选项同时在你的C盘这个位置C:\Users\Administrator\AppData\Roaming （AppData默认隐藏，这就是找不到的原因）生成你的.emacs.d文件夹，然后自己在.emacs.d目录下写个~.emacs配置文件。
Java开发要下载JDee，cedet,elib,,,,等压缩文件，这些可以去sourcepage 那里去下载，然后解压到emacs目录下lisp-site 的文件（个人建议放在这里，因为这是默认配置的地方，然后在配置文件里统一加载文件位置，方便扩展）接下来就是~.emacs文件的配置问题了。
这是我个人的配置文件，邮件问题还没有解决。
第二个问题，颜色设置问题，first ,下载color-theme-6.6.0，然后放在emacs下的lisp-site文件夹下，再在配置文件里配置文件。
这里遇到最大的情况是配置之后，emacs依然保持原来的颜面，这让我搞了半天，最后发现就是配置文件放置的原因，但是说明一点，就是java配置的时候位置好像不是太关键，因为唯有改变配置文件之前可以加载上对Java格式的设置，但是背景颜色的设置必须要求配置文件位置正确。
最后，说明一下，windows7下关键问题就是确定.emacs.d文件夹得位置，还有就是~.emacs文件的配置，下面把我的配置文件与大家共享一下，
注意，email配置没有实现，大家跳过，还有初学Emacs,配置写的不够规范，希望参考的时候注意区分，今天的收获就是知道了有些东西就是在你一次次次尝试之后的结果。
感谢GNU提供的资料,同时纪念9、18事变，希望中国，，，，，，，
Mackal_li
2011/9/18
效果图
;; Set the debug option to enable a backtrace when a ;; problem occurs. (setq debug-on-error t) (setq user-mail-address "[email protected]") (setq user-full-name "liguangxu") (setq frame-title-format "%b") ;; no backup files (setq make-backup-files nil) ;; delete unnecessary autosave files (setq delete-auto-save-files t) ;; delete oldversion files (setq delete-old-versions t) ;;支持 emacs 和外部程序的粘贴 (setq x-select-enable-clipboard t) ;;add Java Develop Environment '(jde-jdk-registry (quote (("1.6.0_26" . "D:\Program Files\Java\jdk1.6.0_26")))) ;; 使emacs可以接受中文输入法 (set-keyboard-coding-system 'chinese-iso-8bit-dos) ;; 使emacs可以复制粘贴中文字符 (set-selection-coding-system 'chinese-iso-8bit-dos) ;; 设置背景颜色和字体颜色 (set-foreground-color "white") (set-background-color "darkblue") ;; 颜色设置 (setq frame-background-mode 'dark) (set-background-color "black") (set-foreground-color "gray") (set-cursor-color "yellow") ;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择 (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") ;; 邮件收发 (require 'smtpmail) (setq smtpmail-debug-info t) (setq send-mail-function 'smtpmail-send-it) (setq message-send-mail-function 'smtpmail-send-it) (setq smtpmail-default-smtp-server "smtp.gmail.com") (setq smtpmail-smtp-server "smtp.gmail.com") (setq smtpmail-local-domain "gmail.com") (setq smtpmail-sendto-domain "gmail.com") ;; maybe (setq smtpmail-auth-credentials ; or use ~/.authinfo '(("smtp.gmail.com" 25 "usr" "pwd"))) (setq smtpmail-starttls-credentials '(("smtp.gmail.com" 25 nil nil))) (setq gnus-posting-styles '((".*" ;; default (name "Mackal li") (address "guangxuli7_at_gmail_dot_com") (signature-file "~/.sig")) ("^nnml:mail.*" ;; 被我简化了的过滤规则 ;; misc mail (signature-file "~/.sig") (name "Mackal li") (address "[email protected]")))) ;; real address ;; Update the Emacs load-path to include the path to ;; the JDE and its require packages. This code assumes ;; that you have installed the packages in the emacs/site ;; subdirectory of your home directory. (add-to-list 'load-path (expand-file-name "~/site-lisp/jdee/lisp")) (add-to-list 'load-path (expand-file-name "~/site-lisp/cedet/common")) (add-to-list 'load-path (expand-file-name "~/site-lisp/elib")) (add-to-list 'load-path (expand-file-name "~/site-lisp/color-theme")) ;;When the file locate the different loacation, the setting is different ;;more compare this two way ;;(add-to-list 'load-path (expand-file-name "~/../site-lisp/cedet/common")) ;;(load-file (expand-file-name "~/../site-lisp/cedet/common/cedet.elc")) ;;(add-to-list 'load-path (expand-file-name "~/../site-lisp/jde/lisp")) ;;(add-to-list 'load-path (expand-file-name "~/../site-lisp/elib")) ;;Add color-theme (require 'color-theme) (color-theme-initialize) (color-theme-dark-blue) (setq my-color-themes (list 'color-theme-billw 'color-theme-jsc-dark 'color-theme-sitaramv-solaris 'color-theme-resolve 'color-theme-classic 'color-theme-jonadabian-slate 'color-theme-kingsajz 'color-theme-shaman 'color-theme-subtle-blue 'color-theme-snowish 'color-theme-sitaramv-nt 'color-theme-wheat)) ;; 在这里定义你得CLASSPATH 需要的话，就修改这个文件，然后 M-x load-file (setq jde-compile-option-classpath (quote ("./" ;; "../" "http://www.cnblogs.com/" "http://www.cnblogs.com/../" "d:/Program Files/Java/jdk1.6.0_26/lib/dt.jar" "d:/Program Files/Java/jdk1.6.0_26/lib/tools.jar" ;; "~/../bin/apache-ant/lib/ant.jar" ;; "D:/mysoft/webserver/resin_3_0_21/lib/jsdk-24.jar" ;; "D:/website/cqtel.softreg.com/WEB-INF/lib/webpro2.jar" ;; "D:/website/cqtel.softreg.com/WEB-INF/lib/xfire-all-1.2.2.jar" ))) (setq jde-debugger (quote ("JDEbug"))) ;; 用JDK1.5编译如果出现乱码,加上下面一行可以解决 (setq jde-compiler (quote ("javac" ""))) (setq jde-complete-function (quote jde-complete-menu)) ;; JDK版本号和JAVA_HOME (jde-jdk-registry (quote (("1.6.0_26" . "D:\Program Files\Java\jdk1.6.0_26")))) ;; 定义 ANT_HOME (setq jde-ant-home "D:/emacs22/custom/bin/apache-ant") ;; 将 %ANT_HOME%/bin 放在你的环境变量PATH中 (setq jde-ant-program "ant") ;;(setq jde-ant-program "D:/emacs22/custom/bin/apache-ant/bin/ant") ;; Initialize CEDET. (load-file (expand-file-name "~/site-lisp/cedet/common/cedet.el")) ;; 开启Emacs时就载入Jde，这样msf-abbrev就不会出错 (require 'jde) ;; 反编译 C-x C-f 打开一个Jar包，在Class文件上按 j 就会给出反编译的代码 ;; 需要 jad.exe 和 unzip.exe 配合 (load-file "~/../lisp/decomp.el") (require 'jmaker) (require 'jjar) (require 'jsee) (setq jmaker-end-of-line-format (quote dos)) (setq jmaker-java-compiler-options "") ;; load ecb (add-to-list 'load-path (expand-file-name "~/../site-lisp/ecb")) (require 'ecb) ;; 防止CPU占用 100% (setq semantic-idle-scheduler-idle-time 432000) ;; ;;java 开发环境 (require 'font-lock) (require 'cedet) (require 'ecb) (require 'ecb-autoloads) (require 'jde) ;; ;; If you want Emacs to defer loading the JDE until you open a ;; Java file, edit the following line ;;(setq defer-loading-jde nil) ;; to read: ;; (setq defer-loading-jde t) ;; (if defer-loading-jde (progn (autoload 'jde-mode "jde" "JDE mode." t) (setq auto-mode-alist (append '(("\\.java\\'" . jde-mode)) auto-mode-alist))) (require 'jde)) ;; Sets the basic indentation for Java source files ;; to two spaces. (defun my-jde-mode-hook () (setq c-basic-offset 2)) (add-hook 'jde-mode-hook 'my-jde-mode-hook)
最新评论