emacs wp config.php,我的emacs配置文件

;; init elpa

(setq package-archives '(("gnu" . "http://elpa.zilongshanren.com/gnu/")

("melpa" . "http://elpa.zilongshanren.com/melpa/")

("org" . "http://elpa.zilongshanren.com/org/")))

(defun require-package (package &optional min-version no-fresh)

(if (package-installed-p package min-version)

t

(if (or (assoc package package-archive-contents) no-fresh)

(package-install package)

(progn

(package-refresh-contents)

(require-package package min-version t)))))

(package-initialize)

;; package install

(require-package 'smartparens)

(require-package 'helm-dash)

(require-package 'company)

(require-package 'dumb-jump)

(require-package 'web-mode)

(require-package 'emmet-mode)

(require-package 'moe-theme)

(require-package 'helm)

(require-package 'helm-ls-git)

(require-package 'magit)

(require-package 'mmm-mode)

(require-package 'js2-mode)

(require-package 'whitespace-cleanup-mode)

(require-package 'flycheck)

(require-package 'exec-path-from-shell)

(require-package 'find-file-in-project)

(require-package 'js-auto-beautify)

(require-package 'avy)

(require-package 'ag)

(require-package 'projectile)

(require-package 'company-tern)

(require-package 'json-mode)

(require-package 'js-doc)

;; global config

(require 'find-file-in-project)

(require 'projectile)

(setq projectile-enable-caching t)

(setq projectile-require-project-root nil)

(require 'whitespace-cleanup-mode)

(whitespace-cleanup-mode)

(require 'smartparens-config)

(smartparens-mode t)

(smartparens-strict-mode)

(require 'helm-dash)

(setq helm-dash-min-length 2)

(setq helm-dash-browser-funnc 'browse-url)

(setq helm-dash-common-docsets '("C++" "JavaScript" "HTML" "jQuery"))

(require 'company)

(require 'company-tern)

(add-hook 'after-init-hook 'global-company-mode)

(with-eval-after-load 'company

(define-key company-active-map (kbd "M-n") nil)

(define-key company-active-map (kbd "M-p") nil)

(define-key company-active-map (kbd "C-n") #'company-select-next)

(define-key company-active-map (kbd "") #'company-select-next)

(define-key company-active-map (kbd "C-p") #'company-select-previous)

(setq company-dabbrev-downcase nil)

(add-to-list 'company-backends 'company-tern))

(require 'js2-mode)

(require 'js2-refactor)

(require 'web-mode)

(require 'emmet-mode)

(add-hook 'web-mode-hook 'emmet-mode)

(add-hook 'web-mode-hook #'js2-refactor-mode)

(add-hook 'web-mode-hook 'js-auto-beautify-mode)

(add-hook 'web-mode-hook (lambda ()

(define-key web-mode-map "\C-c i" 'js-doc-insert-function-doc)))

(require 'json-mode)

(add-hook 'json-mode-hook 'flycheck-mode)

(require 'mmm-mode)

(require 'dumb-jump)

(dumb-jump-mode)

(require 'moe-theme)

(setq moe-theme-highlight-buffer-id t)

(moe-theme-set-color 'cyan)

(moe-dark)

(require 'helm-config)

(helm-mode 1)

(define-key helm-find-files-map (kbd "TAB") 'helm-execute-persistent-action)

(define-key helm-read-file-map (kbd "TAB") 'helm-execute-persistent-action)

;;; web-mode

(setq web-mode-content-types-alist

'(("json" . "\\.json")

("jsx" . ".\\.js[x]?\\'")))

(defun my-web-mode-hook ()

(setq web-mode-markup-indent-offset 2)

(setq web-mode-css-indent-offset 2)

(setq web-mode-code-indent-offset 2))

(add-hook 'web-mode-hook 'my-web-mode-hook)

(add-hook 'web-mode-hook 'smartparens-mode)

;;; react-mode

(setq emmet-expand-jsx-className? t)

;;; lint tool

(require 'flycheck)

(require 'exec-path-from-shell)

(setq-default flycheck-disabled-checkers

(append flycheck-disabled-checkers '(javascript-jshint)))

(add-hook 'web-mode-hook 'flycheck-mode)

(flycheck-add-mode 'javascript-eslint 'web-mode)

(setq-default flycheck-temp-prefix ".flycheck")

(setq-default flycheck-disable-checkers

(append flycheck-disabled-checkers '(json-jsonlist)))

(when (memq window-system '(mac ns))

(exec-path-from-shell-initialize))

;; file association

(add-to-list 'auto-mode-alist '("\.jsx" . web-mode))

(add-to-list 'auto-mode-alist '("\.html" . web-mode))

(add-to-list 'auto-mode-alist '("\.css" .web-mode))

(add-to-list 'auto-mode-alist '("\.js" . web-mode))

(add-to-list 'auto-mode-alist '("\.json" . json-mode))

;; key binging

(global-set-key (kbd "C-c C-v q") 'helm-dash-at-point)

(global-set-key (kbd "C-c C-v a") 'helm-dash-activate-docset)

(global-set-key (kbd "C-j") 'emmet-expand-line)

(global-set-key (kbd "C-^") 'helm-ls-git-ls)

(global-set-key (kbd "C-c g s") 'magit-status)

(global-set-key (kbd "C-c g p u") 'magit-push-current)

(global-set-key (kbd "C-c g p l") 'magit-pull)

(global-set-key (kbd "C-c g l") 'magit-log)

(global-set-key (kbd "C-x C-f") 'helm-find-files)

(global-set-key (kbd "M-1") 'avy-goto-char)

(global-set-key (kbd "M-2") 'avy-goto-char-2)

(global-set-key (kbd "M-l") 'avy-goto-line)

(global-set-key (kbd "C-c a") 'org-agenda)

(global-set-key (kbd "C-c c") 'org-capture)

(global-set-key (kbd "C-x C-b") 'helm-buffers-list)

(global-set-key (kbd "C-c C-f") 'find-file-in-project)

(setq backup-by-copying t

backup-directory-alist

'(("." . "~/.saves"))

delete-old-versions t

kept-new-versions 6

kept-old-versions 2

version-control t)

;;; org-mode custom config

(setq org-clock-into-drawer t)

(setq org-agenda-include-diary t)

;;; emacs custom

(show-paren-mode 1)

(setq-default indent-tabs-mode nil)

(setq-default tab-width 2)

(setq js-indent-level 2)

(setq standard-indent 2)

(defun copy-from-osx ()

(shell-command-to-string "pbpaste"))

(defun paste-to-osx (text &optional push)

(let ((process-connection-type nil))

(let ((proc (start-process "pbcopy" "*Messages*" "pbcopy")))

(process-send-string proc text)

(process-send-eof proc))))

(setq interprogram-cut-function 'paste-to-osx)

(setq interprogram-paste-function 'copy-from-osx)