1 ;;; geiser.el --- GNU Emacs and Scheme talk to each other
3 ;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2015 Jose Antonio Ortega Ruiz
4 ;; URL: http://www.nongnu.org/geiser/
6 ;; This program is free software; you can redistribute it and/or
7 ;; modify it under the terms of the Modified BSD License. You should
8 ;; have received a copy of the license along with this program. If
9 ;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
12 ;; Autoloads and basic setup for geiser.
17 (defconst geiser-elisp-dir
(file-name-directory load-file-name
)
18 "Directory containing Geiser's Elisp files.")
21 (defconst geiser-scheme-dir
22 (let ((d (expand-file-name "./scheme/" geiser-elisp-dir
)))
23 (if (file-directory-p d
)
25 (expand-file-name "../scheme/" geiser-elisp-dir
)))
26 "Directory containing Geiser's Scheme files.")
29 (when (not (member geiser-elisp-dir load-path
))
30 (add-to-list 'load-path geiser-elisp-dir
))
36 (autoload 'geiser-version
"geiser-version" "Echo Geiser's version." t
)
39 (autoload 'geiser-unload
"geiser-reload" "Unload all Geiser code." t
)
42 (autoload 'geiser-reload
"geiser-reload" "Reload Geiser code." t
)
45 (autoload 'geiser
"geiser-repl"
46 "Start a Geiser REPL, or switch to a running one." t
)
49 (autoload 'run-geiser
"geiser-repl" "Start a Geiser REPL." t
)
52 (autoload 'geiser-connect
"geiser-repl"
53 "Start a Geiser REPL connected to a remote server." t
)
56 (autoload 'geiser-connect-local
"geiser-repl"
57 "Start a Geiser REPL connected to a remote server over a Unix-domain socket."
61 (autoload 'switch-to-geiser
"geiser-repl"
62 "Switch to a running one Geiser REPL." t
)
65 (autoload 'run-chez
"geiser-chez" "Start a Geiser Chez REPL." t
)
68 (autoload 'switch-to-chez
"geiser-chez"
69 "Start a Geiser Chez REPL, or switch to a running one." t
)
72 (autoload 'run-guile
"geiser-guile" "Start a Geiser Guile REPL." t
)
75 (autoload 'switch-to-guile
"geiser-guile"
76 "Start a Geiser Guile REPL, or switch to a running one." t
)
79 (autoload 'connect-to-guile
"geiser-guile"
80 "Connect to a remote Geiser Guile REPL." t
)
83 (autoload 'run-racket
"geiser-racket" "Start a Geiser Racket REPL." t
)
86 (autoload 'run-gracket
"geiser-racket" "Start a Geiser GRacket REPL." t
)
89 (autoload 'switch-to-racket
"geiser-racket"
90 "Start a Geiser Racket REPL, or switch to a running one." t
)
93 (autoload 'connect-to-racket
"geiser-racket"
94 "Connect to a remote Geiser Racket REPL." t
)
97 (autoload 'run-chicken
"geiser-chicken" "Start a Geiser Chicken REPL." t
)
100 (autoload 'switch-to-chicken
"geiser-chicken"
101 "Start a Geiser Chicken REPL, or switch to a running one." t
)
104 (autoload 'connect-to-chicken
"geiser-chicken"
105 "Connect to a remote Geiser Chicken REPL." t
)
108 (autoload 'run-mit
"geiser-mit" "Start a Geiser MIT/GNU Scheme REPL." t
)
111 (autoload 'switch-to-mit
"geiser-mit"
112 "Start a Geiser MIT/GNU Scheme REPL, or switch to a running one." t
)
115 (autoload 'run-chibi
"geiser-chibi" "Start a Geiser Chibi Scheme REPL." t
)
118 (autoload 'switch-to-chibi
"geiser-chibi"
119 "Start a Geiser Chibi Scheme REPL, or switch to a running one." t
)
122 (autoload 'geiser-mode
"geiser-mode"
123 "Minor mode adding Geiser REPL interaction to Scheme buffers." t
)
126 (autoload 'turn-on-geiser-mode
"geiser-mode"
127 "Enable Geiser's mode (useful in Scheme buffers)." t
)
130 (autoload 'turn-off-geiser-mode
"geiser-mode"
131 "Disable Geiser's mode (useful in Scheme buffers)." t
)
134 (autoload 'geiser-mode--maybe-activate
"geiser-mode")
137 (mapc (lambda (group)
138 (custom-add-load group
(symbol-name group
))
139 (custom-add-load 'geiser
(symbol-name group
)))
154 geiser-implementation
161 (add-hook 'scheme-mode-hook
'geiser-mode--maybe-activate
)
163 (add-to-list 'auto-mode-alist
'("\\.rkt\\'" . scheme-mode
))
168 ;;; geiser.el ends here