【Mac】選択項目のシンボリックリンクを作成

とても久しぶりにAppleScriptを触ったので戸惑いながらも急遽作成。
以前作った Ponmove の一部機能を引っ張り出したものです。
Scriptエディタにペーストしてお使いください。

ささっと作ったので、複数ファイルの処理には対応していません。
また、拡張子の処理にも対応していません。（例：hoge.txt→hoge.txt_link）

tell application "Finder"

set objs to selection

end tell

set inpath to quoted form of the POSIX path of (objs as alias) -- 選択ファイルのパスをPOSIX化

set objName to (do shell script "basename " & inpath) -- 選択ファイル名取得

set upPath to (do shell script "dirname " & inpath) & "/" -- 同一ディレクトリ（POSIX）

set objName to objName & "_link"

set outpath to quoted form of the POSIX path of ((upPath as Unicode text) & objName)

do shell script "ln -s " & inpath & " " & outpath