1 ;;; geiser.el -- main geiser file
3 ;; Copyright (C) 2009, 2010, 2011, 2012 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 (defconst geiser-elisp-dir
(file-name-directory load-file-name
)
16 "Directory containing Geiser's Elisp files.")
18 (defconst geiser-scheme-dir
(expand-file-name "../scheme/" geiser-elisp-dir
)
19 "Directory containing Geiser's Scheme files.")
21 (when (not (member geiser-elisp-dir load-path
))
22 (add-to-list 'load-path geiser-elisp-dir
))
27 (autoload 'geiser-version
"geiser-version" "Echo Geiser's version." t
)
29 (autoload 'geiser-unload
"geiser-reload" "Unload all Geiser code." t
)
31 (autoload 'geiser-reload
"geiser-reload" "Reload Geiser code." t
)
33 (autoload 'geiser
"geiser-repl"
34 "Start a Geiser REPL, or switch to a running one." t
)
36 (autoload 'run-geiser
"geiser-repl" "Start a Geiser REPL." t
)
38 (autoload 'geiser-connect
"geiser-repl"
39 "Start a Geiser REPL connected to a remote server." t
)
41 (autoload 'switch-to-geiser
"geiser-repl"
42 "Switch to a running one Geiser REPL." t
)
44 (autoload 'run-guile
"geiser-guile" "Start a Geiser Guile REPL." t
)
46 (autoload 'switch-to-guile
"geiser-guile"
47 "Start a Geiser Guile REPL, or switch to a running one." t
)
49 (autoload 'connect-to-guile
"geiser-guile"
50 "Connect to a remote Geiser Guile REPL." t
)
52 (autoload 'run-racket
"geiser-racket" "Start a Geiser Racket REPL." t
)
54 (autoload 'run-gracket
"geiser-racket" "Start a Geiser GRacket REPL." t
)
56 (autoload 'switch-to-racket
"geiser-racket"
57 "Start a Geiser Racket REPL, or switch to a running one." t
)
59 (autoload 'connect-to-racket
"geiser-racket"
60 "Connect to a remote Geiser Racket REPL." t
)
62 (autoload 'geiser-mode
"geiser-mode"
63 "Minor mode adding Geiser REPL interaction to Scheme buffers." t
)
65 (autoload 'turn-on-geiser-mode
"geiser-mode"
66 "Enable Geiser's mode (useful in Scheme buffers)." t
)
68 (autoload 'turn-off-geiser-mode
"geiser-mode"
69 "Disable Geiser's mode (useful in Scheme buffers)." t
)
71 (autoload 'geiser-mode--maybe-activate
"geiser-mode")
75 (custom-add-load group
(symbol-name group
))
76 (custom-add-load 'geiser
(symbol-name group
)))
94 (add-hook 'scheme-mode-hook
'geiser-mode--maybe-activate
)
96 (add-to-list 'auto-mode-alist
'("\\.rkt\\'" . scheme-mode
))