sirhc

#!/bin/bash -eu

curl -sL "$1" \
    | perl -l -ne 'm{"text/xml\+oembed"} && m{title=".*? on Twitter: "([^"]*)""} && print $1' \
    | perl    -pe 's{&#(\d+);}{chr($1)}ge; s{"}{"}g;' \
    | perl    -pe 's{(https?://t.co/\w+)}{ `curl -s -D- $1 | awk '\''/^location:/{print \$2}'\'' | tr -d "\r\n"` }ge' \
    | sed -e :a -e '/^\n*$/{$d;N;};/\n$/ba'

sirhc

gsettings set org.gnome.shell.overrides focus-change-on-pointer-rest false

sirhc

http://ethanschoonover.com/solarized
https://github.com/altercation/vim-colors-solarized
https://github.com/altercation/mutt-colors-solarized
https://github.com/sigurdga/gnome-terminal-colors-solarized
https://github.com/seebi/dircolors-solarized
https://github.com/huyz/irssi-colors-solarized

sirhc

use Acme::Pony;
         bUf                         
         Fybuff                      
        ybuFFYbuF                    
       fyBUFfYbuFf                   
      YBufFYBuFFyb                   
      uFfYBUffybufF                  
         ybuFfybUff                  
        yBuFfYBuFfy          buF     
       FyBuffYBUfFybuFFY    bUfFyB   

sirhc

No web proxy:

$ openssl s_client -showcerts -connect pypi.python.org:443 </dev/null >/dev/null
depth=2 C = US, O = DigiCert Inc, OU = www.digicert.com, CN = DigiCert High Assurance EV Root CA
verify return:1
depth=1 C = US, O = DigiCert Inc, OU = www.digicert.com, CN = DigiCert High Assurance CA-3
verify return:1
depth=0 C = US, ST = California, L = San Francisco, O = "Fastly, Inc.", CN = *.a.ssl.fastly.net
verify return:1

DONE

sirhc

cd /tmp

# download perl-5.16.2 from https://metacpan.org/module/perl

gzip -cd perl-5.16.2.tar.gz | tar xf -

cd perl-5.16.2

sh Configure -des \
    -Dcf_by=`whoami` \

sirhc

#!/bin/bash
#
# Vim configuration for pd (~/.vim/after/ftplugin/perl.vim):
#     :setlocal keywordprg=pd
#     :setlocal iskeyword+=:,$,@,%

pd=$(type -P cpandoc)
pd=${pd:-"$(type -P perldoc)"}

$pd -f "$@" 2>/dev/null && exit

sirhc

#!/bin/bash

pd=$(type -P cpandoc)
pd=${pd:-"$(type -P perldoc)"}

$pd -f "$@" 2>/dev/null && exit
$pd    "$@" 2>/dev/null && exit
$pd -q "$@" 2>/dev/null && exit
man "$@"    2>/dev/null && exit

sirhc

NAME

The Constitution of the United States of America

PREAMBLE

We the people of the United States, in order to form a more perfect union, establish justice, insure domestic tranquility, provide for the common defense, promote the general welfare, and secure the blessings of liberty to ourselves and our posterity, do ordain and establish this Constitution for the

sirhc

#!/usr/bin/env perl

use strict;
use List::Util qw( shuffle );

print "Unsorted list: @ARGV\n";
@ARGV = shuffle @ARGV while !is_sorted(@ARGV);
print "Sorted list:   @ARGV\n";

sub is_sorted {