feat: “open with...” support

README.org

@@ -7,6 +7,7 @@ Use the home-manager module to "fix" your .app launchers:
 - Pinning in Dock works across updates
 - Launch from Spotlight
 - Create .app wrappers for non-app bundle, stand-alone binary programs
+- Support “open with...”
 
 Now you can launch Nix-installed apps using only your keyboard, using @@html:<kbd>@@⌘ space@@html:</kbd>@@.
 

main.lisp

@@ -150,7 +150,16 @@
           (rsync :include "*.icns" :exclude "*" :recursive ,from-cnts ,to-cnts)))))
 
 (defun mktrampoline-app (app trampoline)
-  (let ((cmd (format NIL "tell application \"~A\" to activate" app)))
+  ;; TODO: how do you pass the argv?
+  (let ((cmd (format NIL "
+on run argv
+  tell application \"~A\" to activate
+end run
+
+on open names
+  tell application \"~:*~A\" to open names
+end open
+" app)))
     (sh `("/usr/bin/osacompile" #\o ,trampoline #\e ,cmd))
     (sync-icons app trampoline)
     (copy-paths (infoplist app) (infoplist trampoline) *copyable-app-props*)))