jasonthename

Keybase proof

I hereby claim:

• I am jasonthename on github.
• I am jasonthename (https://keybase.io/jasonthename) on keybase.
• I have a public key whose fingerprint is 1A0D E4A8 F61C 9851 6AAA 25BF 8C29 8915 81C0 5884

To claim this, I am signing this object:

jasonthename

jasonthename

// Open direct messages window, paste this into console.
function deleteNextConversation()
{
    if (!(dm = document.getElementsByClassName("DMInbox-conversationItem")[0])) {
        clearInterval(tmr)
        return;
    }

    dm.firstChild.click();
    setTimeout('document.getElementsByClassName("js-actionDeleteConversation")[0].click()', 1000);

jasonthename

#!/usr/bin/perl
#
# Script to download/clone all of your Github repos
#
# Copyright Nicholas Humfrey, 22nd August 2017
#
# License: http://unlicense.org
#

use JSON;

jasonthename

int paren = 0, brace = 0, brack = 0;
for (int ch = fgetc(fp); ch != EOF; ch = fgetc(fp)) {
  if (ch == '(') paren++; if (ch == ')') paren--;
  if (ch == '{') brace++; if (ch == '}') brace--;
  if (ch == '[') brack++; if (ch == ']') brack--;
}
if (paren != 0 || brace != 0 || brack != 0) {
    fprintf(stderr, "unbalanced: %d %d %d\n", paren, brace, brack);
}

jasonthename

#Format the link to navigate to the artists genius webpage
genius_urls <- paste0("https://genius.com/artists/",top_artists$Artist)

#Initialize a tibble to store the results
artist_lyrics <- tibble()

# Outer loop to get the song links for each artist 
for (i in 1:10) {
  genius_page <- read_html(genius_urls[i])
  song_links <- html_nodes(genius_page, ".mini_card_grid-song a") %>%