「VirtualBox 上の Ubuntu から WSL を経由して Windows 環境にアクセスするための設定（戦略３）」の編集履歴（バックアップ）一覧はこちら
追加された行は緑色になります。
削除された行は赤色になります。
&bold(){■ Linux の Emacs で利用できる設定}
----
&bold(){【本題】}
----
VirtualBox 上の Ubuntu から Windows Subsystem for Linux（WSL）を経由して Windows 環境にアクセスするための設定（戦略３）です。
戦略の説明は、以下のページを参照ください。
・[[VirtualBox 上の Ubuntu から WSL を経由して Windows 環境にアクセスするための設定]]
1) 以下を参考にして Emacs on Ubuntu on VirtualBox の環境を構築する。（（戦略１）の設定を行っていれば不要）
・[[Windows で簡単に Linux を使う方法]]
2) VirtualBox の「設定」->「共有フォルダー」の機能を使って、Ubuntu から Windows のドライブを参照できるように設定する。（（戦略２）の設定を行っていれば不要）
※ 共有フォルダーにアクセスするには権限設定が必要です。
・http://qiita.com/r9y9/items/4ae5c608f8e73804980b
※ 設定後は仮想マシンの再起動が必要です。
3) 以下の設定を行う。（（戦略２）の設定を行っていれば不要）
$ sudo ln -s /media/sf_C_DRIVE /mnt/c
※ 「共有フォルダー」の機能で C ドライブ以外の設定も行った場合は、上記と同様の設定を行ってください。
4) 以下をダウンロードし、~/.emacs.d/site-lisp 等の load 対象となるディレクトリ配下にサブディレクトリを作成し格納する。
・http://emacswiki.org/emacs/windows-path.el
・http://emacswiki.org/emacs/cygwin-mount.el
そして以下の設定を行う。
(require 'cl-lib)
(require 'windows-path)
(let ((system-type 'cygwin))
(cl-letf (((symbol-function 'cygwin-mount-get-cygdrive-prefix)
(lambda () "/mnt/")))
(windows-path-activate)))
6) さらに以下のページにある一つ目の設定を行う。
・[[dired でディレクトリのシンボリックリンクを実体のパスで開くための設定]]
7) さらに以下の設定を行う。NTFS シンボリックリンクも辿るために必要な設定となります。
(defun ad-dired-get-file-for-visit-2 (orig-fun &rest args)
(if current-prefix-arg
(cl-letf (((symbol-function 'file-exists-p-original)
(symbol-function 'file-exists-p))
((symbol-function 'file-exists-p)
(lambda (filename)
(file-exists-p-original (ad-dired-get-file-for-visit filename)))))
(apply orig-fun args))
(apply orig-fun args)))
(advice-add 'dired-get-file-for-visit :around #'ad-dired-get-file-for-visit-2)
上記の設定は、noflet package を使うことで、以下のとおりに簡素に書き換えることができます。（this-fn が使えるのがミソです。）
（参考） http://emacs.rubikitch.com/noflet/
(require 'noflet)
(defun ad-dired-get-file-for-visit-2 (orig-fun &rest args)
(if current-prefix-arg
(noflet ((file-exists-p (filename)
(funcall this-fn (ad-dired-get-file-for-visit filename))))
(apply orig-fun args))
(apply orig-fun args)))
(advice-add 'dired-get-file-for-visit :around #'ad-dired-get-file-for-visit-2)
8) 以上まで設定したら Emacs を再起動し、設定を有効にする。
9) Emacs の dired で c:/ と入力することにより、/mnt/c へのアクセスとなることを確認する。
10) Emacs で /mnt 以下にあるドライブに dired でアクセスし、シンボリックリンクの上にカーソルを合わせた後、 universal-argument（C-u）を付けてから fキー や oキー を押すことで、シンボリックリンクの先のパスに移動できることを確認する。
----
<変更履歴>
・2016/10/01 このページを作成した。
----
#javascript(){{
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-40267130-1', 'atwiki.jp');
ga('send', 'pageview');
</script>
}}
&bold(){■ Linux の Emacs で利用できる設定}
----
&bold(){【本題】}
----
VirtualBox 上の Ubuntu から Windows Subsystem for Linux（WSL）を経由して Windows 環境にアクセスするための設定（戦略３）です。
戦略の説明は、次のページを参照ください。
・[[VirtualBox 上の Ubuntu から WSL を経由して Windows 環境にアクセスするための設定]]
1) 次のページを参考にして Emacs on Ubuntu on VirtualBox の環境を構築する。（（戦略１）の設定を行っていれば不要）
・[[Windows で簡単に Linux を使う方法]]
2) VirtualBox の「設定」->「共有フォルダー」の機能を使って、Ubuntu から Windows のドライブを参照できるように設定する。（（戦略２）の設定を行っていれば不要）
※ 共有フォルダーにアクセスするには権限設定が必要です。
・http://qiita.com/r9y9/items/4ae5c608f8e73804980b
※ 設定後は仮想マシンの再起動が必要です。
3) 次の設定を行う。（（戦略２）の設定を行っていれば不要）
$ sudo ln -s /media/sf_C_DRIVE /mnt/c
※ 「共有フォルダー」の機能で C ドライブ以外の設定も行った場合は、上記と同様の設定を行ってください。
4) 次のファイルをダウンロードし、~/.emacs.d/site-lisp 等の load 対象となるディレクトリ配下にサブディレクトリを作成し格納する。
・http://emacswiki.org/emacs/windows-path.el
・http://emacswiki.org/emacs/cygwin-mount.el
そして以下の設定を行う。
(require 'cl-lib)
(require 'windows-path)
(let ((system-type 'cygwin))
(cl-letf (((symbol-function 'cygwin-mount-get-cygdrive-prefix)
(lambda () "/mnt/")))
(windows-path-activate)))
6) さらに次のページにある一つ目の設定を行う。
・[[dired でディレクトリのシンボリックリンクを実体のパスで開くための設定]]
7) さらに以下の設定を行う。NTFS シンボリックリンクも辿るために必要な設定となります。
(defun ad-dired-get-file-for-visit-2 (orig-fun &rest args)
(if current-prefix-arg
(cl-letf (((symbol-function 'file-exists-p-original)
(symbol-function 'file-exists-p))
((symbol-function 'file-exists-p)
(lambda (filename)
(file-exists-p-original (ad-dired-get-file-for-visit filename)))))
(apply orig-fun args))
(apply orig-fun args)))
(advice-add 'dired-get-file-for-visit :around #'ad-dired-get-file-for-visit-2)
上記の設定は、noflet package を使うことで、以下のとおりに簡素に書き換えることができます。（this-fn が使えるのがミソです。）
（参考） http://emacs.rubikitch.com/noflet/
(require 'noflet)
(defun ad-dired-get-file-for-visit-2 (orig-fun &rest args)
(if current-prefix-arg
(noflet ((file-exists-p (filename)
(funcall this-fn (ad-dired-get-file-for-visit filename))))
(apply orig-fun args))
(apply orig-fun args)))
(advice-add 'dired-get-file-for-visit :around #'ad-dired-get-file-for-visit-2)
8) 以上まで設定したら Emacs を再起動し、設定を有効にする。
9) Emacs の dired で c:/ と入力することにより、/mnt/c へのアクセスとなることを確認する。
10) Emacs で /mnt 以下にあるドライブに dired でアクセスし、シンボリックリンクの上にカーソルを合わせた後、 universal-argument（C-u）を付けてから fキー や oキー を押すことで、シンボリックリンクの先のパスに移動できることを確認する。
----
<変更履歴>
・2016/10/01 このページを作成した。
----
#javascript(){{
<script>
(function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){
(i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o),
m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m)
})(window,document,'script','//www.google-analytics.com/analytics.js','ga');
ga('create', 'UA-40267130-1', 'atwiki.jp');
ga('send', 'pageview');
</script>
}}
