X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=emacs%2Femacs.conf;fp=emacs%2Femacs.conf;h=65645a522aba498526e71ffb11c68c8731df1f08;hb=4e40519197d7b6e04e0d73204447bb9ed01ff3b1;hp=0000000000000000000000000000000000000000;hpb=e3a3d238c51ec7cc68f8afce436cf4d0a6af0c39;p=gacela.git

diff --git a/emacs/emacs.conf b/emacs/emacs.conf
new file mode 100644
index 0000000..65645a5
--- /dev/null
+++ b/emacs/emacs.conf
@@ -0,0 +1,21 @@
+;;; Gacela configuration
+
+(defun launch-gacela ()
+  (interactive)
+  (start-process "gacela" "gacela" "/home/jsancho/proyectos/gacela/trunk/src/gacela" "--dev"))
+
+(defun send-to-gacela ()
+  (interactive)
+  (cond ((not (get-process "gacela"))
+	 (launch-gacela)))
+  (cond ((use-region-p)
+	 (process-send-region "gacela" (region-beginning) (region-end)))
+	(t
+	 (process-send-region "gacela" (point-min-marker) (point-max-marker)))))
+
+(define-key global-map [(ctrl x) (ctrl g)] 'send-to-gacela)
+
+(define-key-after global-map [menu-bar tools gacela] (cons "Gacela" (make-sparse-keymap "hoot hoot")) 'games)
+(define-key global-map [menu-bar tools gacela send] '("Send to Gacela" . send-to-gacela))
+(define-key global-map [menu-bar tools gacela launch] '("Launch Gacela" . launch-gacela))
+