InstallWizard.ps1
|
#Requires -Version 5.1 Write-Host 'Welcome to the Cackledaemon install wizard!' Write-Host '' Write-Host 'This script will guide you through the process of installing/updating Cackledaemon and Emacs.' Write-Host '' $InstalledModule = Get-InstalledModule 'Cackledaemon' -ErrorAction SilentlyContinue if ($InstalledModule) { Write-Host "Cackledaemon is already installed, but there might be " -NoNewLine Write-Host "updates..!" -ForegroundColor Yellow -NoNewLine Write-Host " :)" Write-Host "This script can " -NoNewLine Write-Host "optionally" -ForegroundColor Green -NoNewLine Write-Host " update the Cackledaemon module for the " -NoNewLine Write-Host "current user" -ForegroundColor Cyan -NoNewLine Write-Host '.' $InstallCackledaemonChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Reinstall the Cackledaemon module the current user. This will install module updates." $DontInstallCackledaemonChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't reinstall the Cackledaemon module. It's already installed, but there may be updates." $InstallCackledaemon = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to reinstall Cackledaemon?", ` "Whaddaya think?", ` @($InstallCackledaemonChoice, $DontInstallCackledaemonChoice), ` 0 ` ) } else { Write-Host "Cackledaemon " -NoNewLine Write-Host "needs to be installed!" -ForegroundColor Yellow Write-Host "This script will install the Cackledaemon module for the " -NoNewLine Write-Host "current user" -ForegroundColor Cyan -NoNewLine Write-Host "." $InstallCackledaemonChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Install the Cackledaemon module for the current user. This is required in order to use Cackledaemon." $DontInstallCackledaemonChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't install the Cackledaemon module. This will abort the installation process." $InstallCackledaemon = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to install Cackledaemon?", ` "Whaddaya think?", ` @($InstallCackledaemonChoice, $DontInstallCackledaemonChoice), ` 0 ` ) } Write-Host '' if ($InstallCackledaemon) { Write-Host 'Installing the Cackledaemon module...' Install-Module -Force Cackledaemon Write-Host 'All done!' } $InstalledModule = Get-InstalledModule 'Cackledaemon' -ErrorAction SilentlyContinue if (-not $InstalledModule) { Write-Host 'Cackledaemon is ' -NoNewLine Write-Host 'not installed' -ForegroundColor Red -NoNewLine Write-Host ' and the script can not continue.' Write-Host 'Have a nice day!' Exit } Import-Module Cackledaemon if (Test-Path $CackledaemonWD) { Write-Host "$CackledaemonWD already exists - nothing to do here!" } else { Write-Host "Time to initialize " -NoNewLine Write-Host $CackledaemonWD -ForegroundColor Yellow -NoNewLine Write-Host "!" $ModuleDirectory = Split-Path -Path (Get-Module Cackledaemon).Path -Parent $StartMenuPath = Join-Path $Env:AppData 'Microsoft\Windows\Start Menu\Programs\Gnu Emacs' $ShortcutsCsvPath = Join-Path $ModuleDirectory 'Shortcuts.csv' $FileTypeAssociationsCsvPath = Join-Path $ModuleDirectory 'FileTypeAssociations.csv' Write-Host "By default, Cackledaemon will " -NoNewLine Write-Host "create these shortcuts" -ForegroundColor Green -NoNewLine Write-Host " inside the 'GNU Emacs' folder in the user's Start Menu when installing Emacs:" Write-Host '' Import-Csv -Path $ShortcutsCsvPath | ForEach-Object { Write-Host "- " -NoNewLine Write-Host ("{0}\{1}.lnk" -f $StartMenuPath, $_.ShortcutName) -ForegroundColor Green -NoNewLine Write-Host " -> " -NoNewLine Write-Host $_.EmacsBinaryName -ForegroundColor Yellow } | Out-Null Write-Host '' Write-Host "You may " -NoNewLine Write-Host "edit this config" -ForegroundColor Cyan -NoNewLine Write-Host " at " -NoNewLine Write-Host "$CackledaemonWD\Shortcuts.csv" -ForegroundColor Yellow -NoNewLine Write-Host " and re-run the Emacs install step at " -NoNewLine Write-Host "any time" -ForegroundColor Green -NoNewLine Write-Host " to change these shortcuts." $InstallShortcutsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Create these shortcuts in the Start Menu. You can edit this CSV and re-run this step at any time." $DontInstallShortcutsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't create any shortcuts in the Start Menu at this time. You can create a fresh CSV and re-run this step at any time." $NoShortcuts = [boolean]$host.UI.PromptForChoice( ` "Do you want to use these shortcuts?", ` "Whaddaya think?", ` @($InstallShortcutsChoice, $DontInstallShortcutsChoice), ` 0 ) Write-Host '' Write-Host "By default, Cackledaemon will " -NoNewLine Write-Host "create" -ForegroundColor Green -NoNewLine Write-Host " these " -NoNewLine Write-Host "system-wide" -ForegroundColor Red -NoNewLine Write-Host " file type associations:" Write-Host "" Import-Csv -Path $FileTypeAssociationsCsvPath | ForEach-Object { Write-Host "- " -NoNewLine Write-Host $_.Extension -ForegroundColor Green -NoNewLine Write-Host " -(" -NoNewLine Write-Host $_.FileType -ForegroundColor Cyan -NoNewLine Write-Host ")-> " -NoNewLine Write-Host $_.Command -ForegroundColor Yellow } | Out-Null Write-Host "" Write-Host "You may " -NoNewLine Write-Host "edit this config" -ForegroundColor Cyan -NoNewLine Write-Host " at " -NoNewLine Write-Host "$CackledaemonWD\FileTypeAssociations.csv" -ForegroundColor Yellow -NoNewLine Write-Host " and re-run the Emacs install step at " -NoNewLine Write-Host "any time" -ForegroundColor Green -NoNewLine Write-Host " to create new associations. You may also " -NoNewLine Write-Host "manually create " -ForegroundColor Cyan -NoNewLine Write-Host "user-level" -ForegroundColor Green -NoNewLine Write-Host " file type associations inside " -NoNewLine Write-Host "Windows Explorer" -ForegroundColor Cyan -NoNewLine Write-Host '.' $InstallAssociationsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Create these file type associations for all users. You can edit this CSV and re-run this step at any time." $DontInstallAssociationsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't create any file type associations. You can edit this CSV and re-run this step at any time." $NoFileTypeAssociations = [boolean]$host.UI.PromptForChoice( ` "Do you want to use these file type associations?", ` "Whaddaya think?", ` @($InstallAssociationsChoice, $DontInstallAssociationsChoice), ` 0 ) Write-Host "Initializing $CackledaemonWD..." New-CackledaemonWD -NoShortcuts $NoShortcuts -NoFileTypeAssociations $NoFileTypeAssociations | Out-Null } Write-Host "Checking the state of Emacs..." Write-Host '' $EmacsCommand = Get-Command 'emacs.exe' if ($EmacsCommand) { if (Test-EmacsExe -ErrorAction Stop) { Write-Host "Emacs is already installed but it couldn't hurt to check for " -NoNewLine Write-Host "updates..! :)" -ForegroundColor Yellow Write-Host "This script can " -NoNewLine Write-Host "optionally" -ForegroundColor Green -NoNewLine Write-Host " install updates to Emacs for " -NoNewLine Write-Host "all users" -ForegroundColor Red -NoNewLine Write-Host ". It requires, and will prompt for, " -NoNewLine Write-Host "Administrator privileges" -ForegroundColor Cyan -NoNewLine Write-Host '.' $InstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Check for and install any available Emacs updates." $DontInstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't check for Emacs updates. Emacs is already installed, so this is probably OK. You can run this manually at any time by importing the Cackledaemon module and running 'Install-Emacs'." $InstallEmacs = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to check for updates to Emacs?", ` "Whaddaya think?", ` @($InstallEmacsChoice, $DontInstallEmacsChoice), ` 0 ` ) } else { Write-Host "An " -NoNewLine Write-Host "unmanaged Emacs" -ForegroundColor Red -NoNewLine Write-Host " is " -NoNewLine Write-Host "already on your `$Path" -ForegroundColor Red -NoNewLine Write-Host "! This script will probably cause " -NoNewLine Write-Host "surprising behavior" -ForegroundColor Yellow -NoNewLine Write-Host " but is " -NoNewLine Write-Host "game to try" -ForegroundColor Cyan -NoNewLine Write-Host "!" $InstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Install a managed Emacs alongside the unmanaged Emacs version already detected. This will likely cause surprising behavior - it is recommended that you read the manual before continuing." $DontInstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't install a managed Emacs. This is the safest choice, but means that you can't take advantage of Cackledaemon's features. You can run this manually at any time by importing the Cackledaemon module and running 'Install-Emacs'." $InstallEmacs = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to install a managed Emacs alongside the version of Emacs already installed?", ` "Whaddaya think?", ` @($InstallEmacsChoice, $DontInstallEmacsChoice), ` 1 ` ) } } else { Write-Host "Emacs " -NoNewLine Write-Host "needs to be installed!" -ForegroundColor Yellow Write-Host "This script will install Emacs for " -NoNewLine Write-Host "all users" -ForegroundColor Red -NoNewLine Write-Host ". It requires, and will prompt for, " -NoNewLine Write-Host "Administrator privileges" -ForegroundColor Cyan -NoNewLine Write-Host "." $InstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Install Emacs. This is required in order to use Cackledaemon and Emacs." $DontInstallEmacsChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't install Emacs. This will abort the installation process." $InstallEmacs = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to install Emacs?", ` "Whaddaya think?", ` @($InstallEmacsChoice, $DontInstallEmacsChoice), ` 0 ` ) } if ($InstallEmacs) { Write-Host 'Installing Emacs...' Install-Emacs } else { Write-Host 'Not installing Emacs.' } if (-not (Test-EmacsExe)) { Write-Host 'Emacs is ' -NoNewLine Write-Host 'not installed' -ForegroundColor Red -NoNewLine Write-Host ' and the script can not continue.' Write-Host 'Have a nice day!' Exit } Write-Host '' Write-Host "Cackledaemon can also set up the " -NoNewLine Write-Host "current user's " -ForegroundColor Cyan -NoNewLine Write-Host " environment by configuring the user's `$Path and `$HOME and by creating shortcuts. This touches the user's " -NoNewLine Write-Host "registry" -ForegroundColor Yellow -NoNewLine Write-Host " but doesn't require Administrator privileges." $InstallEnvironmentChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&Yes", "Set up the user's environment for Emacs. This isn't strictly required but is nice to have." $DontInstallEnvironmentChoice = New-Object System.Management.Automation.Host.ChoiceDescription "&No", "Don't set up the user's environment for Emacs. Emacs will be installed but it will be tough for the user to run." $InstallEnvironment = -not [boolean]$host.UI.PromptForChoice( ` "Do you want to set up the user environment?", "Whaddaya think?", ` @($InstallEnvironmentChoice, $DontInstallEnvironmentChoice), ` 0 ` ) if ($InstallEnvironment) { Write-Host "Setting up the user's environment..." Install-EmacsUserEnvironment Install-CDApplet } else { Write-Host "Not touching the user's environment." } Write-Host "Have a nice day!" |