feat: Add load command

Author: jcs090218

Qob

@@ -13,14 +13,6 @@
 (depends-on "fsdb" "https://github.com/billstclair/fsdb" :git)
 
 ;; Test hooks
-(qob-add-hook 'qob-before-command-hook
-              (lambda ()
-                (qob-info "? before command")))
-
-(qob-add-hook 'qob-after-command-hook
-              (lambda ()
-                (qob-info "? after command")))
-
 (qob-add-hook 'qob-before-info-hook
               (lambda ()
                 (qob-info "? before info")))

cmds/core/load.lisp

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

cmds/core/locate.lisp

@@ -1,4 +1,4 @@
-;;;; cmds/core/locate.lisp --- Build executable
+;;;; cmds/core/locate.lisp --- Print the Qob installed location
 
 ;;; Commentary
 ;;

cmds/qob.lisp

@@ -67,6 +67,7 @@
                    ,(qob-cli/install-deps:command)
                    ,(qob-cli/install-dists:command)
                    ,(qob-cli/list:command)
+                   ,(qob-cli/load:command)
                    ,(qob-cli/locate:command)
                    ,(qob-cli/status:command)
                    ,(qob-cli/uninstall:command))))

lisp/_prepare.lisp

@@ -60,6 +60,15 @@
                     :error-output :interactive
                     :force-shell t))
 
+(defun qob-expand-file-specs (specs)
+  "Expand file SPECS."
+  (let ((temp-files))
+    (mapcar (lambda (spec)
+              (setq temp-files (append temp-files
+                                       (directory spec))))
+            specs)
+    temp-files))
+
 ;;
 ;;; Color
 
@@ -158,7 +167,7 @@ The arguments FMT and ARGS are used to form the output message."
 Argument ENV-NAME is used to get the argument string."
   (let* ((args (uiop:getenv env-name))
          (args (concatenate 'string "'" args)))
-    (qob-eval args)))
+    (mapcar #'qob-2str (qob-eval args))))
 
 (defvar qob-args (qob-parse-args "QOB_ARGS")
   "Positionl arguments (no options).")
@@ -296,7 +305,7 @@ the `qob-start' execution.")
 ;;; Number (with arguments)
 (defun qob-verbose ()
   "Non-nil when flag has value (`-v', `--verbose')."
-  (qob--flag-value "--verbose"))
+  (parse-integer (qob--flag-value "--verbose")))
 
 ;;
 ;;; Execution
@@ -510,12 +519,7 @@ to actually set up the systems."
                    components)
            (directory "*.asd")
            (directory "*.lisp")
-           (let ((temp-files))
-             (mapcar (lambda (spec)
-                       (setq temp-files (append temp-files
-                                                (directory spec))))
-                     qob-files)
-             temp-files)))
+           (qob-expand-file-specs qob-files)))
     files))
 
 ;;

lisp/core/list.lisp

@@ -1,8 +1,8 @@
-;;;; lisp/core/list.lisp --- Build executable
+;;;; lisp/core/list.lisp --- List the registered systems
 
 ;;; Commentary
 ;;
-;; Command use to list the registered system
+;; Command use to list the registered systems
 ;;
 ;;   $ qob list
 ;;

lisp/core/load.lisp

@@ -0,0 +1,18 @@
+;;;; lisp/core/load.lisp --- Load lisp files
+
+;;; Commentary
+;;
+;; Command use to load lisp files
+;;
+;;   $ qob load [files..]
+;;
+
+;;; Code
+
+(qob-start
+ (let ((files (qob-expand-file-specs (qob-args))))
+   (if files
+       (mapc #'load files)
+       (eask-info "(Nothing to load.)"))))
+
+;;; End of lisp/core/load.lisp

qob-cli.asd

@@ -25,6 +25,7 @@
                (:file "cmds/core/install-deps")
                (:file "cmds/core/install-dists")
                (:file "cmds/core/list")
+               (:file "cmds/core/load")
                (:file "cmds/core/locate")
                (:file "cmds/core/status")
                (:file "cmds/core/uninstall")