xyzzyからFenrirへ(その２)

　上手くいっていなかったので修正。昨日書いた、xyzzyのファイラからfenrirに渡すやつは、試してみたらどうも上手くいかない。/でパスを書いてしまうので、\じゃないとFenrirが読み込んでくれないようだった。\にしようととしたが\はエスケープしまくってよく意味が分からなくなったので、出来そうなときに試すことになりそう。今、substitute-stringを見つけたので使ったら簡単に直せたので直してみた。string-looking-atとか使ってやろうとしていたから面倒だったのかも。

;ファイラからFenrirにキーを渡す（まともに動くかもしれない方）
(defun filer-to-fenrir()
  (interactive)
  (let ((fenrir "D:/ここにFenrirのパスを書く/fenrir.exe  /key=")
		(current (filer-get-current-file)))
	(setq current (substitute-string current "/" "\\\\"))
	(setq current (concat fenrir current))
	(call-process current)
	))

commentのをみて適当に変えてみた。

;ファイラからFenrirにキーを渡す（スッキリしてる方）
(defun filer-to-fenrir()
  (interactive)
  (let ((fenrir "D:/ここにFenrirのパスを/fenrir.exe  /key=")
		(current (filer-get-current-file)))
	(call-process (concat fenrir (map-slash-to-backslash current)))))