I am going to be doing some light reading this weekend. I wrote a script that generates a markdown copy of "The Diary of Anne Frank", a classic.
To install the book simply run.
perl install.pl
| ;;; package --- Jack's emacs config | |
| ;;; Commentary: | |
| ;; "change will come" | |
| ;; 8/14/14 ~ | |
| ;;; Code: | |
| ;; Start Melpa! | |
| (require 'package) | |
| (let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) |
| getCats = -> | |
| $.get 'http://thecatapi.com/api/images/get?format=xml&size=med&results_per_page=20', (data) -> | |
| xmlimages = $(data).find 'image' | |
| randomimage = xmlimages[Math.floor(Math.random() * xmlimages.length)] | |
| imageurl = $(randomimage).find("url").text() |
| #!/usr/bin/perl -w | |
| # Comedy central listings | |
| use strict; | |
| use URI; | |
| use LWP::Simple; | |
| use Web::Scraper; | |
| use Data::Dumper; | |
| use Encode; |
| #!/usr/bin/perl | |
| ## | |
| ## Author: jrk ([email protected]) | |
| ## | |
| ## For my fellow Virginia Tech geeks. | |
| ## Get the bus, on time. | |
| ## | |
| ## Disclaimer : If you get a 400 / POST error, the route you are trying to use does not actually exist. | |
| ## |
| #!/usr/bin/perl | |
| # Scrape top usernames last week | |
| use warnings; | |
| use strict; | |
| use Encode; | |
| use URI; | |
| use Web::Scraper; |
| #!/usr/bin/perl -w | |
| # List Cartoon Networking TV Listings. | |
| # Because I am bored, and watch cartoons.. | |
| use strict; | |
| use URI; | |
| use LWP::Simple; | |
| use Web::Scraper; | |
| use Data::Dumper; | |
| use Encode; |
| #!/usr/bin/perl | |
| # TL stream scraper ! | |
| use strict; | |
| use URI; | |
| use LWP::Simple; | |
| use Web::Scraper; | |
| use Data::Dumper; | |
| use Encode; |
| #!/usr/bin/perl -w | |
| # List Boomerang tv listings | |
| use strict; | |
| use URI; | |
| use LWP::Simple; | |
| use Web::Scraper; | |
| use Data::Dumper; | |
| use Encode; |
| # jack tmux conf | |
| set status-utf8 on | |
| set utf8 on | |
| # unbind C-b and go emacs style with C-x | |
| unbind C-b | |
| set -g prefix C-x | |
| bind C-x send-prefix | |
| set-option -g default-terminal "screen-256color" #"xterm-256color" # "screen-256color" |