xdg

jiralink () {
  if [ -z $1 ]; then
    echo "usage: jiralink <ticket-id>"
  else
    local ticket
    ticket="$1"
    echo "<a href='https://jira.mongodb.org/browse/$ticket'>$ticket</a>" | textutil -stdin -format html -convert rtf -stdout | pbcopy
    echo "Link to $ticket copied to clipboard"
  fi
}

xdg

#!/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 ()
{
  while true; do
    ( perl Makefile.PL &&    \
      make realclean   &&    \
      perl Makefile.PL &&    \
    ) >&/dev/null            \
    && make test             \
    && git rebase --continue \
    || break

xdg

#!/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;

xdg

#!/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 );