elisp/geiser.el

   1 ;;; geiser.el -- main geiser file
   2
   3 ;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz
   4
   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>.
   9
  10 \f
  11 ;; Autoloads and basic setup for geiser.
  12
  13 ;;; Locations:
  14
  15 (defconst geiser-elisp-dir (file-name-directory load-file-name)
  16   "Directory containing Geiser's Elisp files.")
  17
  18 (defconst geiser-scheme-dir (expand-file-name "../scheme/" geiser-elisp-dir)
  19   "Directory containing Geiser's Scheme files.")
  20
  21 (when (not (member geiser-elisp-dir load-path))
  22   (add-to-list 'load-path geiser-elisp-dir))
  23
  24 \f
  25 ;;; Autoloads:
  26
  27 (autoload 'geiser-version "geiser-version" "Echo Geiser's version." t)
  28
  29 (autoload 'geiser-unload "geiser-reload" "Unload all Geiser code." t)
  30
  31 (autoload 'geiser-reload "geiser-reload" "Reload Geiser code." t)
  32
  33 (autoload 'geiser "geiser-repl"
  34   "Start a Geiser REPL, or switch to a running one." t)
  35
  36 (autoload 'run-geiser "geiser-repl" "Start a Geiser REPL." t)
  37
  38 (autoload 'geiser-connect "geiser-repl"
  39   "Start a Geiser REPL connected to a remote server." t)
  40
  41 (autoload 'switch-to-geiser "geiser-repl"
  42   "Switch to a running one Geiser REPL." t)
  43
  44 (autoload 'run-guile "geiser-guile" "Start a Geiser Guile REPL." t)
  45
  46 (autoload 'switch-to-guile "geiser-guile"
  47   "Start a Geiser Guile REPL, or switch to a running one." t)
  48
  49 (autoload 'connect-to-guile "geiser-guile"
  50   "Connect to a remote Geiser Guile REPL." t)
  51
  52 (autoload 'run-racket "geiser-racket" "Start a Geiser Racket REPL." t)
  53
  54 (autoload 'run-gracket "geiser-racket" "Start a Geiser GRacket REPL." t)
  55
  56 (autoload 'switch-to-racket "geiser-racket"
  57   "Start a Geiser Racket REPL, or switch to a running one." t)
  58
  59 (autoload 'connect-to-racket "geiser-racket"
  60   "Connect to a remote Geiser Racket REPL." t)
  61
  62 (autoload 'geiser-mode "geiser-mode"
  63   "Minor mode adding Geiser REPL interaction to Scheme buffers." t)
  64
  65 (autoload 'turn-on-geiser-mode "geiser-mode"
  66   "Enable Geiser's mode (useful in Scheme buffers)." t)
  67
  68 (autoload 'turn-off-geiser-mode "geiser-mode"
  69   "Disable Geiser's mode (useful in Scheme buffers)." t)
  70
  71 (autoload 'geiser-mode--maybe-activate "geiser-mode")
  72
  73 ;;;###autoload
  74 (mapc (lambda (group)
  75         (custom-add-load group (symbol-name group))
  76         (custom-add-load 'geiser (symbol-name group)))
  77       '(geiser
  78         geiser-repl
  79         geiser-autodoc
  80         geiser-doc
  81         geiser-debug
  82         geiser-faces
  83         geiser-mode
  84         geiser-guile
  85         geiser-image
  86         geiser-racket
  87         geiser-implementation
  88         geiser-xref))
  89
  90 \f
  91 ;;; Setup:
  92
  93 ;;;###autoload
  94 (add-hook 'scheme-mode-hook 'geiser-mode--maybe-activate)
  95 ;;;###autoload
  96 (add-to-list 'auto-mode-alist '("\\.rkt\\'" . scheme-mode))
  97
  98 \f
  99 (provide 'geiser)