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) (hide-all-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