Commit d14f06af authored by Eric Timmons's avatar Eric Timmons
Browse files

Update client rc

parent 84305500
;;;; clpm config info ;;;; clpm client rc
;;;; ;;;;
;;;; This software is part of CLPM. See README.org for more information. See ;;;; This software is part of CLPM. See README.org for more information. See
;;;; LICENSE for license information. ;;;; LICENSE for license information.
...@@ -37,21 +37,32 @@ ...@@ -37,21 +37,32 @@
(defun quicklisp-alternative-rc () (defun quicklisp-alternative-rc ()
#?";;; Use CLPM as a quicklisp alternative (missing systems are silently installed #?";;; Use CLPM as a quicklisp alternative (missing systems are silently installed
;;; on demand). ;;; on demand).
(require \"asdf\") (require \"asdf\")
#-clpm-client #-clpm-client
(progn (progn
(asdf:load-asd #p\"${(client-asd-pathname)}\") (when (probe-file #p\"${(client-asd-pathname)}\")
(asdf:load-system \"clpm-client\") (asdf:load-asd #p\"${(client-asd-pathname)}\")
(setf (symbol-value (uiop:find-symbol* :*clpm-system-not-found-behavior* :clpm-client)) :install-with-deps) (asdf:load-system \"clpm-client\")
(uiop:symbol-call :clpm-client :activate-clpm-asdf-integration))") (setf (symbol-value (uiop:find-symbol* :*asdf-system-not-found-behavior* :clpm-client)) :install)
(if (uiop:symbol-call :clpm-client :active-context)
(uiop:symbol-call :clpm-client :activate-asdf-integration)
(uiop:symbol-call :clpm-client :activate-context \"default\" :activate-asdf-integration t))))")
(defun default-rc () (defun default-rc ()
#?";;; Load clpm-client with default values by calling cl-user::load-clpm-client. #?";;; Use CLPM with default configuration to install systems on demand.
(require \"asdf\") (require \"asdf\")
(defun load-clpm-client ()
(asdf:load-asd #p\"${(client-asd-pathname)}\") #-clpm-client
(asdf:load-system \"clpm-client\") (progn
(uiop:symbol-call :clpm-client :activate-clpm-asdf-integration))") (when (probe-file #p\"${(client-asd-pathname)}\")
(asdf:load-asd #p\"${(client-asd-pathname)}\")
(asdf:load-system \"clpm-client\")
(if (uiop:symbol-call :clpm-client :active-context)
(uiop:symbol-call :clpm-client :activate-asdf-integration)
(uiop:symbol-call :clpm-client :activate-context \"default\" :activate-asdf-integration t))))")
(define-cli-command (("client" "rc") *client-rc-ui*) (args options) (define-cli-command (("client" "rc") *client-rc-ui*) (args options)
(declare (ignore args)) (declare (ignore args))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment