From 5c83238aa002a0590bd42f37a3344fda24ca547a Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Thu, 5 Feb 2009 23:50:13 +0100 Subject: Emacs startup file --- elisp/geiser.el | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 elisp/geiser.el (limited to 'elisp') diff --git a/elisp/geiser.el b/elisp/geiser.el new file mode 100644 index 0000000..2ce4e82 --- /dev/null +++ b/elisp/geiser.el @@ -0,0 +1,56 @@ +;;; geiser.el --- main geiser file + +;; Copyright (C) 2009 Jose Antonio Ortega Ruiz + +;; Author: Jose Antonio Ortega Ruiz +;; Keywords: languages, tools + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see . + +;;; Commentary: + +;; Autoloads and basic setup for geiser. + +;;; Code: + + +;;; Locations: + +(defvar geiser-root-dir nil + "Geiser's root directory.") + +(defvar geiser-elisp-dir nil + "Directory containing Geiser's Elisp files.") + +(defvar geiser-scheme-dir nil + "Directory containing Geiser's Scheme files.") + +(setq geiser-elisp-dir (file-name-directory load-file-name)) +(setq geiser-scheme-dir (expand-file-name "../scheme/" geiser-elisp-dir)) +(setq geiser-root-dir (expand-file-name "../" geiser-elisp-dir)) + +(add-to-list 'load-path geiser-elisp-dir) + + +;;; Autoloads: + +(autoload 'run-guile "geiser-repl.el" + "Start a Geiser Guile REPL, or switch to a running one" t) + +(autoload 'switch-to-guile "geiser-repl.el" + "Start a Geiser Guile REPL, or switch to a running one" t) + + +(provide 'geiser) +;;; geiser.el ends here -- cgit v1.2.3