我的emacs简易配置

;;------------语言环境字符集设置(utf-8)-------------

(set-language-environment 'Chinese-GB)
(set-keyboard-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-selection-coding-system 'utf-8)
(modify-coding-system-alist 'process "*" 'utf-8)
(setq default-process-coding-system '(utf-8 . utf-8))
(setq-default pathname-coding-system 'utf-8)
(set-file-name-coding-system 'utf-8)
(setq ansi-color-for-comint-mode t)
;;处理shell-mode乱码,好像没作用

;;------语言环境字符集设置结束------------

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

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

;;启动自动最大化(数据自己调整，注意格式，如(top . 0)，圆点前后都要留有空格)
;;(setq initial-frame-alist '((top . 0) (left . 0) (width . 142) (height . 49)))


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

;;------------窗口界面设置结束-----------------


;;-------------方便编程操作设置----------------


;;把c语言风格设置为k&r风格
(add-hook 'c-mode-hook
'(lambda ()
(c-set-style "k&r")))

(autoload 'css-mode "css-mode" "CSS editing mode" t)
;;css-mode.el编辑css文件

(autoload 'htmlize-buffer "htmlize" "HTMLize mode" t)
;;把buffer的内容连同颜色转为html格式


(setq auto-mode-alist
      ;; 将文件模式和文件后缀关联起来
      (append '(("\.py\'" . python-mode)
                ("\.s?html?\'" . html-helper-mode)
                ("\.asp\'" . html-helper-mode)
                ("\.phtml\'" . html-helper-mode)
                ("\.css\'" . css-mode))
              auto-mode-alist))

(defun my-compile()
    (interactive)
    (save-some-buffers t)
    (let((file(file-name-nondirectory buffer-file-name)))
      (compile(format "g++ %s -g -o %s" file(file-name-sans-extension file))))
)


(global-linum-mode t)
(global-set-key [f9] 'my-compile)


(set-frame-parameter (selected-frame) 'alpha '(85  50))
 (add-to-list 'default-frame-alist '(alpha  (85  50)))

 (defun toggle-transparency ()
   (interactive)
   (let ((alpha (frame-parameter nil 'alpha)))
     (set-frame-parameter
      nil 'alpha
      (if (eql (cond ((numberp alpha) alpha)
                     ((numberp (cdr alpha)) (cdr alpha))
                     ;; Also handle undocumented ( ) form.
                     ((numberp (cadr alpha)) (cadr alpha)))
               100)
          '(85  50) '(100  100)))))
 (global-set-key (kbd "C-c t") 'toggle-transparency)
 
 
 (setq c-default-style
      '((java-mode . "java")(other . "awk")))
      
;;------------方便编程操作设置结束--------------------
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(cua-mode t nil (cua-base)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )

;;在标题栏显示buffer的名字(默认不显示)
(setq frame-title-format "%b@emacs")

;;显示匹配括号
(show-paren-mode t)
(setq show-paren-style 'parentheses)

;;全选
(global-set-key (kbd "C-a") 'mark-whole-buffer)

;滚动页面时比较舒服，不要整页的滚动
(setq     scroll-step 1
scroll-margin 3
scroll-conservatively 10000)


;;4格缩进
(setq-default indent-tabs-mode nil) ; tab 改为插入空格
(setq c-basic-offset 4) ; c c++ 缩进4个空格
(setq c-default-style "linux"); 没有这个 { } 就会瞎搞
(setq default-tab-width 4)

;;其中最重要的一段:[F9]编译
(defun my-compile()
    (interactive)
    (save-some-buffers t)
    (let((file(file-name-nondirectory buffer-file-name)))
      (compile(format "g++ %s -g -o %s" file(file-name-sans-extension file))))
)


(global-linum-mode t)
(global-set-key [f9] 'my-compile)