prepare uninstall

cmds/core/uninstall.lisp

@@ -0,0 +1,33 @@
+;;;; cmds/core/uninstall.lisp --- Build executable
+
+;;; Commentary
+;;
+;; The `uninstall' command definition.
+;;
+
+;;; Code
+
+(defpackage qob-cli/uninstall
+  (:use cl)
+  (:export command))
+
+(in-package :qob-cli/uninstall)
+
+(defun options ()
+  "Options for `uninstall' command."
+  (list ))
+
+(defun handler (cmd)
+  "Handler for `uninstall' command."
+  (qob-cli:call-script "core/uninstall" cmd))
+
+(defun command ()
+  "The `uninstall' command."
+  (clingon:make-command
+   :name "uninstall"
+   :description "Uninstall packages"
+   :usage "[names..]"
+   :options (options)
+   :handler #'handler))
+
+;;; End of cmds/core/uninstall.lisp

cmds/qob.lisp

@@ -59,6 +59,7 @@
                    ,(qob-cli/dists:command)
                    ,(qob-cli/install:command)
                    ,(qob-cli/install-deps:command)
+                   ,(qob-cli/uninstall:command)
                    ,(qob-cli/list:command))))
 
 ;;; End of cmds/qob.lisp

lisp/core/uninstall.lisp

@@ -0,0 +1,29 @@
+;;;; lisp/core/uninstall.lisp --- Uninstall systems
+
+;;; Commentary
+;;
+;; Command use to uninstall systems,
+;;
+;;   $ qob uninstall [names..]
+;;
+;;
+;;  Optional arguments:
+;;
+;;    [names..]     name of the system(s) to uninstall
+;;
+
+;;; Code
+
+(qob-init-ql)
+
+(qob-load "shared")
+
+(let ((names qob-args))
+  (cond ((zerop (length names))
+         (qob-help "core/uninstall"))
+        (t
+         ;; TODO: ..
+         ;;(qob-install-systems names)
+         )))
+
+;;; End of lisp/core/uninstall.lisp

qob-cli.asd

@@ -14,6 +14,7 @@
                (:file "cmds/core/dists")
                (:file "cmds/core/install")
                (:file "cmds/core/install-deps")
+               (:file "cmds/core/uninstall")
                (:file "cmds/core/list")
                (:file "cmds/qob")
                ;; Program