elisp/geiser-reload.el

   1 ;; geiser-reload.el -- unload/load geiser packages
   2
   3 ;; Copyright (C) 2009, 2010 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 ;; Start date: Sat Aug 22, 2009 23:04
  11
  12 \f
  13
  14 (require 'geiser-repl)
  15 (require 'geiser-mode)
  16 (require 'geiser-custom)
  17 (require 'geiser-base)
  18 (require 'geiser)
  19 (require 'geiser-load nil t)
  20 (require 'geiser-install nil t)
  21
  22 \f
  23 ;;; Reload:
  24
  25 (defmacro geiser--features-list ()
  26   (quote '(
  27            geiser-mode
  28            geiser-repl
  29            geiser-doc
  30            geiser-xref
  31            geiser-compile
  32            geiser-debug
  33            geiser-company
  34            geiser-edit
  35            geiser-completion
  36            geiser-autodoc
  37            geiser-eval
  38            geiser-connection
  39            geiser-syntax
  40            geiser-menu
  41            geiser-inf
  42            geiser-impl
  43            geiser-custom
  44            geiser-log
  45            geiser-popup
  46            geiser-base
  47            geiser-version
  48            geiser-install
  49            geiser
  50            )))
  51
  52 (defun geiser-unload ()
  53   "Unload all Geiser modules."
  54   (interactive)
  55   (let ((fs (geiser--features-list)))
  56     (unload-feature 'geiser-reload t)
  57     (dolist (f fs)
  58       (when (featurep f) (unload-feature f t)))))
  59
  60 (defun geiser-reload (&optional arg)
  61   "Reload Geiser.
  62 With prefix arg, prompts for the DIRECTORY from which Geiser should be
  63 loaded again."
  64   (interactive "P")
  65   (let* ((old-dir geiser-elisp-dir)
  66          (dir (or (and arg (read-directory-name "New Geiser elisp dir: "
  67                                                 old-dir old-dir t old-dir))
  68                   old-dir)))
  69     (unless (or (file-exists-p (expand-file-name "geiser-reload.el" dir))
  70                 (file-exists-p (expand-file-name "geiser-reload.elc" dir)))
  71       (error "%s does not contain Geiser!" dir))
  72     (let ((memo (geiser-custom--memoized-state))
  73           (repls (geiser-repl--repl-list))
  74           (buffers (geiser-mode--buffers)))
  75       (geiser-unload)
  76       (setq load-path (remove old-dir load-path))
  77       (add-to-list 'load-path dir)
  78       (mapc (lambda (x) (set (car x) (cdr x))) memo)
  79       (require 'geiser-reload)
  80       (geiser-repl--restore repls)
  81       (geiser-mode--restore buffers)
  82       (message "Geiser reloaded!"))))
  83
  84 \f
  85 (provide 'geiser-reload)
  86 ;;; geiser-reload.el ends here