123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869 |
- # 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
- }
|