xyzzy から標準のファイラのかわりに FreeCommander を起動する

Text Editor

以前にコードエディタを xyzzy から Visual Studio Code、xyzzy のファイラから FreeCommander に乗り換えた。

それでもメモ書きに xyzzy を使うことがあり、癖で xyzzy のファイラを起動してしまうことがあるので C-c C-f のキーバインドで FreeCommander を起動できるようにした。

;; FreeCommander XE を起動する
(defun open-freecommander (&optional (dir nil))
  "FreeCommander で開く"
  (interactive)
  (let ((command "\"C:\\Program Files\\FreeCommander XE\\FreeCommander.exe\""))
	(if dir
		(call-process
		 (concat command " /C \"" dir "\" /T"))
	  (call-process
	   (concat command " /C"))
	  )))

;; 標準のファイラがわりに使う
(global-set-key '(#\C-c #\C-f) 'open-freecommander)

引数にディレクトリのパスを渡すと FreeCommander の新しいタブでそのディレクトリを開けるが、今のところ使っていない。

参考