Replies (22)
- @Voker57:@0xd34df00d и это ШТО висит поверх всего остального, не подчиняясь WM
- @0xd34df00d:@Voker57 Хорошо, что я убрал сплеш в свое время.
- @0xd34df00d:@Voker57 Блджад, ну вот нахуя ты насилуешь труп?
- @0xd34df00d:@L29Ah Потому что uzbl говно и жрет память! Enjoy your pseudo-unix-way.
- @0xd34df00d:@Voker57 У Ляха нет WM, WM слишком комбайн для него.from idead, 15 months ago, in reply to /14
- @L29Ah:@Voker57 $ cat `which d`
#!/usr/bin/perl
my $url_regex = "^.*:\/\/";
my $url_handler = "urld";
my $mime_file = "$ENV{HOME}/.config/d";
my $file = $ARGV[0];
if ($file =~ $url_regex) {
exec "$url_handler \"$ARGV[0]\""
}
open F, "<$mime_file" or die "Can't open MIME associations file $mime_file";
my $mime = `file -b -L --mime-type "$ARGV[0]"`;
print "mime: $mime";
while (<F>) {
s/\n//;
($regex, $handler) = split \,, $_;
if ($mime =~ $regex) {
exec "$handler \"$file\"\n"
}
}from tkabber, 15 months ago, in reply to /18