end0tknr's kipple - web写経開発

太宰府天満宮の狛犬って、妙にカワイイ

NTEmacsのinstall

「なんかmeadowの調子が悪いなぁ」と思ったのがきっかけです。

http://www.meadowy.org/meadow/ を見ると、ここ数年更新がなく、win vistaでは動作が不安定らしいので、meadowNTEmacsに移行してみました。

http://ntemacsjp.sourceforge.jp/matsuan/IndexJp.html
http://sourceforge.jp/projects/ntemacsjp/

今のところ、特に問題なく動作しています。
また、現状の .emacs も紹介しておきます。

.emacs

(cond
 ((string-match "21.*" emacs-version)
  (load-file "~/.emacs.meadow"))
 ((string-match "22.*" emacs-version)
  (load-file "~/.emacs.ntemacs"))
)

.emacs.ntemacs

;参考command
;M-x query-replace-regexp		;正規表現による文字列の置換
;M-x set-buffer-file-coding-system	;文字+改行コードの変更
;M-x untabify				;タブ->スペース
;M-x tabify				;スペース->タブ
;M-=					;文字数,行数をカウント
;C-x RET c euc-jp-unix C-x C-f		;文字コードを指定してfileを開く
;M-x print-buffer			;バッファの印刷
;M-x upcase-region, M-x downcase-region	;大文字<->小文字
;M-x perltidy-region
;C-/					;undo
;C-.					;バッファをワシワシ切り替え
;M-x japanese-hankaku-region		;全角->半角 変換
;M-/				;動的略語展開
;C-x '				;静的略語展開(define ~/.abbrev_defs)


(global-set-key "\C-x\C-b" 'bs-show)	;C-xC-bをM-x bs-showに変更
(global-set-key [M-kanji] 'ignore)	;M-kanjiとうるさいので...
(define-key esc-map " " 'expand-abbrev)	;静的略語展開は M-SPCに変更

;; window sizeや色
(fixed-width-set-fontset "msgothic" 14)
(setq default-frame-alist
      (append (list
	       '(foreground-color . "black")
	       '(background-color . "LemonChiffon")
	       '(width . 81)
	       '(height . 55)
	       '(top . 0)
	       '(left . 50))
	      default-frame-alist))
(setq resize-mini-windows nil)			;ミニバッファ拡大防止

(set-face-foreground 'fringe "black")		;fringe色
(set-face-background 'fringe "LemonChiffon3")	;fringe色

(show-paren-mode 1)
(setq-default make-backup-files nil)		;BackUp File
(setq auto-save-default nil)			;自動保存
(global-set-key "\C-h" 'backward-delete-char)	;C-h でBackSpace
(menu-bar-mode t)				;menu bar表示
(tool-bar-mode nil)				;tool bar表示
(setq line-number-mode t)			;行番号表示
(setq column-number-mode 1)			;列番号表示


;;全角空白、タブ文字、行末空白の表示
;;   http://homepage1.nifty.com/blankspace/emacs/color.html
(defface my-face-b-1 '((t (:background "bisque"))) nil)
(defface my-face-b-2 '((t (:background "LemonChiffon2"))) nil)
(defface my-face-u-1 '((t (:foreground "SteelBlue" :underline t))) nil)
(defvar my-face-b-1 'my-face-b-1)
(defvar my-face-b-2 'my-face-b-2)
(defvar my-face-u-1 'my-face-u-1)
(defadvice font-lock-mode (before my-font-lock-mode ())
  (font-lock-add-keywords
   major-mode
   '((" " 0 my-face-b-1 append)
     ("\t" 0 my-face-b-2 append)
     ("[ \t]+$" 0 my-face-u-1 append)
     )))
(ad-enable-advice 'font-lock-mode 'before 'my-font-lock-mode)
(ad-activate 'font-lock-mode)

;;keisen.el Shift+矢印で簡単に罫線を描画
(global-set-key [S-right] 'keisen-right-move )
(global-set-key [S-left] 'keisen-left-move )
(global-set-key [S-up] 'keisen-up-move )
(global-set-key [S-down] 'keisen-down-move )

(autoload 'keisen-up-move "keisen" nil t)
(autoload 'keisen-down-move "keisen" nil t)
(autoload 'keisen-left-move "keisen" nil t)
(autoload 'keisen-right-move "keisen" nil t)

;(put 'upcase-region 'disabled nil)
;(put 'downcase-region 'disabled nil)

;;cperl-mode
(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
(setq auto-mode-alist
      (append '(("\\.\\([pP][Llm]\\|al\\|cgi\\|t\\)$" . cperl-mode))
              auto-mode-alist ))
(add-hook 'cperl-mode-hook
	  (lambda ()
	    (setq cperl-font-lock t)
	    (cperl-set-style "PerlStyle")))

;;html-helper-mode
(autoload 'html-helper-mode "html-helper-mode" "Yay HTML" t)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(add-hook 'html-helper-load-hook '(lambda () (require 'html-font)))

;; js2-mode
(autoload 'js2-mode "js2" nil t)
(add-to-list 'auto-mode-alist '("\\.js$" . js2-mode))

;;yaml-mode
(require 'yaml-mode)
(add-to-list 'auto-mode-alist '("\\.\\(yaml\\|yml\\)$" . yaml-mode))

;;c-modeのコーディングスタイル
;(setq c-default-style "linux")
;;インデントはタブにする
;(setq indent-tabs-mode t)
;;インデント幅
;(setq c-basic-offset 4)
;;タブ幅
;(setq default-tab-width 4)
;(setq tab-width 4)

|