From 708205e21031dd016172523ef15e9aeda4417412 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Wed, 4 Mar 2009 02:07:41 +0100
Subject: New geiser-reload command. New geiser command.

---
 elisp/geiser.el | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)

(limited to 'elisp/geiser.el')

diff --git a/elisp/geiser.el b/elisp/geiser.el
index 3bdc218..ea41779 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -45,6 +45,9 @@
 
 ;;; Autoloads:
 
+(autoload 'geiser "geiser-repl.el"
+  "Start a Geiser REPL, or switch to a running one." t)
+
 (autoload 'run-guile "geiser-repl.el"
   "Start a Geiser Guile REPL, or switch to a running one." t)
 
@@ -69,6 +72,67 @@
 (defun geiser-setup ()
   (geiser-setup-scheme-mode))
 
+
+;;; Reload:
+
+(defmacro geiser--features-list ()
+  (quote '(
+           geiser-mode
+           geiser-repl
+           geiser-doc
+           geiser-edit
+           geiser-completion
+           geiser-autodoc
+           geiser-compile
+           geiser-debug
+           geiser-eval
+           geiser-connection
+           geiser-syntax
+           geiser-log
+           geiser-custom
+           geiser-base
+           geiser-popup
+           )))
+
+(defun geiser-unload-function ()
+  (dolist (feature (geiser--features-list))
+    (when (featurep feature) (unload-feature feature t)))
+  t)
+
+(defun geiser-unload ()
+  (interactive)
+  (when (featurep 'geiser) (unload-feature 'geiser)))
+
+(defun geiser-reload (&optional arg)
+  "Reload Geiser.
+With prefix arg, prompts for the DIRECTORY in which Geiser should be
+loaded."
+  (interactive "P")
+  (let* ((dir (or (and arg (read-directory-name "New Geiser root dir: "
+                                                geiser-root-dir
+                                                geiser-root-dir
+                                                t
+                                                geiser-root-dir))
+                  geiser-root-dir))
+         (geiser-main-file (expand-file-name "elisp/geiser.el" dir))
+         (repl (and (featurep 'geiser-repl) (geiser-repl--live-p)))
+         (buffers (and (featurep 'geiser-mode) (geiser-mode--buffers))))
+    (unless (file-exists-p geiser-main-file)
+      (error "%s does not contain Geiser!" dir))
+    (remove geiser-elisp-dir load-path)
+    (geiser-unload)
+    (load-file geiser-main-file)
+    (geiser-setup)
+    (when repl
+      (load-library "geiser-repl")
+      (geiser 'repl))
+    (when buffers
+      (load-library "geiser-mode")
+      (dolist (b buffers)
+        (set-buffer b)
+        (geiser-mode 1)))
+    (message "Geiser reloaded!")))
+
 
 (provide 'geiser)
 ;;; geiser.el ends here
-- 
cgit v1.2.3