123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122 |
- # Open folder in ForkLift.app or ForkLift2.app from console
- # Author: Adam Strzelecki nanoant.com, modified by Bodo Tasche bitboxer.de
- # Updated to support ForkLift 2 and ForkLift 3 by Johan Kaving
- # Updated to support ForkLift from Setapp by Paul Rudkin
- #
- # 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 forkLiftSetapp to name of application file id "com.binarynights.forklift-setapp"
- end tell
- on error err_msg number err_num
- set forkLiftSetapp to null
- end try
- try
- tell application "Finder"
- set forkLift3 to name of application file id "com.binarynights.ForkLift-3"
- end tell
- on error err_msg number err_num
- set forkLift3 to null
- end try
- try
- tell application "Finder"
- set forkLift2 to name of application file id "com.binarynights.ForkLift2"
- end tell
- on error err_msg number err_num
- set forkLift2 to null
- end try
- try
- tell application "Finder"
- set forkLift to name of application file id "com.binarynights.ForkLift"
- end tell
- on error err_msg number err_num
- set forkLift to null
- end try
- if forkLiftSetapp is not null and application forkLiftSetapp is running then
- tell application forkLiftSetapp
- activate
- set forkLiftVersion to version
- end tell
- else if forkLift3 is not null and application forkLift3 is running then
- tell application forkLift3
- activate
- set forkLiftVersion to version
- end tell
- else if forkLift2 is not null and application forkLift2 is running then
- tell application forkLift2
- activate
- set forkLiftVersion to version
- end tell
- else if forkLift is not null and application forkLift is running then
- tell application forkLift
- activate
- set forkLiftVersion to version
- end tell
- else
- if forkLiftSetapp is not null then
- set appName to forkLiftSetapp
- else if forkLift3 is not null then
- set appName to forkLift3
- else if forkLift2 is not null then
- set appName to forkLift2
- else if forkLift is not null then
- set appName to forkLift
- end if
-
- tell application appName
- activate
- set forkLiftVersion to version
- 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}
- if forkLiftVersion starts with "3" then
- tell pop over of list of group of splitter group of splitter group of topWindow
- set value of text field 1 to "$PWD"
- end tell
- else
- tell sheet 1 of topWindow
- set value of text field 1 to "$PWD"
- end tell
- end if
- keystroke return
- end tell
- end tell
- END
- }
|