DF.ahk

#SingleInstance Force
Persistent True

WindowedFullScreen(Monitor) {
    ; In-game settings:
    ; /Video\
    ;  [ Windowed ]
    ;    [ Resolution:  Detect ]
    ; [ Window is resizable (takes effect on restart)  Yes ]
    Title := "Dwarf Fortress"
    StrStyle := "-0xC00000"
    SetTitleMatchMode 3
    if ! WinWait(Title, , 2)
        return
    MonitorGetWorkArea(Monitor, &Left, &Top, &Right, &Bottom)
    Width := Right - Left
    Height := Bottom - Top
    WinSetStyle StrStyle
    WinMove Left, Top, Width, Height
}

tray := A_TrayMenu
tray.Add("")
loop MonitorGetCount() {
    Name := (MonitorGetPrimary() == A_Index ? "P" : Chr(Ord("A") + A_Index - 1))
    MonitorGetWorkArea(A_Index, &Left, &Top, &Right, &Bottom)
    Title := Name " " Format("{1:d}:{2:d}", Left, Top)
    tray.Add(Title, ((i, *) => WindowedFullScreen(i)).Bind(A_Index))
}