• .emacs


     ;为我的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)
    
  • 相关阅读:
    win10 uwp 装机必备应用 含源代码
    win10 uwp 装机必备应用 含源代码
    win10 uwp clone
    win10 uwp clone
    win10 输入法禁用IME
    win10 输入法禁用IME
    win10 输入法禁用IME
    查看SQL运行时间
    [学习笔记]三元环
    数据库范式
  • 原文地址:https://www.cnblogs.com/yeluqing/p/3827670.html
Copyright © 2020-2023  润新知