iPhone开发技巧之环境篇（1）--- 使用Emacs开发iPhone应用程序

1
2

(add-to-list 'auto-mode-alist '("//.mm?$" . objc-mode))
(add-to-list 'auto-mode-alist '("//.h$" . objc-mode))

1
2
3

(add-to-list 'magic-mode-alist '("//(.//|/n//)*/n@implementation" . objc-mode))
(add-to-list 'magic-mode-alist '("//(.//|/n//)*/n@interface" . objc-mode))
(add-to-list 'magic-mode-alist '("//(.//|/n//)*/n@protocol" . objc-mode))

1

xcodebuild -configuration Debug -sdk iphonesimulator3.1.2

1
2
3
4
5
6

tell application "Xcode" to activate
tell application "System Events"
tell process "Xcode"
key code 36 using {command down}
end tell
end tell

1
2
3
4
5
6
7
8
9
10
11
12

(defun xcode:buildandrun ()
(interactive)
(do-applescript
(format
(concat
"tell application /"Xcode/" to activate /r"
"tell application /"System Events/" /r"
"     tell process /"Xcode/" /r"
"          key code 36 using {command down} /r"
"    end tell /r"
"end tell /r"
))))

1
2
3
4

(add-hook 'objc-mode-hook
(lambda ()
(define-key objc-mode-map (kbd "C-c C-r") 'xcode:buildandrun)
))

1

/Developer/usr/bin/docsetutil search /Developer/Platforms/iPhoneOS.platform/Developer/Documentation/DocSets/com.apple.adc.documentation.AppleiPhone3_1.iPhoneLibrary.docset -query 'word'

1
2
3
4
5
6
7
8
9
10
11
12
13

curl -O http://www.hpl.hp.com/personal/Hans_Boehm/gc/gc_source/gc.tar.gz tar xvfz gc.tar.gz
cd gc
./configure
make
sudo make install

cd ..

tar xvfz w3m-0.5.2.tar.gz
./configure
make
sudo make install

1
2
3
4
5
6
7

cvs -d :pserver:anonymous@cvs.namazu.org:/storage/cvsroot co emacs-w3m
cd emacs-w3m
autoconf
./configure --with-lispdir=~/.emacs.d/lisp/w3m --datarootdir=~/.emacs.d/share --with-icondir=~/.emacs.d/share/icon
make
make install
make install-icons

1
2
3
4
5

cd ~/.emacs.d/lisp
curl -O http://www.emacswiki.org/emacs/download/anything.el curl -O http://github.com/sakito/emacs-xcode-document-viewer/raw/master/xcode-document-viewer.el # 这里是原始版
# curl -O http://github.com/imakado/emacs-xcode-document-viewer/raw/master/xcode-document-viewer.el[/code] 

1
2
3
4
5
6
7
8
9

;; 自动加载 emacs-w3m
(autoload 'w3m "w3m" "Interface for w3m on Emacs." t)
(require 'xcode-document-viewer)
(setq xcdoc:document-path "/Developer/Platforms/iPhoneOS.platform/Developer/Documentation/DocSets/com.apple.adc.documentation.AppleiPhone3_1.iPhoneLibrary.docset")
(setq xcdoc:open-w3m-other-buffer t)
(add-hook 'objc-mode-hook
(lambda ()
;; 用 C-c w 来检索文档
(define-key objc-mode-map (kbd "C-c w") 'xcdoc:ask-search)))

1
2
3
4
5
6
7
8

(ffap-bindings)
;; 设定搜索的路径 ffap-c-path
;; (setq ffap-c-path
;;     '("/usr/include" "/usr/local/include"))
;; 如果是新文件要确认
(setq ffap-newfile-prompt t)
;; ffap-kpathsea-expand-path 展开路径的深度
(setq ffap-kpathsea-depth 5)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

(setq ff-other-file-alist
'(("//.mm?$" (".h"))
("//.cc$"  (".hh" ".h"))
("//.hh$"  (".cc" ".C"))

("//.c$"   (".h"))
("//.h$"   (".c" ".cc" ".C" ".CC" ".cxx" ".cpp" ".m" ".mm"))

("//.C$"   (".H"  ".hh" ".h"))
("//.H$"   (".C"  ".CC"))

("//.CC$"  (".HH" ".H"  ".hh" ".h"))
("//.HH$"  (".CC"))

("//.cxx$" (".hh" ".h"))
("//.cpp$" (".hpp" ".hh" ".h"))

("//.hpp$" (".cpp" ".c"))))
(add-hook 'objc-mode-hook
(lambda ()
(define-key c-mode-base-map (kbd "C-c o") 'ff-find-other-file)
))

1
2
3
4
5
6
7
8
9
10

cd ~/.emacs.d
mkdir lisp
cd lisp
curl -O http://github.com/m2ym/auto-complete/raw/master/auto-complete.el curl -O http://github.com/m2ym/auto-complete/raw/master/auto-complete-config.el curl -O http://github.com/m2ym/auto-complete/raw/master/popup.el curl -O http://github.com/m2ym/auto-complete/raw/master/fuzzy.el curl -O http://nschum.de/src/emacs/company-mode/company-0.4.3.tar.bz2 curl -O http://github.com/buzztaiki/auto-complete/raw/master/ac-company.el tar xvfj company-0.4.3.tar.bz2

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

;; load-path 路径
(let ((default-directory (expand-file-name "~/.emacs.d/lisp")))
(add-to-list 'load-path default-directory)
(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
(normal-top-level-add-subdirs-to-load-path)))

;; 加载
(require 'auto-complete)
(require 'auto-complete-config)
(require 'ac-company)

(global-auto-complete-mode t)
;; ac-company 中设置 company-xcode 有效
(ac-company-define-source ac-source-company-xcode company-xcode)
;; 设定 objc-mode 中补全 ac-mode
(setq ac-modes (append ac-modes '(objc-mode)))
;; hook
(add-hook 'objc-mode-hook
(lambda ()
(define-key objc-mode-map (kbd "/t") 'ac-complete)
;; 使用 XCode 的补全功能有效
(push 'ac-source-company-xcode ac-sources)
;; C++ 关键词补全
(push 'ac-source-c++-keywords ac-sources)
))
;; 补全窗口中的热键
(define-key ac-completing-map (kbd "C-n") 'ac-next)
(define-key ac-completing-map (kbd "C-p") 'ac-previous)
(define-key ac-completing-map (kbd "M-/") 'ac-stop)
;; 是否自动启动补全功能
(setq ac-auto-start nil)
;; 启动热键
(ac-set-trigger-key "TAB")
;; 候補的最大件数（缺省 10件）
(setq ac-candidate-max 20)

1
2
3
4

cd ~/.emacs.d
mkdir -p share/tags
cd share/tags
find /Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS${VER}.sdk/System/Library/Frameworks -name "*.h" | xargs etags -f objc.TAGS -l objc

1
2
3
4
5
6
7
8
9
10
11

#!/bin/sh
s="/t "
S="[$s]*"
w="_a-zA-Z0-9"
CN="[A-Z][$w]*"
NM="[$w][$w]*"

SDK="/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS${VER}.sdk/System/Library/Frameworks"

find $SDK -name "*.h" | xargs etags -a --declarations -r "/$S[-+]$S(/($S$NM/)/{1,3/}$S/**$S)?$S/($NM/)$S[:;]//2/" -f frm.tags
sed "/^@class/d" frm.tags > objc.TAGS

1
2

cd ~/.emacs.d/lisp
curl -O http://bitbucket.org/sakito/dot.emacs.d/raw/tip/local-lisp/etags-table.el[/code] 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

;; etags-table 有效
(require 'etags-table)
(add-to-list  'etags-table-alist
'("//.[mh]$" "~/.emacs.d/share/tags/objc.TAGS"))
;; auto-complete 中待确认的 etags 参数
;; 3文字以上时，补全功能有效
(defvar ac-source-etags
'((candidates . (lambda ()
(all-completions ac-target (tags-completion-table))))
(candidate-face . ac-candidate-face)
(selection-face . ac-selection-face)
(requires . 3))
"etags source")
(add-hook 'objc-mode-hook
(lambda ()
(push 'ac-source-etags ac-sources)))

1
2
3
4

cd ~/.emacs.d/lisp
curl -O http://yasnippet.googlecode.com/files/yasnippet-0.6.1c.tar.bz2 tar xvfj yasnippet-0.6.1c.tar.bz2
cd yasnippet-0.6.1c

1
2
3
4
5
6
7
8
9
10
11
12
13

(let ((default-directory (expand-file-name "~/.emacs.d/lisp")))
(add-to-list 'load-path default-directory)
(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
(normal-top-level-add-subdirs-to-load-path)))

(require 'yasnippet)
;; 设置snippet的位置
(setq yas/root-directory "~/.emacs.d/lisp/yasnippet-0.6.1c/snippets")
;; 不要菜单
(setq yas/use-menu nil)
;; 初始化
(yas/initialize)
(yas/load-directory yas/root-directory)

1
2
3
4

;; 设置复数的 snippets 路径
(setq yas/root-directory '("~/.emacs.d/lisp/yasnippet-0.6.1c/snippets"
"~/.emacs.d/etc/snippets"))
(mapc 'yas/load-directory yas/root-directory)

1
2
3
4
5
6
7
8
9
10
11
12

# -*- mode: snippet -*-
#name : @try { ... } @catch { ... } @finally { ... }
# --
@try {
$1
}
@catch (NSException * e) {
$2
}
@finally {
$3
}$0

1
2
3
4
5
6
7
8
9
10
11
12
13
14

(add-hook 'c-mode-common-hook
'(lambda()
;; 插入对称的括号
(make-variable-buffer-local 'skeleton-pair)
(make-variable-buffer-local 'skeleton-pair-on-word)
(setq skeleton-pair-on-word t)
(setq skeleton-pair t)
(make-variable-buffer-local 'skeleton-pair-alist)
(local-set-key (kbd "(") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "[") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "{") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "`") 'skeleton-pair-insert-maybe)
(local-set-key (kbd "/"") 'skeleton-pair-insert-maybe)
))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

(defun ik:insert-eol (s)
(interactive)
(lexical-let ((s s))
(smartchr-make-struct
:insert-fn (lambda ()
(save-excursion
(goto-char (point-at-eol))
(when (not (string= (char-to-string (preceding-char)) s))
(insert s))))
:cleanup-fn (lambda ()
(save-excursion
(goto-char (point-at-eol))
(delete-backward-char (length s)))))))

(defun ik:insert-semicolon-eol ()
(ik:insert-eol ";"))

(defun smartchr-custom-keybindings ()
(local-set-key (kbd "=") (smartchr '(" = " " == "  "=")))
(local-set-key (kbd "(") (smartchr '("(`!!')" "(")))
(local-set-key (kbd "[") (smartchr '("[`!!']" "[ [`!!'] ]" "[")))
(local-set-key (kbd "{") (smartchr '("{/n`!!'/n}" "{`!!'}" "{")))
(local-set-key (kbd "`") (smartchr '("/``!!''" "/`")))
(local-set-key (kbd "/"") (smartchr '("/"`!!'/"" "/"")))
(local-set-key (kbd ">") (smartchr '(">" " => " " => '`!!''" " => /"`!!'/"")))
(lobal-set-key (kbd "F") (smartchr '("F" "$" "$_" "$_->" "@$")))
(lobal-set-key (kbd "j") (smartchr '("j" ik:insert-semicolon-eol)))
)

(defun smartchr-custom-keybindings-objc ()
(local-set-key (kbd "@") (smartchr '("@/"`!!'/"" "@")))
)

(add-hook 'c-mode-common-hook 'smartchr-custom-keybindings)
(add-hook 'objc-mode-hook 'smartchr-custom-keybindings-objc)

1
2
3
4
5
6

(add-hook 'c-mode-common-hook
'(lambda()
(c-set-style "cc-mode")))

(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)

1
2

(setq cua-enable-cua-keys nil)
(cua-mode t)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

(require 'flymake)
(defvar xcode:gccver "4.0")
(defvar xcode:sdkver "3.1.2")
(defvar xcode:sdkpath "/Developer/Platforms/iPhoneSimulator.platform/Developer")
(defvar xcode:sdk (concat xcode:sdkpath "/SDKs/iPhoneSimulator" xcode:sdkver ".sdk"))
(defvar flymake-objc-compiler (concat xcode:sdkpath "/usr/bin/gcc-" xcode:gccver))
(defvar flymake-objc-compile-default-options (list "-Wall" "-Wextra" "-fsyntax-only" "-ObjC" "-std=c99" "-isysroot" xcode:sdk))
(defvar flymake-last-position nil)
(defvar flymake-objc-compile-options '("-I."))
(defun flymake-objc-init ()
(let* ((temp-file (flymake-init-create-temp-buffer-copy
'flymake-create-temp-inplace))
(local-file (file-relative-name
temp-file
(file-name-directory buffer-file-name))))
(list flymake-objc-compiler (append flymake-objc-compile-default-options flymake-objc-compile-options (list local-file)))))

(add-hook 'objc-mode-hook
(lambda ()
(push '("//.m$" flymake-objc-init) flymake-allowed-file-name-masks)
(push '("//.h$" flymake-objc-init) flymake-allowed-file-name-masks)
(if (and (not (null buffer-file-name)) (file-writable-p buffer-file-name))
(flymake-mode t))
))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

(defun flymake-display-err-minibuffer ()
"改行有 error 或 warinig 显示在 minibuffer"
(interactive)
(let* ((line-no (flymake-current-line-no))
(line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info line-no)))
(count (length line-err-info-list)))
(while (> count 0)
(when line-err-info-list
(let* ((file (flymake-ler-file (nth (1- count) line-err-info-list)))
(full-file (flymake-ler-full-file (nth (1- count) line-err-info-list)))
(text (flymake-ler-text (nth (1- count) line-err-info-list)))
(line (flymake-ler-line (nth (1- count) line-err-info-list))))
(message "[%s] %s" line text)))
(setq count (1- count)))))

(defadvice flymake-goto-next-error (after display-message activate compile)
"下一个错误"
(flymake-display-err-minibuffer))

(defadvice flymake-goto-prev-error (after display-message activate compile)
"前一个错误"
(flymake-display-err-minibuffer))

(defadvice flymake-mode (before post-command-stuff activate compile)
"为了将问题行自动显示到 minibuffer 中，添加 post command hook "
(set (make-local-variable 'post-command-hook)
(add-hook 'post-command-hook 'flymake-display-err-minibuffer)))

;; post-command-hook 与 anything.el 有冲突时使用
(define-key global-map (kbd "C-c d") 'flymake-display-err-minibuffer)

1
2

(set-face-background 'flymake-errline "red")
(set-face-background 'flymake-warnline "yellow")

1
2
3

emacs -batch -f batch-byte-compile *.el
# Emacs.app
/Applications/Emacs.app/Contents/MacOS/Emacs -batch -f batch-byte-compile *.el