Skip to content

Instantly share code, notes, and snippets.

David Golden xdg

Block or report user

Report or block xdg

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@xdg
xdg / jiralink.sh
Created Sep 13, 2016
Put a Jira ticket link on the clipboard to paste into Google docs
View jiralink.sh
View clean-pause.pl
#!/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
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 https://creativecommons.org/publicdomain/zero/1.0/
# 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 );
You can’t perform that action at this time.