Skip to content

Commit

Permalink
refactor: pure osascript trampoline
Browse files Browse the repository at this point in the history
  • Loading branch information
hraban committed Jul 2, 2024
1 parent 2bf1aaf commit 3b8bec7
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion main.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -150,7 +150,7 @@
(rsync :include "*.icns" :exclude "*" :recursive ,from-cnts ,to-cnts)))))

(defun mktrampoline-app (app trampoline)
(let ((cmd (format NIL "do shell script \"open '~A'\"" app)))
(let ((cmd (format NIL "tell application \"~A\" to activate" app)))
(sh `("/usr/bin/osacompile" #\o ,trampoline #\e ,cmd))
(sync-icons app trampoline)
(copy-paths (infoplist app) (infoplist trampoline) *copyable-app-props*)))
Expand Down

0 comments on commit 3b8bec7

Please sign in to comment.