Skip to content

Instantly share code, notes, and snippets.


David Golden xdg

View GitHub Profile
xdg /
Created Sep 13, 2016
Put a Jira ticket link on the clipboard to paste into Google docs
#!/usr/bin/env perl
# This code works for dagolden, based on a program originally by rjbs. It
# might not work for you. You are hereby empowered to do anything you want
# with this code, including fixing its bugs and redistributing it with your
# own license and API and whatever you want. It'd be nice if you mentioned
# dagolden and rjbs in your fork, but if you don't want to, that's just fine.
# The only thing you can't do is act like there's some guarantee that this
# code will actually work or even refrain from blowing stuff up. You're on
# your own. -- rjbs, 2014-04-23 and dagolden, 2016-07-06
xdg / smoke-rebase
Created Feb 19, 2016
Shell function to smoke a git rebase
View smoke-rebase
smoke-rebase ()
while true; do
( perl Makefile.PL && \
make realclean && \
perl Makefile.PL && \
) >&/dev/null \
&& make test \
&& git rebase --continue \
|| break
View github-dashboard
#!/usr/bin/env perl
# Copyright 2015 by David Golden
# Licensed under CC0
# Updated 2016-03-01:
# - more variation in organzations selected; you will want to customize this yourself
# - splits out wishlists differently/correctly
# - reports only PRs unless --all is specified
use v5.10;
use strict;
use warnings;
View dropbox-rawurl
#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;
use HTTP::Tiny;
my $url_in = shift || <>
or exit;
my $ht = HTTP::Tiny->new( max_redirect => 0 );