;;;; -*- Mode: Emacs-lisp -*-

;;; 1. Sessions

(defun pve-add-one-time-hook (hook function &optional append)  
  (lexical-let* ((name (gensym))
                 (hook hook)
                 (function function))
    (setf (symbol-function name) #'(lambda (&rest rest)
                                     (remove-hook hook name)
                                     (apply function rest)
                                     nil))
    (add-hook hook name append)))

(defun pve-load-lisp-session ()
  (interactive)
  (when (slime-connected-p)
    (slime-quit-lisp t))
  (sleep-for 1)
  (pve-add-one-time-hook
   'slime-connected-hook
   (lambda ()
     ;; Presents the user with a list of session files, and allows the
     ;; user to select which one to load. The sessions are retrieved
     ;; from a directory somewhere (like ~/lisp/sessions/).

     ;; A session file may set CL-USER::*SESSION-PACKAGE* and
     ;; CL-USER::*SESSION-DIRECTORY* (both strings) to indicate which
     ;; package and directory the REPL should default to.
     (slime-eval-async '(cl:load "/home/peter/lisp/lisp-sessions/load-lisp-session.lisp")
       (lambda (x) (pve-session-loaded))))
   t)
  (slime))

(defun pve-session-loaded ()
  (let ((package (slime-eval '(cl:when (cl:boundp 'cl-user::*session-package*)
                                       cl-user::*session-package*)))
        (dir (slime-eval '(cl:when (cl:boundp 'cl-user::*session-directory*)
                                   cl-user::*session-directory*))))
    (when package
      (slime-repl-set-package package))
    (when dir
      (slime-set-default-directory dir))))

;;; 2. Session using the current buffer.

(defvar pve-slime-and-load-file nil)

(defun pve-slime-and-load-file (file)
  (interactive "fFile")
  (when (slime-connected-p)
    (slime-quit-lisp t))
  (sleep-for 1)
  (setq pve-slime-and-load-file file)
  (pve-add-one-time-hook 'slime-connected-hook
                         (lambda ()
                           (when pve-slime-and-load-file
                             (slime-eval-async `(cl:load ,pve-slime-and-load-file)
                               (lambda (x) (pve-session-loaded)))))
                         t)
  (slime))

;;; Start slime with the current buffer.
(defun pve-slime-and-load-this-file ()
  (interactive)
  (pve-slime-and-load-file (buffer-file-name)))

;;; Restart slime and load whatever buffer was loaded last.
(defun pve-slime-and-load-last-file ()
  (interactive)
  (pve-slime-and-load-file pve-slime-and-load-file))

;;; Quick restart of session.
(define-key lisp-mode-map [f7] (quote pve-slime-and-load-last-file))
(define-key slime-repl-mode-map [f7] (quote pve-slime-and-load-last-file))