elisp/geiser.el

   1 ;;; geiser.el --- GNU Emacs and Scheme talk to each other
   2
   3 ;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2015 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 ;;;###autoload
  16 (defconst geiser-elisp-dir (file-name-directory load-file-name)
  17   "Directory containing Geiser's Elisp files.")
  18
  19 ;;;###autoload
  20 (defconst geiser-scheme-dir
  21   (let ((d (expand-file-name "./scheme/" geiser-elisp-dir)))
  22     (if (file-directory-p d)
  23         d
  24       (expand-file-name "../scheme/" geiser-elisp-dir)))
  25   "Directory containing Geiser's Scheme files.")
  26
  27 ;;;###autoload
  28 (when (not (member geiser-elisp-dir load-path))
  29   (add-to-list 'load-path geiser-elisp-dir))
  30
  31 \f
  32 ;;; Autoloads:
  33
  34 ;;;###autoload
  35 (autoload 'geiser-version "geiser-version" "Echo Geiser's version." t)
  36
  37 ;;;###autoload
  38 (autoload 'geiser-unload "geiser-reload" "Unload all Geiser code." t)
  39
  40 ;;;###autoload
  41 (autoload 'geiser-reload "geiser-reload" "Reload Geiser code." t)
  42
  43 ;;;###autoload
  44 (autoload 'geiser "geiser-repl"
  45   "Start a Geiser REPL, or switch to a running one." t)
  46
  47 ;;;###autoload
  48 (autoload 'run-geiser "geiser-repl" "Start a Geiser REPL." t)
  49
  50 ;;;###autoload
  51 (autoload 'geiser-connect "geiser-repl"
  52   "Start a Geiser REPL connected to a remote server." t)
  53
  54 ;;;###autoload
  55 (autoload 'geiser-connect-local "geiser-repl"
  56   "Start a Geiser REPL connected to a remote server over a Unix-domain socket."
  57   t)
  58
  59 ;;;###autoload
  60 (autoload 'switch-to-geiser "geiser-repl"
  61   "Switch to a running one Geiser REPL." t)
  62
  63 ;;;###autoload
  64 (autoload 'run-guile "geiser-guile" "Start a Geiser Guile REPL." t)
  65
  66 ;;;###autoload
  67 (autoload 'switch-to-guile "geiser-guile"
  68   "Start a Geiser Guile REPL, or switch to a running one." t)
  69
  70 ;;;###autoload
  71 (autoload 'connect-to-guile "geiser-guile"
  72   "Connect to a remote Geiser Guile REPL." t)
  73
  74 ;;;###autoload
  75 (autoload 'run-racket "geiser-racket" "Start a Geiser Racket REPL." t)
  76
  77 ;;;###autoload
  78 (autoload 'run-gracket "geiser-racket" "Start a Geiser GRacket REPL." t)
  79
  80 ;;;###autoload
  81 (autoload 'switch-to-racket "geiser-racket"
  82   "Start a Geiser Racket REPL, or switch to a running one." t)
  83
  84 ;;;###autoload
  85 (autoload 'connect-to-racket "geiser-racket"
  86   "Connect to a remote Geiser Racket REPL." t)
  87
  88 ;;;###autoload
  89 (autoload 'run-chicken "geiser-chicken" "Start a Geiser Chicken REPL." t)
  90
  91 ;;;###autoload
  92 (autoload 'switch-to-chicken "geiser-chicken"
  93   "Start a Geiser Chicken REPL, or switch to a running one." t)
  94
  95 ;;;###autoload
  96 (autoload 'connect-to-chicken "geiser-chicken"
  97   "Connect to a remote Geiser Chicken REPL." t)
  98
  99 ;;;###autoload
 100 (autoload 'run-mit "geiser-mit" "Start a Geiser MIT/GNU Scheme REPL." t)
 101
 102 ;;;###autoload
 103 (autoload 'switch-to-mit "geiser-mit"
 104   "Start a Geiser MIT/GNU Scheme REPL, or switch to a running one." t)
 105
 106 ;;;###autoload
 107 (autoload 'geiser-mode "geiser-mode"
 108   "Minor mode adding Geiser REPL interaction to Scheme buffers." t)
 109
 110 ;;;###autoload
 111 (autoload 'turn-on-geiser-mode "geiser-mode"
 112   "Enable Geiser's mode (useful in Scheme buffers)." t)
 113
 114 ;;;###autoload
 115 (autoload 'turn-off-geiser-mode "geiser-mode"
 116   "Disable Geiser's mode (useful in Scheme buffers)." t)
 117
 118 ;;;###autoload
 119 (autoload 'geiser-mode--maybe-activate "geiser-mode")
 120
 121 ;;;###autoload
 122 (mapc (lambda (group)
 123         (custom-add-load group (symbol-name group))
 124         (custom-add-load 'geiser (symbol-name group)))
 125       '(geiser
 126         geiser-repl
 127         geiser-autodoc
 128         geiser-doc
 129         geiser-debug
 130         geiser-faces
 131         geiser-mode
 132         geiser-guile
 133         geiser-image
 134         geiser-racket
 135         geiser-chicken
 136         geiser-implementation
 137         geiser-xref))
 138
 139 \f
 140 ;;; Setup:
 141
 142 ;;;###autoload
 143 (add-hook 'scheme-mode-hook 'geiser-mode--maybe-activate)
 144 ;;;###autoload
 145 (add-to-list 'auto-mode-alist '("\\.rkt\\'" . scheme-mode))
 146
 147 \f
 148 (provide 'geiser)
 149
 150 ;;; geiser.el ends here