1 ;; geiser-reload.el -- unload/load geiser packages
3 ;; Copyright (C) 2009, 2010, 2012 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>.
10 ;; Start date: Sat Aug 22, 2009 23:04
14 (require 'geiser-repl
)
15 (require 'geiser-mode
)
16 (require 'geiser-custom
)
17 (require 'geiser-base
)
19 (require 'geiser-load nil t
)
20 (require 'geiser-install nil t
)
25 (defmacro geiser--features-list
()
53 (defun geiser-unload ()
54 "Unload all Geiser modules."
56 (let ((fs (geiser--features-list)))
57 (unload-feature 'geiser-reload t
)
59 (when (featurep f
) (unload-feature f t
)))
60 (remove-hook 'scheme-mode-hook
'geiser-mode--maybe-activate
)))
62 (defun geiser-reload (&optional arg
)
64 With prefix arg, prompts for the DIRECTORY from which Geiser should be
67 (let* ((old-dir geiser-elisp-dir
)
68 (dir (or (and arg
(read-directory-name "New Geiser elisp dir: "
69 old-dir old-dir t old-dir
))
71 (unless (or (file-exists-p (expand-file-name "geiser-reload.el" dir
))
72 (file-exists-p (expand-file-name "geiser-reload.elc" dir
)))
73 (error "%s does not contain Geiser!" dir
))
74 (let ((memo (geiser-custom--memoized-state))
75 (repls (geiser-repl--repl-list))
76 (buffers (geiser-mode--buffers)))
78 (setq load-path
(remove old-dir load-path
))
79 (add-to-list 'load-path dir
)
80 (mapc (lambda (x) (set (car x
) (cdr x
))) memo
)
81 (require 'geiser-reload
)
82 (geiser-repl--restore repls
)
83 (geiser-mode--restore buffers
)
84 (message "Geiser reloaded!"))))
87 (provide 'geiser-reload
)