Applescript: marque todas las pestañas en TODAS LAS VENTANAS en Safari

Como dije en el comentario anterior, ahora estoy usando una aplicación de flujo de trabajo de automatización de desarrollo propio.

Soy un perldesarrollador de idiomas, por lo que en el flujo de trabajo utilizo un intérprete perl instalado a medida y también muchos módulos perl; definitivamente NO es una solución para un usuario promedio (común) de mac.

Pero publicarlo, principalmente como referencia y tal vez alguien podría piratearlo para encontrar una mejor solución. Cómo funciona - cómo usarlo:

• desafortunadamente, debe ejecutarse manualmente; no puedo averiguar cómo ejecutar algún flujo de trabajo de automatización (servicio o aplicación) cuando Safari recibe el quitevento. :(

• El script del automatizador (servicio) tiene dos acciones:

  • ejecute javascript (no lo sé applescript, Javascriptpero el javascript es más comprensible para mí): simplemente recopila todas las URL de todas las pestañas y ventanas y crea una estructura JSON, que se pasa a la siguiente
  • ejecute un script de shell, que ejecuta mi script perl con un intérprete perl instalado personalizado.
• cuando se ejecuta la aplicación, guarda un HTMLarchivo en la carpeta Sessionsen mi archivo Desktop.
• El nombre del archivo es como, s20190107-164908.htmlpor ejemplo, la cadena de fecha y hora actual.
• es fácil usar la función de búsqueda rápida (barra espaciadora) del Finder para verificar rápidamente el contenido del archivo.

Está mucho más allá del Sessionscomplemento original, pero es utilizable para mí.

El contenido completo de las acciones anteriores son:

1.) el JavaScript

function run(input, parameters) {
    var tablist = [];
    var Safari = Application('Safari');
    Safari.includeStandardAdditions = true;
    Safari.activate();
    var windows = Safari.windows();
    for(let iw=0, wsize=windows.length; iw<wsize; iw++) {
        var wintabs = [];
        var tabs = windows[iw].tabs();
        if (!tabs) continue;
        for(let it=0, tsize=tabs.length; it<tsize; it++) {
            if( tabs[it].url() ) {
                wintabs.push( {"name": tabs[it].name(), "url": tabs[it].url()} );
            }
        }
        if( wintabs.length ) {
            tablist.push(wintabs);
        }
    }
    return JSON.stringify(tablist);
}

y el script de shell

export ANYENV_ROOT=/opt/anyenv
export PATH="$ANYENV_ROOT/bin:$PATH"
eval "$(anyenv init -)"

perl -MJSON -MPath::Tiny -MTime::Piece -M5.014 -w -E '
    my $jsonstr = do { local $/; <STDIN> };
    my $j = decode_json($jsonstr);
    my @lines;
    lsay("<ol>");
    for my $w (@$j) {
        lsay("<li><ul>");
        for my $t (@$w) {
            my $astr = "<li><a href=\"$t->{url}\">$t->{name}</a></li>";
            lsay($astr);
        }
        lsay("</ul></li>");
    }
    lsay("</ol>");
    my $sessdir=path( $ENV{HOME}, "Desktop/Sessions");
    $sessdir->mkpath;
    my $sessfile=$sessdir->child(localtime->strftime("s%Y%m%d-%H%M%S.html"));
    $sessfile->spew_utf8(@lines);;
    sub lsay { push @lines, $_ for @_ }
'

Ejemplo de lo que ve en el vistazo rápido:

Como ya dije, NO es una solución para un usuario común. Solo lo pueden usar los desarrolladores... :(