From fc7a55b4e6d0098e670e714de03b9a1f589ead51 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Tue, 23 Apr 2024 23:40:31 -0400
Subject: [PATCH] main: Read from root of live USB

---
 main.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/main.tcl b/main.tcl
index fa82a336..bd4bc587 100644
--- a/main.tcl
+++ b/main.tcl
@@ -594,7 +594,9 @@ if {[info exists ::entry]} {
         }
         foreach programFilename [list {*}[glob virtual-programs/*.folk] \
                                      {*}[glob virtual-programs/*/*.folk] \
-                                     {*}[glob -nocomplain "user-programs/[info hostname]/*.folk"]] {
+                                     {*}[glob -nocomplain "user-programs/[info hostname]/*.folk"] \
+                                     {*}[glob -nocomplain "$::env(HOME)/folk-live/*.folk"] \
+                                     {*}[glob -nocomplain "$::env(HOME)/folk-live/*/*.folk"]] {
             if {[string match "*/_archive/*" $programFilename]} { continue }
             loadProgram $programFilename
         }