;为我的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)