leedo

#!/bin/bash

RED='\033[0;31m'
GREEN='\033[0;32m'
NC='\033[0m'

for dir in $(find "$1" -maxdepth 1 -type d); do
  if [ -d "$dir/.git" ]; then
    dirty=$(git -C "$dir" diff --shortstat 2> /dev/null | tail -n 1)
    if [[ $dirty != "" ]]; then

leedo

#!/usr/bin/env perl

use AnyEvent;
use AnyEvent::I3 ":all";

my $i3 = i3();
$i3->connect->recv or die "Error connecting";

my $command = join(" ", @ARGV) or die "need command";
my $cv = AE::cv;

leedo

#!/usr/bin/env perl

use AnyEvent;
use AnyEvent::I3 ":all";

my $i3 = i3();
$i3->connect->recv or die "Error connecting";

my $direction = shift or die "need direction";
my $cv = AE::cv;

leedo

#!/usr/bin/env perl

use v5.20;
use feature 'signatures';

use AnyEvent;
use AnyEvent::HTTP;
use AnyEvent::HTTPD;
use JSON::XS;
use URI;

leedo

¯
{
  bidi          => "ON",
  block         => "Latin-1 Supplement",
  category      => "Sk",
  code          => "00AF",
  combining     => 0,
  comment       => "",
  decimal       => "",
  decomposition => "<compat> 0020 0304",

leedo

#!/usr/bin/env perl

use strict;
use warnings;

use List::Util qw{max};
use List::MoreUtils qw{none};
use POSIX qw{ceil};

@ARGV == 2 or die "need video file";

leedo

package Fuhbot::Plugin;

use v5.14;
use warnings;
use mop;

class Fuhbot::PluginClass extends mop::class {
  has $commands = [];
  has $routes   = [];
  has $events   = [];

leedo

sub n (*@flat) {
  say "flattened " ~ @flat.elems;
}

multi sub m (*@flat) {
  say "flattened " ~ @flat.elems;
}

multi sub m ((Range $range)) {
  say "got Range";

leedo

> &infix:<+> === &infix:<+>
True
> &infix:<+> !== &infix:<+>
Cannot call 'Numeric'; none of these signatures match:
:(Mu:U \v: Mu *%_)

leedo

No registered operation handler for 'locallifetime'
  in compile_op (src/stage2/gen/QAST.nqp:230)
  in as_jast (src/stage2/gen/QAST.nqp:3517)
  in as_jast (src/stage2/gen/QAST.nqp:2794)
  in  (src/stage2/gen/QAST.nqp:3486)
  in compile_all_the_stmts (src/stage2/gen/QAST.nqp:3474)
  in as_jast (src/stage2/gen/QAST.nqp:3453)
  in as_jast (src/stage2/gen/QAST.nqp:2794)
  in  (src/stage2/gen/QAST.nqp:3486)
  in compile_all_the_stmts (src/stage2/gen/QAST.nqp:3474)