1 ;;; Guile configuration
5 (let ((process-connection-type nil))
6 (start-process "guile" "guile" "/usr/bin/guile")))
8 (defun send-to-guile ()
10 (cond ((not (get-process "guile"))
15 (replace-regexp-in-string
18 (buffer-substring-no-properties (region-beginning) (region-end)))
20 (buffer-substring-no-properties (point-min-marker) (point-max-marker)))))))
23 (define-key global-map [(ctrl x) (ctrl g)] 'send-to-guile)
25 (define-key-after global-map [menu-bar tools guile] (cons "Guile" (make-sparse-keymap "hoot hoot")) 'games)
26 (define-key global-map [menu-bar tools guile send] '("Send to Guile" . send-to-guile))
27 (define-key global-map [menu-bar tools guile launch] '("Launch Guile" . launch-guile))