# Open folder in ForkLift.app or 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 }