Inline applescript

anttiharju · Feb 9, 2025 · 83cd01b · 83cd01b
1 parent 33bcc5e
commit 83cd01b
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 17 deletions.
diff --git a/gpr b/gpr
@@ -58,11 +58,20 @@ fi
 SCRIPT_DIR=$(dirname "$(realpath "$0")")
 
 # Get urls of open Safari tabs via AppleScript.
-bin="$SCRIPT_DIR/helpers/get_safari_urls.scpt"
-if [ ! -e "$bin" ]; then
-	osacompile -o "$bin" "$SCRIPT_DIR/helpers/get_safari_urls.applescript"
-fi
-urls=$(osascript "$bin")
+urls=$(osascript << 'EOA'
+tell application "Safari"
+    set windowList to every window
+    set urlList to {}
+    repeat with aWindow in windowList
+        set tabList to every tab in aWindow
+        repeat with aTab in tabList
+            set end of urlList to URL of aTab
+        end repeat
+    end repeat
+    return urlList
+end tell
+EOA
+)
 IFS=', ' # Convert the output to a list
 
 for url in $urls; do

diff --git a/helpers/.gitignore b/helpers/.gitignore
@@ -1,2 +1 @@
-get_safari_urls.scpt
 gclone.cache
diff --git a/helpers/get_safari_urls.applescript b/helpers/get_safari_urls.applescript