- (cond ((not (get-process "gacela"))
- (launch-gacela)))
- (process-send-string "gacela" "(begin ")
- (cond ((use-region-p)
- (process-send-region "gacela" (region-beginning) (region-end)))
- (t
- (process-send-string "gacela" "(run-game) (clear-active-mobs)")
- (process-send-region "gacela" (point-min-marker) (point-max-marker))))
- (process-send-string "gacela" ")\n"))