; *Meadowとgitとの間はutf-8にする。
;  コミットログをutf-8で記録したい。
;  i18n.commitEncodingはコミット時に変換してくれるわけではないっぽい。
;  また、magit.el内でgit log --format %sを使っている場所があるので、
;  どうしてもutf-8でやりとりせざるを得ない。
;  この設定はshell-file-name経由でgitを呼ぶ場合には適用されないので注意。
(modify-coding-system-alist 'process "git" '(utf-8-dos . utf-8-unix))

; magitを使えるようにする。
(cond ((locate-library "magit")
       (require 'magit)

       ;; git diffとgit applyの文字エンコーディングを
       ;; .gitattributesのencoding属性に合わせて調整するラッパーを使う。
       ;; git-encwrapperをコンパイルしてパスの通ったところに置くこと。
       (setq magit-git-executable "git-encwrapper")

       ;; magitがshell-file-name(sh.exe)経由でgitを呼ぶとき、utf-8で入出力する。
       ;; magitがshell-file-nameを使ってprocess-fileやcall-processする関数には次のものがある(magit-0.7では)。
       ;; - magit-shell-command-to-string
       ;; - magit-git-exit-code
       ;; - magit-run-shell
       ;; これらの呼び出し時、一時的にprocess-coding-system-alistを書き換える。
       ;;
       ;; shに対するprocess-coding-system-alistをutf-8にしている人は不要。
       (defun add-sh-utf8-process-coding-system-alist ()
         (cons (cons shell-file-name '(utf-8-dos . utf-8-unix)) process-coding-system-alist))

       (defadvice magit-shell-command-to-string (around magit-shell-command-to-string-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

       (defadvice magit-git-exit-code (around magit-git-exit-code-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

       (defadvice magit-run-shell (around magit-run-shell-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

 ))

export TMP=/tmp
export TEMP=/tmp
export LANG=ja_JP.CP932

; *環境変数の設定。これらをシステム全体の設定にするのは抵抗があるのでここで。
;  Cygwin1.7の動作とか、win-ssh-askpassの動作とかで問題になったものを列挙。
(setenv "LANG" "ja_JP.CP932")
(setenv "TMP" "c:/app/cygwin/tmp") ;Meadowを使っている間はCygwinの/tmpを使う。
(setenv "TEMP" "c:/app/cygwin/tmp") ;Meadowを使っている間はCygwinの/tmpを使う。

; *とりあえず日本語環境が前提。
(set-language-environment "Japanese")

; *magit.elはgitを直接起動することもあるし、shell-file-nameのコマンド経由で起動することもあるので注意。
(setq shell-file-name "sh")
(setq shell-command-switch "-c") 

; *私はMeadow-Cygwin間は基本的にcp932にしている。
;  ほとんどの自作コマンドラインツールがcp932前提だし、
;  日本語版Windowsのデフォルトのロケールはcp932なわけだから、
;  Cygwin以外のWindows用ツールと連携させるならば普通はこの方がいい。
(modify-coding-system-alist 'process "sh" '(cp932-dos . cp932-unix))

; *Meadowとgitとの間はutf-8にする。
;  コミットログをutf-8で記録したい。
;  i18n.commitEncodingはコミット時に変換してくれるわけではないっぽい。
;  また、magit.el内でgit log --format %sを使っている場所があるので、
;  どうしてもutf-8でやりとりせざるを得ない。
;  この設定はshell-file-name経由でgitを呼ぶ場合には適用されないので注意。
;  そちらは.gitconfigのi18n.logOutputEncodingと、sh.exeに対する
;  process-coding-system-alistの設定で調整すること。
(modify-coding-system-alist 'process "git" '(utf-8-dos . utf-8-unix))

; magitを使えるようにする。
(cond ((locate-library "magit")
       (require 'magit)
       ;; magitがshell-file-name(sh.exe)経由でgitを呼ぶとき、utf-8で入出力する。
       ;; magitがshell-file-nameを使ってprocess-fileやcall-processする関数には次のものがある。
       ;; - magit-shell-command-to-string
       ;; - magit-git-exit-code
       ;; - magit-run-shell
       ;; これらの呼び出し時、一時的にprocess-coding-system-alistを書き換える。
       (defun add-sh-utf8-process-coding-system-alist ()
         (cons (cons shell-file-name '(utf-8-dos . utf-8-unix)) process-coding-system-alist))

       (defadvice magit-shell-command-to-string (around magit-shell-command-to-string-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

       (defadvice magit-git-exit-code (around magit-git-exit-code-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

       (defadvice magit-run-shell (around magit-run-shell-proc-coding activate)
         (let ((process-coding-system-alist (add-sh-utf8-process-coding-system-alist)))
           ad-do-it))

 ))

#!/bin/sh
# $1 = 比較しているファイルのファイル名
# $2 = 旧バージョンの内容が入ったテンポラリファイル名
# $3 = 旧バージョンの内容のオブジェクト名
# $4 = 旧バージョンのファイルのモード値
# $5 = 新バージョンの内容が入ったテンポラリファイル名
# $6 = 新バージョンの内容のオブジェクト名
# $7 = 新バージョンのファイルのモード値

echo diff --git a/$1 b/$1
if test $3 == "."
then
# *新しくファイルを追加するとき。
# 例:
# diff --git a/.gitignore b/.gitignore
# new file mode 100644
# index 0000000..b25c15b
# --- /dev/null
# +++ b/.gitignore
    echo new file mode $7
    echo index 0000000..${6:0:7}
    diff -u -L /dev/null -L b/$1 $2 $5 | nkf --utf8 -d
else
# *内容が変わった場合。
# 例:
# diff --git a/readme.txt b/readme.txt
# index 353a8aa..401f140 100644
# --- a/readme.txt
# +++ b/readme.txt
    echo index ${3:0:7}..${6:0:7} $7
    diff -u -L a/$1 -L b/$1 $2 $5 | nkf --utf8 -d
fi