# Open folder in ForkLift.app of ForkLift2.app from console
# Author: Adam Strzelecki nanoant.com, modified by Bodo Tasche bitboxer.de
#         Updated to support ForkLift2 by Johan Kaving
#
# Usage:
#   fl [<folder>]
#
# Opens specified directory or current working directory in ForkLift.app
#
# Notes:
# It assumes Shift+Cmd+G launches go to folder panel and Cmd+N opens new
# app window.
#
# https://gist.github.com/3313481
function fl {
  if [ ! -z "$1" ]; then
    DIR=$1
    if [ ! -d "$DIR" ]; then
      DIR=$(dirname $DIR)
    fi
    if [ "$DIR" != "." ]; then
      PWD=`cd "$DIR";pwd`
    fi
  fi
  osascript 2>&1 1>/dev/null <<END

    try
      tell application "Finder"
        set appName to name of application file id "com.binarynights.ForkLift2"
      end tell
    on error err_msg number err_num
      tell application "Finder"
        set appName to name of application file id "com.binarynights.ForkLift"
      end tell
    end try

    if application appName is running
      tell application appName
        activate
      end tell
    else
      tell application appName
        activate
      end tell
      repeat until application appName is running
        delay 1
      end repeat
      tell application appName
        activate
      end tell
    end if

    tell application "System Events"
      tell application process "ForkLift"
        try
          set topWindow to window 1
        on error
          keystroke "n" using command down
          set topWindow to window 1
        end try
        keystroke "g" using {command down, shift down}
        tell sheet 1 of topWindow
          set value of text field 1 to "$PWD"
          keystroke return
        end tell
      end tell
    end tell
END
}