# Aliases

# Interface
namespace eval ::alias {
    namespace export wproj
    namespace import ::custom::write_project_tcl_git
    namespace import ::current_project
    namespace import ::common::get_property
}

# Define
namespace eval ::alias {
    proc wproj {} {

        # Change directory project directory if not in it yet
        set proj_dir [regsub {\/vivado_proj$} [get_property DIRECTORY [current_project]] {}]
        set current_dir [pwd]
        if {
            [string compare -nocase $proj_dir $current_dir]
        } then {
            puts "Not in project directory"
            puts "Changing directory to: ${proj_dir}"
            cd $proj_dir
        }

        # Generate project
        set proj_file [current_project].tcl
        puts $proj_file
        write_project_tcl_git -no_copy_sources -force $proj_file
    }
}