jboynyc

# coding=utf-8
import requests
from yaml import load as yaml_load
from functools import partialmethod
from urllib.parse import urlencode, quote


class Mapillary(object):
    def __init__(self, token='token.yaml'):
        self._base_url = 'https://a.mapillary.com/v2'

jboynyc

(use srfi-1) ; provides filter

(define (quicksort elems)
  (if (null? elems) (list)
    (let [[middle (car elems)]
          [others (cdr elems)]]
      (let [[left (filter (lambda (x) (<= x middle)) others)]
            [right (filter (lambda (x) (> x middle)) others)]]
        (append (quicksort left) (cons middle (quicksort right)))))))

jboynyc

jboynyc

set -e

snap_env=snap_env
snap_pkg=snap-3.0.2-3.0-centos6.5-x64-py2.6

virtualenv -p python2.7 ${snap_env}
source snap_env/bin/activate
if [-d $snap_pkg ]
  then wget http://snap.stanford.edu/snappy/release/${snap_pkg}.tar.gz && tar xzf ${snap_pkg}.tar.gz
fi

jboynyc

import subprocess
from collections import defaultdict
from tempfile import NamedTemporaryFile
import igraph as ig


ROLX_BIN = 'Snap-3.0/examples/rolx/testrolx'


def extract_roles(input_graph, min_roles=2, max_roles=3):

jboynyc

import requests


def pdf_to_text(pdf_file):
    '''
    See http://givemetext.okfnlabs.org/#api for a description of the API.
    '''
    r = requests.put('http://beta.offenedaten.de:9998/tika', open(pdf_file, 'rb'))
    r.raise_for_status()
    r.encoding = 'utf-8'

jboynyc

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA512

I am transitioning to using a new pgp key with fingerprint 272B9BDD29CFE9509A3DC60629A105A586DEB641.
You can get it from keyservers or keybase.io/jboy now.

This message is signed with my current key (74A7A4B33DE1D395), which expires in a few days.
-----BEGIN PGP SIGNATURE-----

iQIzBAEBCgAdFiEEsQFdpc0ErrdEdt31mR24sJ2K5NgFAlqEujsACgkQmR24sJ2K

jboynyc

#lang racket

(define-syntax define-html-tag
  (syntax-rules ()
    [(_ element)
     (define element
       (let ([es (symbol->string 'element)])
         (make-keyword-procedure
          (lambda [keys vals . contents]
            (let ([properties (string-join

jboynyc

#lang racket

(require rsound)

(define *midi-notes* (range 38 85))

(define (choice lst)
  (list-ref lst (random (length lst))))

(define (sublist lst midpoint width)

jboynyc