ros dist disable/enable/use/versions

Makefile.am

@@ -33,7 +33,8 @@ LISPS = helper.el \
 	emacs.ros \
 	exec.ros \
 	dist.ros \
-	dist-list.lisp dist-clean.lisp \
+	dist-list.lisp dist-clean.lisp dist-enable.lisp dist-disable.lisp \
+	dist-use.lisp dist-versions.lisp \
 	fmt.ros \
 	get.ros \
 	git.ros \

lisp/dist-disable.lisp

@@ -0,0 +1,10 @@
+(defpackage :roswell.dist.disable
+  (:use :cl))
+(in-package :roswell.dist.disable)
+
+(defun disable (&rest r)
+  (dolist (elm (rest r))
+    (let ((dist (ql-dist:find-dist elm)))
+      (if dist
+          (ql-dist:disable dist)
+          (format t "~A not found.~%" elm)))))

lisp/dist-enable.lisp

@@ -0,0 +1,10 @@
+(defpackage :roswell.dist.enable
+  (:use :cl))
+(in-package :roswell.dist.enable)
+
+(defun enable (&rest r)
+  (dolist (elm (rest r))
+    (let ((dist (ql-dist:find-dist elm)))
+      (if dist
+          (ql-dist:enable dist)
+          (format t "~A not found.~%" elm)))))

lisp/dist-use.lisp

@@ -0,0 +1,13 @@
+(defpackage :roswell.dist.use
+  (:use :cl))
+(in-package :roswell.dist.use)
+
+(defun use (&rest r)
+  (setf r (cdr r))
+  (let* ((name (first r))
+         (version (second r))
+         (alist (ql-dist:available-versions (ql-dist:dist name)))
+         (found (cdr (assoc version alist :test 'equal))))
+    (if found 
+        (ql-dist:install-dist found :replace t)
+        (format t "~A not found.~%" version))))

lisp/dist-versions.lisp

@@ -0,0 +1,10 @@
+(defpackage :roswell.dist.versions
+  (:use :cl))
+(in-package :roswell.dist.versions)
+
+(defun versions (&rest r)
+  (if (rest r)
+      (dolist (v (ql-dist:available-versions (ql-dist:find-dist (second r))))
+        (format t "~A~%" (first v)))
+      (dolist (i (ql-dist:all-dists))
+        (format t "~A~%" i))))