softmoth

var gistPrefix = 'https://gist.github.com/',
    // Cache document.write so that it can be restored once all Gists have been
    // embedded.
    cachedWrite = document.write,
    body = $('body'),
    // Map each p.gist to an object that contains the paragraph to be replaced
    // and the Gist's identifier.
    gists = $('a.gist').map(function(n, a) {
        a = $(a);
        var href = a.attr('href');

softmoth

Using a proxy to avoid tether throttling

I use used to use my mobile phone for internet access. My provider's Unlimited data plan discouragesd tethering (using the phone as a hotspot), though, by throttling traffic it sees coming from other devices.

A fairly simple and robust solution is was to run a proxy server on the phone, and then set up the router to send all traffic through the proxy.

Bit rot warning

softmoth

Note	This gist holds screenshots for my ZSH prompt theme, newt.

softmoth

Save make-testcase.sh in /tmp, and:

rm -rf ./invalid-typename-bug; sh make-testcase.sh && \
    PERL6LIB=invalid-typename-bug/lib perl6 invalid-typename-bug/t.pl

If type=role, then the error is:

===SORRY!=== Error while compiling /tmp/invalid-typename-bug/lib/Bar.pm (Bar)
Invalid typename 'Baggy::Foo::TypeB'

softmoth

sub MAIN() {
    ::('X::Y::Z').wut();
}

unit class X::Y::Z;

method wut() { hi() }
sub hi() is export { say "hi" }

softmoth

USB Tether

This needs extra planning, since network isn't avaialable without it. Download the needed packages (see below) manually, before upgrading, from:

• Kernel-land: https://downloads.openwrt.org/releases/18.06.2/targets/ar71xx/generic/
• User-land: https://downloads.openwrt.org/releases/18.06.2/packages/mips_24kc/base/

After upgrade, copy them to the router:

softmoth

grammar G {
  token TOP { <a-line>* }
  token a-line { (\V*) \n }
}

class A {
  method TOP($/) {
    note "!TOP ", $/<a-line>».made.perl, $/;
  }
  method a-line($/) {

softmoth

#! /usr/bin/env perl6

grammar G {
    rule TOP { <hi>+ %% <.line-end> }
    token hi { hi }
    token line-end { \n }
}

class A {
    method TOP ($/) {

softmoth

--- a/lib/YAMLish.pm6
+++ b/lib/YAMLish.pm6
@@ -223,7 +223,7 @@ grammar Grammar {
                <.comment>? <.line-break>
                :my $new-indent;
                <?before $indent $<sp>=' '+ { $new-indent = $indent ~ $<sp> }>
-               [ $new-indent $<content>=[ \N* ] | $indent <.before <.line-break> > ]+ % <.line-break>
+               [ $new-indent $<content>=[ \N* ] | ' ' ** { 0 .. $indent.chars } <.before <.line-break> > ]+ % <.line-break>
        }

softmoth

#! /usr/bin/env perl6

grammar Grammar {
    rule TOP { <element> }
    token plain { \N* }
    token inline { yes | no }
    token element {
        <value=inline> || <value=plain>
    }
}