Applescript - Lesezeichen für alle Tabs in ALLEN FENSTER in Safari

Wie ich im obigen Kommentar sagte, verwende ich jetzt eine selbst entwickelte Automator-Workflow-App.

Ich bin ein perlSprachentwickler, also verwende ich im Workflow einen benutzerdefinierten Perl-Interpreter und viele Perl-Module - definitiv KEINE Lösung für einen durchschnittlichen (normalen) Mac-Benutzer.

Aber es zu posten, hauptsächlich als Referenz und vielleicht könnte jemand es zu einer besseren Lösung hacken. Wie es funktioniert - wie man es benutzt:

• Leider muss es manuell ausgeführt werden - ich kann nicht herausfinden, wie ein Automator-Workflow (Dienst oder App) ausgeführt wird, wenn Safari das quitEreignis empfängt. :(

• Das Automator (Service)-Skript hat zwei Aktionen:

  • javascript ausführen (ich weiß es applescriptnoch nicht Javascript, aber das Javascript ist für mich verständlicher) - es sammelt einfach alle URL's aus allen Tabs und Fenstern und erstellt eine JSON-Struktur, die an die nächste weitergegeben wird
  • Führen Sie ein Shell-Skript aus - das mein Perl-Skript mit einem benutzerdefinierten installierten Perl-Interpreter ausführt.
• Wenn die App ausgeführt wird, speichert sie eine HTMLDatei im Ordner Sessionsin my Desktop.
• Der Name der Datei ist zB wie s20190107-164908.htmlder aktuelle Datum-Uhrzeit-String.
• Es ist einfach, die Quick-Look-Funktion des Finders (Leertaste) zu verwenden, um den Inhalt der Datei schnell zu überprüfen.

Es ist weit über das ursprüngliche SessionsAddon hinaus, aber es ist für mich brauchbar.

Der vollständige Inhalt der oben genannten Aktionen ist:

1.) das 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);
}

und das Shell-Skript

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 @_ }
'

Beispiel was sehen Sie im Quick-Look:

Wie ich bereits sagte - es ist KEINE Lösung für einen gewöhnlichen Benutzer. Es kann nur von Entwicklern verwendet werden ... :(