なんかいろいろあるかもしれないけど、とりあえずやってみた。
最初に
(defun open-current-dir-with-finder () (interactive) (shell-command (concat "open " (file-name-directory (buffer-file-name)))))
- buffer-file-nameで現在のbufferのfilepathが取れる
- file-name-directoryでそのファイルのディレクトリ名が取れる
- shell-commandでコマンド実行できる
次に
こんな事しなくても下のようにしたらできてた。
(defun open-current-dir-with-finder () (interactive) (shell-command (concat "open .")))
もちろんM-! open .ってしてもできる
とりあえずバッファ名取るのとかの勉強になったので良かった。