Instant Safari Porn Mode

Instant_Safari_Porn_Mode.scpt

tell application "Safari" to set theURL to URL of current tab of window 1
     if theURL contains "some unique part of your URL" then
          tellapplication "Safari"
               closecurrent tab ofwindow1
          endtell
     set_private_browsing()
else
     set_private_browsing()
     tellapplication "Safari"
          makenew tabinwindow1
          setURLofresultto "your URL"
     endtell
end if


on set_private_browsing()
     tellapplication "System Events"
          tellprocess "Safari"
               tellmenu bar 1
                    tellmenu bar item "Safari"
                         tellmenu "Safari"
                              clickmenu item "Private Browsing"
                         endtell
                    endtell
               endtell
          endtell
     endtell
end set_private_browsing