#!/usr/bin/osascript
 on run argv
   set currentApp to my getCurrentApp()

   do shell script "/usr/local/bin/emacsclient -c '" & (item 1 of argv) & "'"

   do shell script "open '/Volumes/" & currentApp & "'"

 end run
 
 to getCurrentApp()

   return replace_chars((path to frontmost application as text), ":", "/")

 end getCurrentApp

 
 on replace_chars(this_text, search_string, replacement_string)
  set AppleScript's text item delimiters to the search_string
  set the item_list to every text item of this_text
  set AppleScript's text item delimiters to the replacement_string
  set this_text to the item_list as string
  set AppleScript's text item delimiters to ""
  return this_text
 end replace_chars