1 ;;; geiser.el -- main geiser file
3 ;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
5 ;; This program is free software; you can redistribute it and/or
6 ;; modify it under the terms of the Modified BSD License. You should
7 ;; have received a copy of the license along with this program. If
8 ;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
11 ;; Autoloads and basic setup for geiser.
15 (defvar geiser-elisp-dir nil
16 "Directory containing Geiser's Elisp files.")
18 (defvar geiser-scheme-dir nil
19 "Directory containing Geiser's Scheme files.")
21 (setq geiser-elisp-dir
(file-name-directory load-file-name
))
22 (add-to-list 'load-path geiser-elisp-dir
)
24 (setq geiser-scheme-dir
(expand-file-name "../scheme/" geiser-elisp-dir
))
29 (autoload 'geiser-version
"geiser-version" "Echo Geiser's version." t
)
31 (autoload 'geiser-unload
"geiser-reload" "Unload all Geiser code." t
)
33 (autoload 'geiser-reload
"geiser-reload" "Reload Geiser code." t
)
35 (autoload 'geiser
"geiser-repl"
36 "Start a Geiser REPL, or switch to a running one." t
)
38 (autoload 'run-geiser
"geiser-repl" "Start a Geiser REPL." t
)
40 (autoload 'geiser-connect
"geiser-repl"
41 "Start a Geiser REPL connected to a remote server." t
)
43 (autoload 'switch-to-geiser
"geiser-repl"
44 "Switch to a running one Geiser REPL." t
)
46 (autoload 'run-guile
"geiser-guile" "Start a Geiser Guile REPL." t
)
48 (autoload 'switch-to-guile
"geiser-guile"
49 "Start a Geiser Guile REPL, or switch to a running one." t
)
51 (autoload 'connect-to-guile
"geiser-guile"
52 "Connect to a remote Geiser Guile REPL." t
)
54 (autoload 'run-racket
"geiser-racket" "Start a Geiser Racket REPL." t
)
56 (autoload 'run-gracket
"geiser-racket" "Start a Geiser GRacket REPL." t
)
58 (autoload 'switch-to-racket
"geiser-racket"
59 "Start a Geiser Racket REPL, or switch to a running one." t
)
61 (autoload 'geiser-mode
"geiser-mode"
62 "Minor mode adding Geiser REPL interaction to Scheme buffers." t
)
64 (autoload 'turn-on-geiser-mode
"geiser-mode"
65 "Enable Geiser's mode (useful in Scheme buffers)." t
)
67 (autoload 'turn-off-geiser-mode
"geiser-mode"
68 "Disable Geiser's mode (useful in Scheme buffers)." t
)
70 (autoload 'geiser-mode--maybe-activate
"geiser-mode")
73 (custom-add-load group
(symbol-name group
))
74 (custom-add-load 'geiser
(symbol-name group
)))
90 (eval-after-load "scheme"
91 '(add-hook 'scheme-mode-hook
'geiser-mode--maybe-activate
))
93 (add-to-list 'auto-mode-alist
'("\\.rkt\\'" . scheme-mode
))