1 ;;; geiser.el -- main geiser file
3 ;; Copyright (C) 2009, 2010, 2011, 2012, 2013 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
19 (let ((d (expand-file-name "./scheme/" geiser-elisp-dir
)))
20 (if (file-directory-p d
)
22 (expand-file-name "../scheme/" geiser-elisp-dir
)))
23 "Directory containing Geiser's Scheme files.")
25 (when (not (member geiser-elisp-dir load-path
))
26 (add-to-list 'load-path geiser-elisp-dir
))
32 (autoload 'geiser-version
"geiser-version" "Echo Geiser's version." t
)
35 (autoload 'geiser-unload
"geiser-reload" "Unload all Geiser code." t
)
38 (autoload 'geiser-reload
"geiser-reload" "Reload Geiser code." t
)
41 (autoload 'geiser
"geiser-repl"
42 "Start a Geiser REPL, or switch to a running one." t
)
45 (autoload 'run-geiser
"geiser-repl" "Start a Geiser REPL." t
)
48 (autoload 'geiser-connect
"geiser-repl"
49 "Start a Geiser REPL connected to a remote server." t
)
52 (autoload 'switch-to-geiser
"geiser-repl"
53 "Switch to a running one Geiser REPL." t
)
56 (autoload 'run-guile
"geiser-guile" "Start a Geiser Guile REPL." t
)
59 (autoload 'switch-to-guile
"geiser-guile"
60 "Start a Geiser Guile REPL, or switch to a running one." t
)
63 (autoload 'connect-to-guile
"geiser-guile"
64 "Connect to a remote Geiser Guile REPL." t
)
67 (autoload 'run-racket
"geiser-racket" "Start a Geiser Racket REPL." t
)
70 (autoload 'run-gracket
"geiser-racket" "Start a Geiser GRacket REPL." t
)
73 (autoload 'switch-to-racket
"geiser-racket"
74 "Start a Geiser Racket REPL, or switch to a running one." t
)
77 (autoload 'connect-to-racket
"geiser-racket"
78 "Connect to a remote Geiser Racket REPL." t
)
81 (autoload 'geiser-mode
"geiser-mode"
82 "Minor mode adding Geiser REPL interaction to Scheme buffers." t
)
85 (autoload 'turn-on-geiser-mode
"geiser-mode"
86 "Enable Geiser's mode (useful in Scheme buffers)." t
)
89 (autoload 'turn-off-geiser-mode
"geiser-mode"
90 "Disable Geiser's mode (useful in Scheme buffers)." t
)
93 (autoload 'geiser-mode--maybe-activate
"geiser-mode")
97 (custom-add-load group
(symbol-name group
))
98 (custom-add-load 'geiser
(symbol-name group
)))
109 geiser-implementation
116 (add-hook 'scheme-mode-hook
'geiser-mode--maybe-activate
)
118 (add-to-list 'auto-mode-alist
'("\\.rkt\\'" . scheme-mode
))