[Macemacsjp-users 52] Re: Mac 標準のファイルオープンダイアログ

Back to archive index

ken_taka fctak****@mbd*****
2004年 3月 16日 (火) 00:33:36 JST


ken_taka と申します。

うう・・・面白そうなネタ。し、しかし納期が・・・(^^;

とりあえず思いついただけで検証してませんが、銭谷さんの考え通りで
いけそうな気がしますね。
つまりエイリアスを POSIX path に変換する部分で

(POSIX path of choose file) as unicode text

としてあげると良いような。
# クォートしてあげる必要があるかも


On 2004年 3月 15日 , at 11:56 PM, Seiji Zenitani wrote:
> 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? をきちんと扱えば
> 日本語パス名も使えそうだと感じています。



-- 
ken_taka (=_=) : Ken Takano
email : fctak****@mbd*****




Macemacsjp-users メーリングリストの案内
Back to archive index