Juerd

### Keybase proof

I hereby claim:

  * I am juerd on github.
  * I am juerd (https://keybase.io/juerd) on keybase.
  * I have a public key whose fingerprint is 6874 5C4F AC73 B929 8F4A  8FEF E4C0 DB51 BEE8 DA5B

To claim this, I am signing this object:

Juerd

#!/usr/bin/perl -w
use strict;
use Data::Dumper    qw(Dumper);
use File::Find      qw(find);
use Getopt::Long    qw(GetOptions);
use List::Util      qw(sum);
use Time::HiRes     qw(sleep);
use Linux::Inotify2;

$| = 1;

Juerd

use v6;
use Net::MQTT::MyPack;

unit class Net::MQTT;

has Int     $.keepalive-interval    is rw = 60;
has Int     $.maximum-length        is rw = 2097152;  # 2 MB
has Str     $.client-identifier     is rw = "perl6-$*PID";
has Str     $.server                is rw;
has Int     $.port                  is rw = 1883;

Juerd

# a rewrite of http://blogs.perl.org/users/ovid/2016/01/a-naive-sql-shell.html in Perl 6
use v6;
use DBIish;
use Linenoise;
use Text::Table::Simple;

my constant HIST-FILE = '.myhist';
my constant HIST-LEN  = 100;
my constant ROW-LIMIT = 100;

Juerd

RFC: A more Perl6-esque "unpack"
================================

This is an idea for an "unpack" replacement. The basic reasoning behind it, is
that number encodings and string encodings needn't be treated all that
differently. Instead of passing the name of a string encoding, you can pass
a native type object. When decoding things of determinable lengths, any number
of types can be given.

A variable length thing without a length indication can only be passed at the

Juerd

Types are used as a way to organize behaviour and to guarantee that
certain constraints are enforced.

=head2 Value types

Although every value will invariably be of a single specific type,
behaviour can be shared among different types by means of
inheritance and composition. Type constraints can be applied to
variables, to limit which types of values a variable may hold.

Juerd

diff --git a/src/fe-common/core/completion.c b/src/fe-common/core/completion.c
index 46fd9db..0decb4f 100644
--- a/src/fe-common/core/completion.c
+++ b/src/fe-common/core/completion.c
@@ -80,6 +80,7 @@ static char *get_word_at(const char *str, int pos, char **startpos)
        while (start > str && !isseparator(start[-1])) start--;
        while (*end != '\0' && !isseparator(*end)) end++;
        while (*end != '\0' && isseparator_notspace(*end)) end++;
+        if (end > str+pos) end = str+pos;
 

Juerd

highlight ColorColumn ctermbg=18
call matchadd('ColorColumn', '\%81v.\+', 100)
highlight WhitespaceEOL ctermbg=blue
match WhitespaceEOL /\s\+$/
highlight TabsZijnMeh cterm=underline ctermfg=darkred
call matchadd('TabsZijnMeh', '\t', 100)

Juerd

#!/usr/bin/perl
use strict;
use URI::Escape qw(uri_escape uri_unescape);
use Socket qw(SOCK_STREAM inet_ntoa);
use IO::Socket::INET;
use IO::Select;

my $host = '10.42.66.2';
my $player = 'be:e0:e6:04:46:38';

Juerd

                    RevSp   TechInc Hack42  Bitlair TkkrLab Frack   RandomD PixelB  NURD    Bhack   ACKsp

TERMIJNEN
Minimumleeftijd     -       -       16      -       -       -       -       -       -       -       -
Minimum maanden     1       1-12 ^A 12      12      1       6       1       1       1       1       1
Verlenging per mndn 1       12 ^A   3       1       1       3       1       1       1       1       1
Wachttijd sleutel   nee     nee     nee     3 mnd   nee     6 mnd   random  nee     2 mnd   nee     nee
Sleutel voor junior 3 mnd   ?       nee     3 mnd   3m ^B   ?       ?       ?       ?       ?       ?

^A = Opzegging alleen mogelijk aan het einde van een kalenderjaar (boekjaar), met 1 maand opzegtermijn