Arcをxyzzyで。
簡単にはこんな感じで使える。
(defmacro run-ps (proc exe cmd dir) `(setq ,proc (make-process (format nil "\"~a\" ~a" ,exe ,(if cmd cmd "")) :exec-directory ,dir))) (let ((file "MzScheme.exe")) (run-ps proc file "-m -f as.scm" (directory-namestring file))) (defun send-sexp (&optional fp) (interactive) (if (interactive-p) (send-sexp (buffer-process)) (save-excursion (process-send-string fp (buffer-substring (progn (backward-sexp) (point)) (progn (forward-sexp) (point))))))) (global-set-key '(#\C-x #\LFD) 'send-sexp)
ただし、S式しか送れないので、シンボルを単体で評価できない。
まあ、簡単に出来ることが分かったので、もう少し整備して、モードとして使えるようにしよう。