# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1718586805 14400
# Node ID 8f6b1cd443fedef99facee52ef1646a39a62a348
# Parent  8314299755f9f8ddb259b2ddcc6e9ed0317ce9f9
bump

diff -r 8314299755f9 -r 8f6b1cd443fe autogen.lisp
--- a/autogen.lisp	Sun Jun 16 20:28:07 2024 -0400
+++ b/autogen.lisp	Sun Jun 16 21:13:25 2024 -0400
@@ -71,13 +71,23 @@
 (defun make-default ()
   (std/thread:wait-for-threads
    (list (sb-thread:make-thread (lambda () (sk-call* *skel-project* :repos)))
-         (sb-thread:make-thread (lambda () (sk-call* *skel-project* :packy-repos))))))
+         (sb-thread:make-thread (lambda () (sk-call* *skel-project* :packy-repos)))))
+  (vc:run-hg-command "clone" (list ".stash/src/core.hg" ".stash/src/core"))
+  (vc:run-hg-command "clone" (list ".stash/src/home.hg" ".stash/src/home"))
+  (vc:run-hg-command "clone" (list ".stash/src/etc.hg" ".stash/src/etc")))
 
 (defun make-pods ()
+  (vc:run-hg-command "clone" (list ".stash/src/pod.hg" ".stash/src/pod"))
   (std/thread:wait-for-threads
    (list (sb-thread:make-thread (lambda () (sk-call* *skel-project* :archlinux :box)))
          (sb-thread:make-thread (lambda () (sk-call* *skel-project* :alpine :worker))))))
 
+(defun make-boxes ()
+  (vc:run-hg-command "clone" (list ".stash/src/box.hg" ".stash/src/box")))
+
+(defun make-org ()
+  (vc:run-hg-command "clone" (list ".stash/src/org.hg" ".stash/src/org")))
+
 (defun autogen ()
   "Auto-generate the INFRA system."
   (info! "starting autogen")
diff -r 8314299755f9 -r 8f6b1cd443fe skelfile
--- a/skelfile	Sun Jun 16 20:28:07 2024 -0400
+++ b/skelfile	Sun Jun 16 21:13:25 2024 -0400
@@ -20,13 +20,15 @@
         unzstd comp.tar.zst && tar -xf comp.tar -C src && rm comp.tar$#)
  (packy-repos (src) #$cd .stash && curl -O https://vc.compiler.company/src/packy.tar.zst$#)
  ;; containers
- (archlinux () #$podman build -f pod/Containerfile.archlinux . -t localhost/archlinux$#)
- (alpine () #$podman build -f pod/Containerfile.alpine . -t localhost/alpine$#)
- (ubuntu () #$podman build -f pod/Containerfile.alpine . -t localhost/alpine$#)
- (box (archlinux) #$podman build -f pod/Containerfile.box . -t localhost/box$#)
- (worker (alpine) #$podman build -f pod/Containerfile.worker . -t localhost/worker$#)
- (operator (box) #$podman build -f pod/Containerfile.operator . -t localhost/operator$#)
- (containers (archlinux alpine ubuntu box worker operator))
+ (archlinux () #$podman build -f .stash/src/pod/Containerfile.archlinux . -t localhost/archlinux$#)
+ (alpine () #$podman build -f .stash/src/pod/Containerfile.alpine . -t localhost/alpine$#)
+ (ubuntu () #$podman build -f .stash/src/pod/Containerfile.alpine . -t localhost/alpine$#)
+ (box (archlinux) #$podman build -f .stash/src/pod/Containerfile.box . -t localhost/box$#)
+ (worker (alpine) #$podman build -f .stash/src/pod/Containerfile.worker . -t localhost/worker$#)
+ (operator (box) #$podman build -f .stash/src/pod/Containerfile.operator . -t localhost/operator$#)
+ (vc (worker) #$podman build -f .stash/src/pod/Containerfile.vc . -t localhost/vc$#)
+ (core (operator) #$podman build -f .stash/src/pod/Containerfile.core . -t localhost/core$#)
+ (containers (archlinux alpine ubuntu box worker operator vc))
  ;; programs
  (bootstrap () #$./bootstrap.sh$#)
  (emacs (src) #$./scripts/get-emacs.sh$#