Factor out CLI into its own module

examples/inventory.scm

@@ -1,5 +1,4 @@
-(use-modules (ordo inventory)
+(use-modules (ordo))
-             (ordo connection))
 
 (add-host! "little-rascal"
            (local-connection)

modules/ordo.scm

@@ -1,5 +1,4 @@
 (define-module (ordo)
-  #:declarative? #f
   #:use-module (ice-9 match)
   #:use-module (ordo playbook)
   #:use-module (ordo play)
@@ -9,14 +8,4 @@
   #:use-module (ordo inventory)
   #:use-module (ordo vars)
   #:use-module (ordo logger)
-  #:export (main)
   #:re-export (add-host! local-connection ssh-connection run playbook play task handler $))
-
-(define (main args)
-  (match-let (((_ inventory-path playbook-path) args))
-    (setup-logging #:level 'DEBUG)
-    (init-command-line-vars! '())
-    (load inventory-path)
-    (let ((playbook (load playbook-path)))
-      (run-playbook playbook)))
-  (quit))

modules/ordo/cli.scm

@@ -0,0 +1,16 @@
+(define-module (ordo cli)
+  #:use-module (ice-9 match)
+  #:use-module (ordo logger)
+  #:use-module (ordo vars)
+  #:use-module (ordo playbook)
+  #:declarative? #f
+  #:export (main))
+
+(define (main args)
+  (match-let (((_ inventory-path playbook-path) args))
+    (setup-logging #:level 'DEBUG)
+    (init-command-line-vars! '())
+    (load inventory-path)
+    ;;    (let ((playbook (load playbook-path)))
+    ;;      (run-playbook playbook))
+    (quit)))