安裝應用

mac os下安裝emacs有如下方式
* 通過homebrew安裝

brew install emacs --with-cocoa

sudo port install emacs-app

注:這裡建議於第三種方式安裝，根據以住的經驗相容性問題會少很多!

環境配置

命令環境

在.bash_profile檔案新增如下程式碼，方便使用emas開啟檔案

# for emcas
# export EDITOR="emacsclient -n "
# alias e="emacsclient -n
# /Applications/Emacs.app/Contents/MacOS/bin
 

EMACS_HOME=/Applications/Emacs.app/Contents/MacOS
# 在終端下開啟檔案,替換命令列預設的emacs
alias emacs="${EMACS_HOME}/Emacs -nw"
# GUI方式開啟檔案
alias e="${EMACS_HOME}/bin/emacsclient -n"

如下在命令列下沒有替換系統emacs的使用，用–version可以看到是系統自動的

[email protected] channel_template$ emacs --version
GNU Emacs 22.1.1
Copyright (C) 2007 Free Software Foundation, Inc.
GNU Emacs comes with
 
 ABSOLUTELY NO WARRANTY.
You may redistribute copies of Emacs
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING.

替換系統emacs的使用後（在.bash_profile中新增alias emacs=”${EMACS_HOME}/Emacs -nw” 並source .bash_profile）

[email protected] ~$ emacs --version
 

GNU Emacs 26.1
Copyright (C) 2018 Free Software Foundation, Inc.
GNU Emacs comes with ABSOLUTELY NO WARRANTY.
You may redistribute copies of GNU Emacs
under the terms of the GNU General Public License.
For more information about these matters, see the file named COPYING.

.emacs

;;==============================================================
;; base configure for common using
;;=============================================================
;; start server , 這樣在終端下主可以通過emacsclient -n 直接於GUI emacs開啟檔案
(require 'server)
(unless (server-running-p "server")
(server-start))

;; Added by Package.el.  This must come before configurations of
;; installed packages.  Don't delete this line.  If you don't want it,
;; just comment it out by adding a semicolon to the start of the line.
;; You may delete these explanatory comments.
(package-initialize)

(require 'package)
(add-to-list 'package-archives
             '("melpa-stable" . "https://stable.melpa.org/packages/"))
(package-initialize)

;; package server
;; (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
;; ("melpa-stable" . "https://stable.melpa.org/packages/")))

;; (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
;; ("melpa-stable" . "https://stable.melpa.org/packages/")
;; ("marmalade" . "http://marmalade-repo.org/packages/")
;; ("melpa" . "http://melpa.milkbox.net/packages/")))

;; background color , 蘋果綠，愛護眼睛
(when window-system
  (custom-set-faces
   '(default ((t (:background "#B4EEB4"))))))


;; copy content from elsewhere to emacs or emacs copied to other places
(setq x-select-enable-clipboard t)

;; show line number
(require 'linum)
(global-linum-mode t)

;; kill current buffer
(global-set-key (kbd "C-x k") (lambda () (interactive) (kill-buffer (current-buffer))))


;; open .emacs
(global-set-key (kbd "M-h") (lambda () (interactive) (find-file "~/.emacs")))

(blink-cursor-mode nil)

;; hide memubar,false
;;(menu-bar-mode -1)

;; hide toolbar,false
(tool-bar-mode -1)

;; show file path in window's tile
(setq frame-title-format
'("%S" (buffer-file-name "%f"
(dired-directory dired-directory "%b"))))

;; hide scroll-bar
(scroll-bar-mode nil)
(setq scroll-preserve-screen-position t)

(when window-system
  (global-hl-line-mode t)
  (set-face-background 'hl-line "#CAFF70"))

;; 成對顯示括號，但不來回彈跳
(show-paren-mode t)
(setq show-paren-style 'parentheses)

;; tab width
(standard-display-ascii ?\t "#---")
(setq default-tab-width 4)
(setq-default indent-tabs-mode nil)
(defun my-c-mode-hook ()
(c-set-style "stroustrup")
(c-set-offset 'innamespace 0))
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c++-mode-hook 'my-c-mode-hook)

;; ibuffer
(require 'ibuffer)
(global-set-key "\C-x\C-b" 'ibuffer)

;; yes /no -> y/n
(fset 'yes-or-no-p 'y-or-n-p)

;; close autosave
(setq backup-inhibited t)
;; stop creating those #autosave# files
(setq auto-save-default nil)

;; ido
(require 'ido)
(ido-mode t)

;; 字型設定,使用等寬字型
(dolist (charset '(kana han symbol cjk-misc bopomofo))
  (set-fontset-font (frame-parameter nil 'font)
                    charset
                    (font-spec :family "STHeiti" :size 12)))
(set-default-font "Bitstream Vera Sans Mono 12")

;;======================================================
;; 自定義功能或函式
;;======================================================
;; 換行格式轉化 dos to unix
(defun dos2unix ()
  "Automate M-% C-q C-m RET RET"
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (while (search-forward (string ?\C-m)  nil t)
      (replace-match "" nil t))))

;; using pgup,pgDn scroll
(defun window-half-height ()
(max 1 (/ (1- (window-height (selected-window))) 2)))
(defun scroll-up-half ()
(interactive)
(scroll-up (window-half-height)))
(defun scroll-down-half ()
(interactive)
(scroll-down (window-half-height)))
(global-set-key [next] 'scroll-up-half)
(global-set-key [prior] 'scroll-down-half)

;; occur
(defun isearch-occur ()
"*Invoke `occur' from within isearch."
(interactive)
(let ((case-fold-search isearch-case-fold-search))
(occur (if isearch-regexp isearch-string (regexp-quote isearch-string)))))

(define-key isearch-mode-map (kbd "C-o") 'isearch-occur)

外掛安裝

使用包管理器安裝外掛,推薦如下外掛
* ace-jump-mode : 方便游標跳轉的外掛
* smex: 一個”M-x”快捷鍵的增強工具，它能夠使得在Emacs中呼叫各種命令更為方便，能更智慧地對命令進行補全，還能根據使用者呼叫命令的頻率來猜測使用者可能會執行的命令
* ag : the silver searcher搜尋的前端

外掛安裝步驟

1.列出外掛
使用package-list-pacgages函式顯示列外掛列表

M-X : package-list-packages

2.選擇外掛

3.安裝外掛

外掛配置

在.emacs檔案中新增如下配置

;;======================================================
;; plugin settings , 外掛配置
;;======================================================

;;==================
;; smex是一個"M-x"快捷鍵的增強工具，它能夠使得在Emacs中呼叫各種命令更為方便，能更智慧地對命令進行補全，還能根據使用者呼叫命令的頻率來猜測使用者可能會執行的命令
;;==================
(smex-initialize)
(global-set-key (kbd "M-x") 'smex)
;;==================
;; ace-jump, 方便游標跳轉的外掛
;;=================
(define-key global-map (kbd "C-c SPC") 'ace-jump-mode)
(setq ace-jump-mode-scope 'window)

;;==================
;; ag , the silver searcher搜尋的前端
;;==================
(setq ag-highlight-search t)
;; (setq ag-reuse-buffers t)
;; Its value is ("--smart-case" "--nogroup" "--column" "--")
(setq ag-arguments (list "--ignore" "TAGS" "--smart-case" "--nogroup" "--column" "--"))
(global-set-key (kbd "C-c f") 'ag-project-at-point)