Cakephpように.emacsの修正

Ayumi

15 years ago

最近、Cakephpで開発するようになったので、.emacsに下記の内容を追加と修正

php-modeにctpを追加

;;php-mode&#12398;&#35501;&#12415;&#36796;&#12415;
(load-library "php-mode")
(require 'php-mode)
;;;php-mode&#26178;&#12398;&#12479;&#12502;&#12398;&#35519;&#25972;
(add-hook 'php-mode-hook '(lambda () (setq tab-width 2)))
;; &#25313;&#24373;&#23376;&#12364;*.tpl&#12392;*.inc&#12399;php-mode&#12395;&#12377;&#12427;
(add-to-list 'auto-mode-alist '("\.tpl$" . php-mode))
(add-to-list 'auto-mode-alist '("\.inc$" . php-mode))
(add-to-list 'auto-mode-alist '("\.ctp$" . php-mode)) <span>&#12371;&#12398;&#19968;&#34892;&#12434;&#36861;&#21152;</span>
;;;php-mode&#12398;&#26178;&#12399;&#25991;&#23383;&#12467;&#12540;&#12489;&#12434;EUC-JP&#12395;&#12377;&#12427;
(add-hook 'php-mode-hook '(lambda () (set-default-coding-systems     'utf-8)))
(add-hook 'php-mode-hook '(lambda () (set-buffer-file-coding-system  'utf-8)))
(add-hook 'php-mode-hook '(lambda () (set-terminal-coding-system     'utf-8)))

;;php-modeの読み込み

(load-library "php-mode")

(require 'php-mode)

;;;php-mode時のタブの調整

(add-hook 'php-mode-hook '(lambda () (setq tab-width 2)))

;; 拡張子が*.tplと*.incはphp-modeにする

(add-to-list 'auto-mode-alist '("\.tpl$" . php-mode))

(add-to-list 'auto-mode-alist '("\.inc$" . php-mode))

(add-to-list 'auto-mode-alist '("\.ctp$" . php-mode)) <span>この一行を追加</span>

;;;php-modeの時は文字コードをEUC-JPにする

(add-hook 'php-mode-hook '(lambda () (set-default-coding-systems 'utf-8)))

(add-hook 'php-mode-hook '(lambda () (set-buffer-file-coding-system 'utf-8)))

(add-hook 'php-mode-hook '(lambda () (set-terminal-coding-system 'utf-8)))

フォントにVL ゴシックを採用

cakephpにまったく関係ないけど、ついでに修正

(create-fontset-from-request "private-fontset"
		     '((width . 8)
		       (height . 16)
		       (fixed . t)
		       (italic . nil))
		     '((family . "VL &#12468;&#12471;&#12483;&#12463;")
		       (family . "Lucida Console")))
(change-fontset-from-request "private-fontset"
		     '((width . 8)
		       (height . 16)
		       (fixed . t)
		       (italic . nil))
		     '((family . "VL &#12468;&#12471;&#12483;&#12463;")
		       (family . "Courier New"))
		     1)
(setq default-frame-alist
     (append (list
             '(font . "private-fontset") ; &#12501;&#12457;&#12531;&#12488;&#12475;&#12483;&#12488;
              )
             default-frame-alist))

(create-fontset-from-request "private-fontset"

'((width . 8)

(height . 16)

(fixed . t)

(italic . nil))

'((family . "VL ゴシック")

(family . "Lucida Console")))

(change-fontset-from-request "private-fontset"

'((width . 8)

(height . 16)

(fixed . t)

(italic . nil))

'((family . "VL ゴシック")

(family . "Courier New"))

(setq default-frame-alist

(append (list

'(font . "private-fontset") ; フォントセット

)

default-frame-alist))