emacs 基本配置

折腾了 emacs 一下午， 总算 把一些基本配置 搞好了，
字典， xetex， ampl等一些 基本的软件 总算可以 很方便地使用了

;;set xetex mode in tex/latex
(add-hook 'LaTeX-mode-hook (lambda()
(add-to-list 'TeX-command-list '("XeLaTeX" "%`xelatex%(mode)%' %t" TeX-run-TeX nil t))
(setq TeX-command-default "XeLaTeX")
(setq TeX-save-query nil)
(setq TeX-show-compilation t)
))

;;set auctex
(load "auctex.el" nil t t)
(load "preview-latex.el" nil t t)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)

;; set AMPL mode
(setq load-path (cons "/home/nosper" load-path))
(setq auto-mode-alist
(cons '("\\.mod$" . ampl-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.dat$" . ampl-mode) auto-mode-alist))
(setq auto-mode-alist
(cons '("\\.ampl$" . ampl-mode) auto-mode-alist))
(setq interpreter-mode-alist
(cons '("ampl" . ampl-mode)
interpreter-mode-alist))
(autoload 'ampl-mode "ampl-mode" "Ampl editing mode." t)

;;配置字典
(require 'sdcv-mode)
(global-set-key (kbd "C-c d") 'sdcv-search)

;; 绑定 F11 到emacs窗口全屏
(global-set-key [f11]
(lambda ()
(interactive)
(x-send-client-message
nil 0 nil "_NET_WM_STATE" 32
'(2 "_NET_WM_STATE_FULLSCREEN" 0))
)
)


;; 设置背景颜色和字体颜色
(set-foreground-color "darkblue")
(set-background-color "lightblue")
;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择
(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")
;; 禁用菜单栏,F10开启或关闭菜单
(menu-bar-mode nil)

;;====================
;; 键绑定
;;====================

;; C-z 设置标记 ;; C-z: M-x iconify-or-deiconify-frame: C-z,C-x C-z
(global-set-key (kbd "C-z") 'set-mark-command)

;; F10 显示/隐藏菜单 ;; M-x menu-bar-open
;(global-set-key (kbd "F10") 'menu-bar-mode)

小试一下， emacs 确实 很强大：）O

以后继续 研究