AppleScriptで「現在ディレクトリでターミナル開く」ボタンとか「現在ディレクトリをSublimeで開く」ボタンとか「現在ディレクトリでメモを保存」などをFinderのタブに作る

tell application "Finder"
    set this_folder to target of front window as alias
end tell

tell application "Terminal"
    activate
    do script "cd " & quoted form of POSIX path of this_folder
end tell

tell application "Finder"
    -- set _dir to POSIX path of ((folder of (front window)) as alias)
    if exists Finder window 1 then
        set currentDir to target of Finder window 1 as Unicode text
        set posixPath to get POSIX path of currentDir
    end if
end tell

tell application "iTerm"
    activate
    set _current_session to current session of current window
    tell current window
        create tab with default profile

        tell current session of current tab
            write text "cd " & posixPath
        end tell
    end tell
end tell

on openInSublime(theFiles)
    tell application "Sublime Text"
        open theFiles
        activate
    end tell
end openInSublime

on run
    tell application "Finder"
        if selection is {} then
            set theSelection to folder of the front window as string
        else
            set theSelection to selection as alias list
        end if
    end tell
    openInSublime(theSelection)
end run

on open (theFiles)
    openInSublime(theFiles)
end open

on run {input, parameters}
    tell application "Finder" to make new file at (the target of the front window) as alias
    return input
end run