;;; Time-stamp: <2003-04-19 15:03:51 jcgs>

(require 'contexts)

(defun save-context-for-reload ()
  (save-window-excursion
    (context-save nil)
    (find-file (expand-file-name "context.el"
				 emacs-save-restorers))
    (erase-buffer)
    (insert "(require 'contexts)\n")
    (insert "(mapcar 'context-add '(\n")
    (mapcar '(lambda (context)
	       (if (not (eq context current-context))
		   (insert (format "  \"%s\"\n"
				   (car context)))))
	    contexts-loaded)
    (insert "))\n")
    (insert (format "(context-load \"%s\")\n"
		    current-context))
    (when contexts-observed
      (insert "(setq contexts-observed '(\n")
      (mapcar '(lambda (observed)
		 (insert (format " (%S" (car observed)))
		 (mapcar '(lambda (observed-dir)
			    (insert (format "\n    %S" observed-dir)))
			 (cdr observed))
		 (insert ")\n"))
	      contexts-observed)

      (insert "))\n"))
    (basic-save-buffer)
    (kill-buffer (current-buffer))))

(save-context-for-reload)

;;; end of savers2/contexts.el