KDE Klipper scripts

README.md

KDE Klipper scripts

• Config will be saved in: .config/plasmashellrc and `

Url2MarkDown

• format a http link to Markdown format: klipper-markdown-link
• Regex: ^http.?://.*

klipper-markdown-link

#!/usr/bin/env perl

use Data::Dumper;

my $arg = $ARGV[0];
#print "$authority\n";
my @bla = split(/\//,$ARGV[0]);
my($scheme, $domain, $path, $query, $fragment) = $ARGV[0] =~ m|(?:([^:/?#]+):)?(?://([^/?#]*))?([^?#]*)(?:\?([^#]*))?(?:#(.*))?|;
my @base = split(/\//,$path);
my $url = '';

use LWP::Simple;
my $dom = 'http://'.$domain.'/';
if($base[-2]) {
        $dom = $dom."/".$base[-2];
        if (is_success(mirror("$dom/favicon.ico",'./temp'))) {
           $url = "$dom/favicon.ico";
           print qq{"$dom/favicon.ico"};
        }

} else {

#$base[-2];
#print "$dom\n";
if (is_success(mirror("http://$domain//favicon.ico",'./temp'))) {
        $url = "http://$domain//favicon.ico";
#       print qq{http://$domain//favicon.ico};    
}
}

if(-f './temp') { system("rm ./temp");};
#print qq{$path\t![](http://$domain/$bla[3]/favicon.ico)};
#exit;
if($url eq '') {
        print '['.$bla[-1].']('.$ARGV[0].')';
} else {
        print qq{![]($url) [$bla[-1]]($arg)};
};
#print "![".$bla[-1]."]("'['.$bla[-1].']('.$ARGV[0].')';

plasmashellrc

[Action_0]
Automatic=true
Description=Url2MarkDown
Number of commands=1
Regexp=^http.?://.*

[Action_0/Command_0]
Commandline[$e]=~/bin/klipper-markdown-link "%s"
Description=Url2Markdown
Enabled=true
Icon=
Output=1