another applescript

safari_full_screen.applescript

set minX to 0
set minY to 22

tell application "Finder" to set screen_resolution to items 3 thru 4 of (get bounds of desktop's window)
set maxX to item 1 of screen_resolution
set maxY to item 1 of screen_resolution

--set maxX to (do shell script "echo $(defaults read /Library/Preferences/com.apple.windowserver) | sed 's/.*Width = \\([0-9]*\\);.*/\\1/'") as number
--set maxY to ((do shell script "echo $(defaults read /Library/Preferences/com.apple.windowserver) | sed 's/.*Height = \\([0-9]*\\);.*/\\1/'") as number) - 4

set width to maxX --1024

set myBounds to {maxX - width, minY, maxX, maxY}

--tell application "System Events" to set frontApp to title of (first process whose frontmost is true)
set frontApp to "Safari"

tell application frontApp
  try
    set allWindows to (every document)
    
    if (the (count of allWindows) = 0) then
      set defaultPage to do shell script "defaults read com.apple.internetconfig | egrep '^ *WWWHomePage' | sed 's/^.*\" = \"\\(.*\\)\".*$/\\1/'"
      make new document with properties {URL:defaultPage}
    else
      reopen
    end if
    
    set the bounds of front window to myBounds
    
    activate
  end try
end tell