Seiji Zenitani
zenit****@tkg*****
2004年 3月 15日 (月) 23:56:14 JST
こんばんは、銭谷です。
AppleScript を使って、Mac 標準の
ファイルオープンダイアログを呼び出すことができました。
コードは下の通りです。
;; Open file
(defun mac-open-file ()
(interactive)
(let ((file ""))
(setq file
(do-applescript "try
POSIX path of (choose file)
end try"))
(if (> (length file) 3)
(find-file (substring file 1 (- (length file) 1))))
))
;; ↓ Command + O にバインド
(setq mac-command-key-is-meta nil)
(global-set-key [(alt o)] 'mac-open-file)
パス名が英語の場合は問題なく使えます。
日本語が含まれているパス名がまだ扱えませんが（※）
良い解決法はありませんでしょうか・・・？
--
銭谷誠司
※ 取得したファイル名（変数 : file）を評価すると、
\216\226\226 ... のような文字化けした文字列が入っています。
そして、この文字列を*Message* バッファから
別の場所にコピー＆ペーストすると
/Users/ ... /Documents/事務書類/03_2k.doc
という日本語ファイル名に戻ってくれます。
ですから、encoding? Unicode? をきちんと扱えば
日本語パス名も使えそうだと感じています。