fukusaka · May 6, 2010 08:37 · May 6, 2010
diff --git a/03cygwin.el b/03cygwin.el
@@ -0,0 +1,139 @@
+;;
+;; Windows系でCygwin対応コード
+;;
+
+(when (memq system-type '(cygwin windows-nt))
+
+  ;; cygwin のパスを確認する
+  (defvar cygwin-top-directory "C:/cygwin/")
+
+  ;; cygwin のパスを追加
+  (defvar cygwin-bin-directory
+    (expand-file-name (concat cygwin-top-directory "bin")))
+
+  (add-to-list 'exec-path cygwin-bin-directory t)
+
+  ;; cygwin のバージョン取得
+  (defvar cygwin-version nil)
+  (defvar cygwin-major-version nil)
+  (defvar cygwin-minor-version nil)
+
+  (defvar cygwin-api-version nil)
+  (defvar cygwin-api-major-version nil)
+  (defvar cygwin-api-minor-version nil)
+
+  (defvar cygwin-shared-data-version nil)
+  (defvar cygwin-registry-version nil)
+
+  (let* ((text (substring (shell-command-to-string "uname -r") 0 -1))
+	 (version
+	  (if (and text
+		   (string-match "\\([0-9.]+\\)(\\([0-9.]+\\)/\\([0-9.]+\\)/\\([0-9.]+\\))" text))
+	      (mapcar '(lambda (c) (match-string c text)) '(1 2 3 4)))))
+    (when version
+      (setq cygwin-version (nth-value 0 version))
+      (setq cygwin-api-version (nth-value 1 version))
+      (setq cygwin-shared-data-version
+	    (string-to-number (nth-value 2 version)))
+      (setq cygwin-registry-version
+	    (string-to-number (nth-value 3 version)))
+
+      (let ((vers (split-string (nth-value 0 version) "\\.")))
+	(setq cygwin-major-version (string-to-number (nth-value 1 vers)))
+	(setq cygwin-minor-version (string-to-number (nth-value 2 vers))))
+
+      (let ((vers (split-string (nth-value 1 version) "\\.")))
+	(setq cygwin-api-major-version (string-to-number (nth-value 0 vers)))
+	(setq cygwin-api-minor-version (string-to-number (nth-value 1 vers))))
+      ))
+
+  (defun setenv-cygwin (value)
+    (let* ((func '(lambda (val)
+                    (string-match "\\(no\\)?\\([^:]*\\)\\(:.*\\)?" val)
+                    (match-string 2 val)))
+           (env (getenv "CYGWIN"))
+           (envs (if env (split-string env " ")))
+           replaced)
+      (setq envs
+            (mapcar '(lambda (val)
+                       (if (not (string=
+                                 (funcall func val)
+                                 (funcall func value)))
+                           val
+                         (setq replaced t) value))
+                    envs))
+      (unless replaced (setq envs (append envs `(,value))))
+      (setenv "CYGWIN" (mapconcat 'identity envs " "))))
+
+  ;; 環境CYGWINの設定
+  (setenv-cygwin "nodosfilewarning")
+  (setenv-cygwin "tty")
+
+  ;; cygwin-mount.el
+  (when (locate-library "cygwin-mount")
+    (require 'cygwin-mount)
+    (cygwin-mount-activate))
+
+  ;; Shell としてCygwinのBashを使う
+  (when (executable-find "bash")
+    (setq shell-file-name "bash")
+    (setenv "SHELL" shell-file-name))
+
+  ;; Cygwin の Info 追加
+  (add-to-list
+   'Info-default-directory-list
+   (expand-file-name (concat cygwin-top-directory "usr/share/info")) t)
+
+  ;; cygwin-1.7のman(groff)は日本語が使えない。。。
+  (setq manual-program "LANG=C man")
+
+  ;; cygwin のfindを明示的に指定
+  (setq find-program (concat cygwin-top-directory "bin/find"))
+
+  (defadvice prefer-coding-system
+    (after my-prefer-coding-system activate)
+    (let ((coding (coding-system-base (ad-get-arg 0))))
+      (cond
+       ;; Windows系でロケール(ShiftJIS)を使う場合
+       ((coding-system-equal 'shift_jis coding)
+        (setenv "LANG" "ja_JP.SJIS")
+
+        (setq my-prefer-utf8-for-cygwin nil)
+        )
+       ;; Windows系でUTF-8を使う場合
+       ((coding-system-equal 'utf-8 coding)
+        (setenv "LANG" "ja_JP.UTF-8")
+
+        (setq my-prefer-utf8-for-cygwin t)
+        )
+       )
+      )
+    )
+
+;;; Follow Cygwin symlinks.
+;;; Handles old-style (text file) symlinks and new-style (.lnk file) symlinks.
+;;; (Non-Cygwin-symlink .lnk files, such as desktop shortcuts, are still loaded as such.)
+  (defun follow-cygwin-symlink ()
+    "Follow Cygwin symlinks.
+Handles old-style (text file) and new-style (.lnk file) symlinks.
+\(Non-Cygwin-symlink .lnk files, such as desktop shortcuts, are still
+loaded as such.)"
+    (save-excursion
+      (goto-char 0)
+      (cond
+       ((looking-at
+         "L\x000\x000\x000\x001\x014\x002\x000\x000\x000\x000\x000\x0C0\x000\x000\x000\x000\x000\x000\x046\x00C")
+        (re-search-forward
+         "\x000\\([-A-Za-z0-9_\\.\\\\\\$%@(){}~!#^'`][-A-Za-z0-9_\\.\\\\\\$%@(){}~!#^'`]+\\)")
+        (find-alternate-file (match-string 1))) ;; ?
+       ((looking-at "!<symlink>\377\376")
+        (re-search-forward "!<symlink>\\(\377\376.*\\)")
+        (find-alternate-file
+         (decode-coding-string (match-string 1) 'utf-16)))
+       ((looking-at "!<symlink>")
+        (re-search-forward "!<symlink>\\(.*\\)\0")
+        (find-alternate-file (match-string 1)))
+       )))
+
+  (add-hook 'find-file-hooks 'follow-cygwin-symlink)
+  )