blais

      (when (not token)
        (setq token (read-string "GitHub API token: "))
        (github-set-config "token" token))

blais

;; FIXME: This is missing from the stdlib.
(defn split-extension [filename]
  (let [index (.lastIndexOf filename ".")]
    (list (.substring filename 0 index) (.substring filename index))))

(defn get-basename [filename]
  (let [index (.lastIndexOf filename ".")]
    (.substring filename 0 index)))

(defn get-extension [filename]

blais

#!/usr/bin/env python3
"""Display a graph of dependencies between Ubuntu packages.
Reads a list of packages from either a file or stdin.
Outputs a PDF.
"""
__author__ = "Martin Blais <blais@furius.ca>"

import argparse
import logging
import random