view release on metacpan or  search on metacpan

script/move-windows-to-kde-activity  view on Meta::CPAN

        return [500, "Can't list KDE activities: $res_list_act->[0] - $res_list_act->[1]"]
            unless $res_list_act->[0] == 200;

        my $guid;
        for my $row (@{ $res_list_act->[2] }) {
            if ($row->{name} eq $activity_name) {
                $guid = $row->{guid};
                last;
            }
        }
        return [404, "Can't find KDE activity named '$activity_name'"]
            unless $guid;

        my $res_list_win = $orig->(%args, detail=>1);
        return [500, "Can't list windows: $res_list_win->[0] - $res_list_win->[1]"]
            unless $res_list_win->[0] == 200;

        return [404, "Can't find any matching windows"] unless @{ $res_list_win->[2] };
        for my $win (@{ $res_list_win->[2] }) {
            system "xprop", "-f", "_KDE_NET_WM_ACTIVITIES", "8s", "-id", $win->{id},
                "-set", "_KDE_NET_WM_ACTIVITIES", $guid;
        }

        [200];
    },
);

Perinci::CmdLine::Any->new(