feat: Work on dists

Author: jcs090218

README.md

@@ -28,12 +28,15 @@ OPTIONS:
   -v, --verbose <INT>  set verbosity from 0 to 5 [default: 3]
 
 COMMANDS:
-  build         Build the executable
-  dists         List out all installed dists
-  install       Install packages
-  install-deps  Automatically install system dependencies
-  uninstall     Uninstall packages
-  list          List the registered system
+  build          Build the executable
+  dists          List out all installed dists
+  info           Display information about the current system(s)
+  install        Install packages
+  install-deps   Automatically install system dependencies
+  install-dists  Install dists
+  list           List the registered system
+  status         Display the state of the workspac
+  uninstall      Uninstall packages
 
 AUTHORS:
   Jen-Chieh Shen <jcs090218@gmail.com>

cmds/core/dists.lisp

@@ -1,4 +1,4 @@
-;;;; cmds/core/dists.lisp --- Build executable
+;;;; cmds/core/dists.lisp --- Print all dists info
 
 ;;; Commentary
 ;;

cmds/core/info.lisp

@@ -1,4 +1,4 @@
-;;;; cmds/core/info.lisp --- Build executable
+;;;; cmds/core/info.lisp --- Print the system info
 
 ;;; Commentary
 ;;

cmds/core/install-deps.lisp

@@ -1,4 +1,4 @@
-;;;; cmds/core/install-deps.lisp --- Build executable
+;;;; cmds/core/install-deps.lisp --- Install dependencies
 
 ;;; Commentary
 ;;

cmds/core/install-dists.lisp

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

cmds/core/status.lisp

@@ -0,0 +1,32 @@
+;;;; cmds/core/status.lisp --- Print the workspace status
+
+;;; Commentary
+;;
+;; The `status' command definition.
+;;
+
+;;; Code
+
+(defpackage qob-cli/status
+  (:use cl)
+  (:export command))
+
+(in-package :qob-cli/status)
+
+(defun options ()
+  "Options for `status' command."
+  (list ))
+
+(defun handler (cmd)
+  "Handler for `status' command."
+  (qob-cli:call-script "core/status" cmd))
+
+(defun command ()
+  "The `status' command."
+  (clingon:make-command
+   :name "status"
+   :description "Display the state of the workspac"
+   :options (options)
+   :handler #'handler))
+
+;;; End of cmds/core/status.lisp

cmds/core/uninstall.lisp

@@ -1,4 +1,4 @@
-;;;; cmds/core/uninstall.lisp --- Build executable
+;;;; cmds/core/uninstall.lisp --- Uninstall dependencies
 
 ;;; Commentary
 ;;

cmds/qob.lisp

@@ -60,7 +60,9 @@
                    ,(qob-cli/info:command)
                    ,(qob-cli/install:command)
                    ,(qob-cli/install-deps:command)
-                   ,(qob-cli/uninstall:command)
-                   ,(qob-cli/list:command))))
+                   ,(qob-cli/install-dists:command)
+                   ,(qob-cli/list:command)
+                   ,(qob-cli/status:command)
+                   ,(qob-cli/uninstall:command))))
 
 ;;; End of cmds/qob.lisp

lisp/core/info.lisp

@@ -13,6 +13,7 @@
 
 (defun qob-info--print-system (name system)
   "Print the SYSTEM info."
+  (qob-println "")
   (let ((author      (asdf:system-author system))
         (maintainer  (asdf:system-maintainer system))
         (version     (asdf:component-version system))
@@ -21,7 +22,7 @@
         (license     (asdf:system-license system))
         (depends-on  (asdf:system-depends-on system)))
     (qob-println "~A (~A) | deps: ~A"
-                 (qob-ansi-green name)
+                 (qob-ansi-green (string-downcase name))
                  (qob-ansi-yellow version)
                  (qob-ansi-cyan (length depends-on)))
     (when description

lisp/core/install-dists.lisp

@@ -0,0 +1,21 @@
+;;;; lisp/core/install-dists.lisp --- Install dists
+
+;;; Commentary
+;;
+;; Command use to install dists,
+;;
+;;   $ qob install-dists [names..]
+;;
+
+;;; Code
+
+(qob-init-ql)
+
+(let ((names qob-args))
+  (cond ((zerop (length names))
+         (qob-help "core/install-dists"))
+        (t
+         (dolist (name names)
+           (ql-dist:install-dist name :prompt nil)))))
+
+;;; End of lisp/core/install-dists.lisp

lisp/core/status.lisp

@@ -0,0 +1,16 @@
+;;;; lisp/core/status.lisp --- Print the current workspace status
+
+;;; Commentary
+;;
+;; Command use to print the workspace statu,
+;;
+;;   $ qob status
+;;
+
+;;; Code
+
+(qob-init-asds)
+
+;; TODO: ..
+
+;;; End of lisp/core/status.lisp

lisp/help/core/info

@@ -0,0 +1,4 @@
+
+💡 You need to specify the systems you want to print the info:
+
+   $ qob info <system-1> <system-2> ...

qob-cli.asd

@@ -16,8 +16,10 @@
                (:file "cmds/core/info")
                (:file "cmds/core/install")
                (:file "cmds/core/install-deps")
-               (:file "cmds/core/uninstall")
+               (:file "cmds/core/install-dists")
                (:file "cmds/core/list")
+               (:file "cmds/core/status")
+               (:file "cmds/core/uninstall")
                (:file "cmds/qob")
                ;; Program
                (:file "src/main"))