D365FOWorkspace.psm1

# Depends on d365fo.tools

# Load defaults
$configFile = Get-ChildItem "$PSScriptRoot\config.ps1"
. $configFile.FullName

function Switch-FOWorkspace
{
	<#
	.SYNOPSIS
	Tells F&O (and F&O tools for Visual Studio) where to find source control and binaries.
	#>
	
	param (
		[string] $WorkspaceDir = (Get-Location)
	)

	# You can modify these variables or expose them as function parameters
	$switchPackages = $true
	$switchVsDefaultProjectsPath = $true

	[string]$workspaceMetaDir = Join-Path $WorkspaceDir 'Metadata'
	[string]$workspaceProjectsDir = Join-Path $WorkspaceDir 'Projects'

	# Load DEV config file
	$devConfigPath = $env:USERPROFILE + '\Documents\Visual Studio Dynamics 365\DynamicsDevConfig.xml'

	if (-Not (Test-Path $devConfigPath))
	{
		throw 'Dynamics DEV config file was not found.'
	}

	[xml]$devConfig = Get-Content $devConfigPath
	$webRoot = $devConfig.DynamicsDevConfig.WebRoleDeploymentFolder
	$webConfigPath = $webRoot + '\web.config'
	[xml]$webConfig = Get-Content $webConfigPath

	# Update path to packages
	if ($switchPackages)
	{
		Stop-D365Environment -ShowOriginalProgress

		$appSettings = $webConfig.configuration.appSettings
		$appSettings.SelectSingleNode("add[@key='Aos.MetadataDirectory']").Value = $workspaceMetaDir
		$appSettings.SelectSingleNode("add[@key='Aos.PackageDirectory']").Value = $workspaceMetaDir 
		$appSettings.SelectSingleNode("add[@key='bindir']").Value = $workspaceMetaDir
		$appSettings.SelectSingleNode("add[@key='Common.BinDir']").Value = $workspaceMetaDir
		$appSettings.SelectSingleNode("add[@key='Microsoft.Dynamics.AX.AosConfig.AzureConfig.bindir']").Value = $workspaceMetaDir
		$appSettings.SelectSingleNode("add[@key='Common.DevToolsBinDir']").Value = (Join-Path $workspaceMetaDir 'bin').ToString()

		$webConfig.Save($webConfigPath)
	}

	# Switch the default path for new projects in Visual Studio
	if ($switchVsDefaultProjectsPath)
	{
		$versionNum = if ($VSVersion -eq "2019") {'16'} else {"17"}
		$settingsFilePattern = "$($env:LocalAppData)\Microsoft\VisualStudio\$versionNum*\Settings\CurrentSettings.vssettings"
		
		$settingsFile = Get-ChildItem $settingsFilePattern | Select-Object -First 1
		if ($settingsFile)
		{
			[xml]$vsConfigXml = Get-Content $settingsFile
			$options = $vsConfigXml.UserSettings.ToolsOptions
			$envOptions = $options.SelectSingleNode("ToolsOptionsCategory[@name='Environment']")
			$projOptions = $envOptions.SelectSingleNode("ToolsOptionsSubCategory[@name='ProjectsAndSolution']")
			$projPathElement = $projOptions.SelectSingleNode("PropertyValue[@name='ProjectsLocation']")
			if ($projPathElement.InnerText -ne $workspaceProjectsDir)
			{
				$projPathElement.InnerText = $workspaceProjectsDir
				$vsConfigXml.Save($settingsFile)
			}
		}
		else
		{
			Write-Warning "Visual Studio configuration file was not found."
		}
	}
}

function Get-FOWorkspace
{
	<#
	.SYNOPSIS
	Shows the model store folder currently used by F&O.
	#>
	
    foreach ($drive in (Get-Volume | where OperationalStatus -eq OK | where DriveLetter -ne $null | select -Expand DriveLetter))
	{
		$path = "${drive}:\AosService\WebRoot\web.config"
		
		if (Test-Path -Path $path)
		{
			[xml]$webConfig = Get-Content $path
            $appSettings = $webConfig.configuration.appSettings
	        $appSettings.SelectSingleNode("add[@key='Aos.MetadataDirectory']").Value
		}
	}
}

function Add-FOPackageSymLinks
{
	<#
	.SYNOPSIS
	Creates symbolic links for standard packages in D365FO.
	.DESCRIPTION
	Creates symbolic links for standard packages in D365FO. It requires admin permissions.
	Because only custom packages are stored in version control, downloading code from Azure DevOps
	creates a Metadata folder without standard packages (e.g. ApplicationSuite).
	To be able to connect F&O (and F&O DEV tools) to this folder, we need standard packages as well.
	One option would be copying standard packages there, but it's slow, it would waste disk space
	and it would cause problems with updates.
	Instead, we just create symbolic links to the folders.
	#>
	
	param (
		[string] $WorkspaceDir = (Get-Location)
	)

	if ((Test-Path $WorkspaceDir) -ne $true)
	{
		throw "Path does not exist."
	}

	if ((Split-Path $WorkspaceDir  -Leaf) -eq 'Metadata')
	{
		$workspaceMetaDir = $WorkspaceDir;

	}
	else
	{
		$workspaceMetaDir = Join-Path $WorkspaceDir 'Metadata'
	}

	# For each folder in packages (it assumes that there are no custom packages)
	foreach ($dir in (Get-ChildItem (Get-FOPackagesDir) -dir))
	{	
		$targetDir = (Join-Path $workspaceMetaDir $dir.Name)

		if (Test-Path $targetDir)
		{
			#If there is a already a folder of the same name as the symblic link, delete it
			cmd /c rmdir /s /q $targetDir
		}

		# Create a symbolic link
		New-Item -ItemType SymbolicLink -Path $targetDir -Target $dir.FullName -Force
	}
}


function Get-FOPackagesDir
{
	<#
	.SYNOPSIS
	Tries to find the location of F&O model store (PackagesLocalDirectory).
	#>
	
	if ($PackageDir -and (Test-Path -Path $PackageDir))
	{
		return $PackageDir
	}

	foreach ($drive in (Get-Volume | where OperationalStatus -eq OK | where DriveLetter -ne $null | select -Expand DriveLetter))
	{
		$path = "${drive}:\AosService\PackagesLocalDirectory"
		
		if (Test-Path -Path $path)
		{
			return $path
		}
	}

	throw "Cannot find PackagesLocalDirectory. Specify the path in $($configFile.FullName)."
}