(require 'slime)
|
|
(require 'cl-lib)
|
|
|
|
;;; bits of the following taken from slime-asdf.el
|
|
|
|
(define-slime-contrib slime-quicklisp
|
|
"Quicklisp support."
|
|
(:authors "Matthew Kennedy <burnsidemk@gmail.com>")
|
|
(:license "GPL")
|
|
(:slime-dependencies slime-repl)
|
|
(:swank-dependencies swank-quicklisp))
|
|
|
|
;;; Utilities
|
|
|
|
(defgroup slime-quicklisp nil
|
|
"Quicklisp support for Slime."
|
|
:prefix "slime-quicklisp-"
|
|
:group 'slime)
|
|
|
|
(defvar slime-quicklisp-system-history nil
|
|
"History list for Quicklisp system names.")
|
|
|
|
|
|
|
|
(defun slime-read-quicklisp-system-name (&optional prompt default-value)
|
|
"Read a Quick system name from the minibuffer, prompting with PROMPT."
|
|
(let* ((completion-ignore-case nil)
|
|
(prompt (or prompt "Quicklisp system"))
|
|
(quicklisp-system-names (slime-eval `(swank:list-quicklisp-systems)))
|
|
(prompt (concat prompt (if default-value
|
|
(format " (default `%s'): " default-value)
|
|
": "))))
|
|
(completing-read prompt (slime-bogus-completion-alist quicklisp-system-names)
|
|
nil nil nil
|
|
'slime-quicklisp-system-history default-value)))
|
|
|
|
(defun slime-quicklisp-quickload (system)
|
|
"Load a Quicklisp system."
|
|
(slime-save-some-lisp-buffers)
|
|
(slime-display-output-buffer)
|
|
(slime-repl-shortcut-eval-async `(ql:quickload ,system)))
|
|
|
|
;;; REPL shortcuts
|
|
|
|
(defslime-repl-shortcut slime-repl-quicklisp-quickload ("quicklisp-quickload" "ql")
|
|
(:handler (lambda ()
|
|
(interactive)
|
|
(slime-quicklisp-quickload (slime-read-quicklisp-system-name))))
|
|
(:one-liner "Load a system known to Quicklisp."))
|
|
|
|
(provide 'slime-quicklisp)
|