main: Read from root of live USB

FolkComputer · Apr 24, 2024 · fc7a55b · fc7a55b
1 parent aa53782
commit fc7a55b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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
         }