;;========================================
;; 外观设置================================
;;========================================

;;禁用工具栏
(tool-bar-mode nil)

;;禁用菜单栏，F10 开启关闭菜单
(menu-bar-mode nil)

;;禁用滚动栏，用鼠标滚轮代替
;;(scroll-bar-mode nil)

;;禁用启动画面
(setq inhibit-startup-message t)

;;尺寸
(setq initial-frame-alist '( (width . 90) (height . 35)))  

;;~~~~~~~~~~~~~~~~~~~~
;; 颜色设置
;;~~~~~~~~~~~~~~~~~~~~

;; 指针颜色
(set-cursor-color "white")
;; 鼠标颜色
(set-mouse-color "blue")
;; 背景和字体颜色
(set-foreground-color "lightblue")
(set-background-color "black")
(set-border-color "lightgreen")

;; 语法高亮显示，区域选择，二次选择 
;;前景和背景色
(set-face-foreground 'highlight "red")
(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")

;; 字体设置   你的系统中很可能没有YaHeiConsolas,那么你就选择一个你喜欢的字体,代替它写在下面.
(set-default-font "YaHeiConsolas")    







;;========================================
;; 缓冲区==================================
;;========================================
;;设定行距
(setq default-line-spacing 0)

;;页宽 
(setq default-fill-column 90)

;;缺省模式 text-mode
(setq default-major-mode 'text-mode)

;;设置删除纪录
(setq kill-ring-max 200)

;;以空行结束
(setq require-final-newline t) 


;;语法加亮
(global-font-lock-mode t)

;;高亮显示区域选择
(transient-mark-mode t)

;;页面平滑滚动， scroll-margin 5 靠近屏幕边沿3行时开始滚动，可以很好的看到上下文。
(setq scroll-margin 5
      scroll-conservatively 10000)

;高亮显示成对括号，但不来回弹跳
(show-paren-mode t)
(setq show-paren-style 'parentheses)


;;鼠标指针规避光标
;(mouse-avoidance-mode 'animate)

;;粘贴于光标处，而不是鼠标指针处
(setq mouse-yank-at-point t)

;;自动补齐设置                              按下 M - / 键(一般而言就是Alt + /),emacs会帮你补全你正在打的关键字
(global-set-key [(meta ?/)] 'hippie-expand)
(setq hippie-expand-try-functions-list 
      '(try-expand-dabbrev
    try-expand-dabbrev-visible
    try-expand-dabbrev-all-buffers
    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))



;;====================================
;;插件拓展============================
;;====================================
;;这个部分是特别值得注意的,因为如果你没有下载下面的插件,emacs会出现加载异常.
    ;;为了避免这种情况,此文的下面我提供了插件的压缩包
;;显示行号
(require 'linum)
(setq linum-format "%3d ")
(add-hook 'find-file-hooks (lambda () (linum-mode 1))) ;;对所有文件生效

;;这个插件好像拿来补全用的,不过不是很强大
;;yasnippet-bundle
(require 'yasnippet-bundle)







;;===================================
;;自定义一些快捷键====================
;;===================================
    ;;下面是跳行的快捷键,按下Ctrl + j ,然后输入对应的行,再按回车即可
(global-set-key (kbd "C-j")'goto-line) 

;;你也可以在这里定义其它的快捷键




;;===================================
;;设置编译器==========================
;;===================================
;;(setq compile-command (concat "D:/Dev-Cpp/bin/g++ -g " "\"" buffer-file-name "\"")) 
(global-set-key (kbd "<f9>") 'smart-compile)
(defun smart-compile()

;;  "比较智能的C/C++编译命令
;;如果当前目录有makefile则用make -k编译，否则，如果是
;;处于c-mode，就用gcc -Wall编译，如果是c++-mode就用 g++ -Wall编译"
  (interactive)
  ;; 查找 Makefile
  (let ((candidate-make-file-name '("makefile" "Makefile" "GNUmakefile"))
        (command nil))
    (if (not (null
              (find t candidate-make-file-name :key
                    '(lambda (f) (file-readable-p f)))))
        (setq command "make -k ")
        ;; 没有找到 Makefile ，查看当前 mode 是否是已知的可编译的模式
        (if (null (buffer-file-name (current-buffer)))
            (message "Buffer not attached to a file, won't compile!")
            (if (eq major-mode 'c-mode)
                (setq command
                      (concat "D:/Dev-Cpp/bin/gcc.exe -Wall -o "      ;;你要明确知道自己的编译器在哪里,
                              (file-name-sans-extension                          ;;这样,用你的gcc.exe的地址代替这里的D:/Dev-Cpp/bin/gcc.exe   
                               (file-name-nondirectory buffer-file-name)) ;;注意,这里的路径的斜杠和vista的习惯相反,你要注意修改
                              " "
                              (file-name-nondirectory buffer-file-name)
                              " -g -lm "))
              (if (eq major-mode 'c++-mode)
                  (setq command
                        (concat "D:/Dev-Cpp/bin/g++.exe -Wall -o " ;;还有这里的g++,也同gcc一样...
                                (file-name-sans-extension
                                 (file-name-nondirectory buffer-file-name))
                                " "
                                (file-name-nondirectory buffer-file-name)
                                " -g -lm "))
                (message "Unknow mode, won't compile!")))))
    (if (not (null command))
        (let ((command (read-from-minibuffer "Compile command: " command)))
          (compile command)))))

;;=====================================
;;代码风格==============================
;;=====================================
;; C/C++/Java mode
(defun my-c-mode-hook()
;; 将回车代替C-j的功能，换行的同时对齐
(define-key c-mode-map [return] 'newline-and-indent)
(interactive)
;; 设置C程序的对齐风格
;; (c-set-style "K&R")
;; 自动模式，在此种模式下当你键入{时，会自动根据你设置的对齐风格对齐
;; (c-toggle-auto-state)
;; 此模式下，当按Backspace时会删除最多的空格
(c-toggle-hungry-state)
;; TAB键的宽度设置为8
(setq c-basic-offset 4)
;; 在菜单中加入当前Buffer的函数索引
(imenu-add-menubar-index)
;; 在状态条上显示当前光标在哪个函数体内部
(which-function-mode)
)
(defun my-c++-mode-hook()
(define-key c++-mode-map [return] 'newline-and-indent)
(interactive)
(c-set-style "stroustrup")
(c-toggle-auto-state)
(c-toggle-hungry-state)
(setq c-basic-offset 4)
(imenu-add-menubar-index)
(which-function-mode)
)
(defun my-java-mode()
(define-key java-mode-map [return] 'newline-and-indent)
(interactive)
(c-set-style "java")
(c-toggle-auto-state)
(c-toggle-hungry-state)
(setq c-basic-offset 4)
(imenu-add-menubar-index)
(which-function-mode)
)
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c++-mode-hook 'my-c++-mode-hook)
(add-hook 'java-mode-hook 'my-java-mode)

Chen Jiecao 2009-08-08 03:35 发表评论

Chen Jiecao 2009-07-16 21:58 发表评论

Chen Jiecao 2009-07-13 19:45 发表评论