12 files changed, 8 insertions(+), 4 deletions(-)

R {cap => src/cap}.tcl
R {db => src/db}/main.tcl
R {irc => src/irc}.tcl
R {irc => src/irc}/main.tcl
R {main => src/main}.tcl
R {migrate_core => src/migrate_core}.tcl
R {plugins => src/plugins}.tcl
R {spdx => src/spdx}/dump.tcldict.gz
R {spdx => src/spdx}/gen.tcl
R {spdx => src/spdx}/lib.tcl
R {threads => src/threads}.tcl
R {ui => src/ui}/main.tcl

@@ 2,6 2,10 @@
 
 set path [file dirname [dict get [info frame 0] file]]
 set version v0.0.1
+proc src {file} {
+  global path
+  uplevel [list source [file join $path $file]]
+}
 
 package require Thread
 thread::id; # avoid use-after-free


@@ 12,7 16,7 @@ package require sqlite3
 ${log}::info "tclircc $version <https://amehut.dev/~aleteoryx/tclircc>"
 ${log}::info "running from $path"
 
-source threads.tcl
+src threads.tcl
 
 proc on_threads_update {} {
   puts "threads updated!"


@@ 43,14 47,14 @@ start_thread db
 
 thread::send [t::ns tclircc::db] {path_to_core} core_db_path
 sqlite3 core_db $core_db_path -create true -fullmutex true
-source migrate_core.tcl
+src migrate_core.tcl
 
-source plugins.tcl
+src plugins.tcl
 
 start_thread irc
 start_thread ui
 
-plugins::load [file join $path testplugin]
+plugins::load [file join $path .. testplugin]
 
 ${log}::debug "opening initial window..."
 t::exec tclircc::ui {