]> git.jsancho.org Git - gacela.git/blob - emacs/emacs_conf.lisp
29dcc20a1b1f1dd17c55c77e7fd342c0895d1652
[gacela.git] / emacs / emacs_conf.lisp
1 ;;; Gacela configuration
2
3 (defun launch-gacela ()
4   (interactive)
5   (start-process "gacela" "gacela" "/home/jsancho/proyectos/gacela/trunk/src/gacela" "--dev"))
6
7 (defun send-to-gacela ()
8   (interactive)
9   (cond ((not (get-process "gacela"))
10          (launch-gacela)))
11   (process-send-string "gacela" "(begin ")
12   (cond ((use-region-p)
13          (process-send-region "gacela" (region-beginning) (region-end)))
14         (t
15          (process-send-string "gacela" "(run-game) (clear-active-mobs)")
16          (process-send-region "gacela" (point-min-marker) (point-max-marker))))
17   (process-send-string "gacela" "\n)\n"))
18
19 (define-key global-map [(ctrl x) (ctrl g)] 'send-to-gacela)
20
21 (define-key-after global-map [menu-bar tools gacela] (cons "Gacela" (make-sparse-keymap "hoot hoot")) 'games)
22 (define-key global-map [menu-bar tools gacela send] '("Send to Gacela" . send-to-gacela))
23 (define-key global-map [menu-bar tools gacela launch] '("Launch Gacela" . launch-gacela))
24