;为我的emacs配置主题色彩 (color-theme-色彩名称)    (add-to-list 'load-path "~/elisp/color-theme")  (require 'color-theme)  (color-theme-initialize)    (color-theme-oswald)        ;preview-latex  (add-to-list 'load-path  "~/Downloads/auctex-11.86/preview")  (require 'preview)    ; yasnippet      (add-to-list 'load-path           "~/.emacs.d/plugins/yasnippet")  (require 'yasnippet)  (yas/initialize)  (yas/load-directory "~/.emacs.d/plugins/yasnippet/snippets")  (yas/minor-mode-on)    ; this breaks things; use the below advise solution instead  ;(add-hook 'org-mode-hook  ;       (lambda ()  ;         (org-set-local 'yas/trigger-key [tab])  ;         (define-key yas/keymap [tab] 'yas/next-field-group)))    ; when cdlatex-mode or org-cdlatex-mode are loaded, we need to change  ; the behaviour of yas/fallback to call cdlatex-tab    (defun yas/advise-indent-function (function-symbol)    (eval `(defadvice ,function-symbol (around yas/try-expand-first activate)             ,(format               "Try to expand a snippet before point, then call `%s' as usual"               function-symbol)             (let ((yas/fallback-behavior nil))               (unless (and (interactive-p)                            (yas/expand))                 ad-do-it)))))    (yas/advise-indent-function 'cdlatex-tab)  (yas/advise-indent-function 'org-cycle)  (yas/advise-indent-function 'org-try-cdlatex-tab)  (add-hook 'org-mode-hook 'yas/minor-mode-on)            ;cdlatex   (add-to-list 'load-path  "~/elisp")  (require 'cdlatex)      ;fontsize  (set-face-attribute 'default nil :height 150)    ;fullscreen  (global-set-key [f11]'my-fullscreen)  (defun my-fullscreen ()    (interactive)    (x-send-client-message     nil 0 nil "_NET_WM_STATE" 32     '(2 "_NET_WM_STATE_FULLSCREEN" 0))  )  (defun my-maximized ()    (interactive)    (x-send-client-message     nil 0 nil "_NET_WM_STATE" 32     '(1 "_NET_WM_STATE_MAXIMIZED_HORZ" 0))    (interactive)    (x-send-client-message     nil 0 nil "_NET_WM_STATE" 32     '(1 "_NET_WM_STATE_MAXIMIZED_VERT" 0)))  (my-maximized)      ;;关闭起动时的那个“开机画面”  (setq inhibit-startup-message t)      ;不要滚动栏  (scroll-bar-mode nil)      ;改变emacs标题栏的标题  (setq frame-title-format "%b_Luqing Ye")    ;让M-w 能复制内容到剪切板  (setq x-select-enable-clipboard t)    ;当指针到一个括号时，自动显示所匹配的另一个括号  (show-paren-mode 1)    ;ibus  (add-to-list 'load-path "~/.emacs.d/ibus/")  (require 'ibus)  (add-hook 'after-init-hook 'ibus-mode-on)  (global-set-key (kbd "C-=") 'ibus-toggle) ;;这里既是绑定上面设置的C+=快捷键到ibus中  (ibus-define-common-key ?\C-\s nil)  ;; Use C-/ for Undo command  (ibus-define-common-key ?\C-/ nil)  ;; Change cursor color depending on IBus status  (setq ibus-cursor-color '("red" "black" "green"))        ;auctex setting,from  http://www.xemacs.org/Documentation/packages/html/auctex_4.html      (require 'tex-site)  (setq TeX-auto-save t)  (setq TeX-parse-self t)    ;为了使用 AucTeX 方便，为 LaTeX 模式 hook 自动换行，数学公式，reftex 和显示行号的功能  (mapc (lambda (mode)        (add-hook 'LaTeX-mode-hook mode))        (list 'auto-fill-mode              'cdlatex-mode              'LaTeX-math-mode              'turn-on-reftex              'linum-mode))              (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.   '(show-paren-mode t)   '(tool-bar-mode nil))  (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.   )            (setq TeX-save-query nil) ;;autosave latex file before compiling                ;;1.This will make sure org gets loaded, and some basic global key combinations are defined  ;;2.If you've configured your Emacs initialization file as suggested below, Emacs should enter org-mode whenever you visit or create a file with the extension ".org".  (require 'org-install)  (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))  (define-key global-map "\C-cl" 'org-store-link)  (define-key global-map "\C-ca" 'org-agenda)  (setq org-log-done t)          ;;org mode自动换行  (add-hook 'org-mode-hook      (lambda () (setq truncate-lines nil)))                (add-to-list 'load-path "~/elisp")  (require 'cdlatex)  (require 'texmathp)  ;load org-cdlatex-mode for all org files  (add-hook 'org-mode-hook 'turn-on-org-cdlatex)            ;; all backups goto ~/.backups instead in the current directory  (setq backup-directory-alist (quote (("." . "~/.backups"))))      ;use pdflatex  (setq latex-run-command "pdflatex")      ;generate pdf when complile.  (setq TeX-PDF-mode t)(defun replace-matching-parens ()  (interactive)  (save-excursion    (let ((end-point (point)))      (backward-list)      (let ((start-point (point)))        (goto-char end-point)        (re-search-backward ")" nil t)        (replace-match " \\\\right)" nil nil)        (goto-char start-point)        (re-search-forward "(" nil t)        (replace-match "\\\\left( " nil nil)))));Asymptote(add-to-list 'load-path "/usr/share/asymptote")(autoload 'asy-mode "asy-mode.el" "Asymptote major mode." t)(autoload 'lasy-mode "asy-mode.el" "hybrid Asymptote/Latex major mode." t)(autoload 'asy-insinuate-latex "asy-mode.el" "Asymptote insinuate LaTeX." t)(add-to-list 'auto-mode-alist '("\\.asy$" . asy-mode));two-mode-mode  (add-to-list 'load-path  "~/elisp")  (require 'two-mode-mode)