borkdude

#!/bin/bash
for f in $(egrep -o -R "defn?-? [^ ]*" * --include '*.clj' | cut -d \  -f 2 | sort | uniq); do
    echo $f $(grep -R --include '*.clj' -- "$f" * | wc -l);
done | grep " 1$"

borkdude

This gist demonstrates the inserting of link nodes to avoid node/link overlap.

This simple force-directed graph shows character co-occurence in *Les Misérables*. A physical simulation of charged particles and springs places related characters in closer proximity, while unrelated characters are farther apart. Layout algorithm inspired by [Tim Dwyer](http://www.csse.monash.edu.au/~tdwyer/) and [Thomas Jakobsen](http://web.archive.org/web/20080410171619/http://www.teknikus.dk/tj/gdc2001.htm). Data based on character coappearence in Victor Hugo's *Les Misérables*, compiled by [Donald Knuth](http://www-cs-faculty.stanford.edu/~uno/sgb.html).

borkdude

(set-env!
  :target-path "target"
  :source-paths #{"src"}
  :dependencies '[[org.clojure/clojure "1.9.0-RC1"]
                  [org.clojure/clojurescript "1.9.946"]
                  [figwheel-sidecar "0.5.14"]])

(require '[figwheel-sidecar.repl-api :as ra])

(deftask cljs-repl []

borkdude

*.clj linguist-language=Clojure
*.cljs linguist-language=Clojure

borkdude

#!/usr/bin/env bb

(import (java.net ServerSocket))
(require '[clojure.string :as string] '[clojure.java.io :as io])

(with-open [server-socket (new ServerSocket 8080)
            client-socket (.accept server-socket)]
  (loop []
    (let [out (io/writer (.getOutputStream client-socket))
          in (io/reader (.getInputStream client-socket))

borkdude

import json
import sqlite3
import sys

from bcoding import bencode, bdecode


def read():
    return dict(bdecode(sys.stdin.buffer))

borkdude

#!/usr/bin/env bb
(ns script
  "Make a 'Code Quality' report from clj-kondo for use in GitLab CI.

  JSON issue format:
  https://docs.gitlab.com/ee/user/project/merge_requests/code_quality.html#implementing-a-custom-tool

  Usage:
  Add the following job in .gitlab-ci.yml:

borkdude

#!/usr/bin/env bb
;; Ported from https://gist.github.com/pyr/d5e17af9c572b681a57de52895437298 to babashka

;; klein aims to be a small joker script to mimick
;; most of leiningen's default behavior while minimizing
;; divergence from standard facilities provided by
;; tools.deps

;; This is built as a single file script to simplify
;; deployment and will avoid requiring any code beyond

borkdude

import java.lang.reflect.Method;
import java.net.URL;
import java.net.URLClassLoader;
import java.util.HashMap;
import java.util.Map;
import java.util.concurrent.ConcurrentHashMap;

import org.graalvm.polyglot.Context;
import org.graalvm.polyglot.Value;

borkdude

(ns spacedl.spacedl
  (:require [clojure.string :as string :refer [join starts-with?]]))

(.on js/process "uncaughtException" #(js/console.error %))

(defonce http (js/require "http"))
(defonce https (js/require "https"))
(defonce fs (js/require "fs"))

(defn page [gallery-url page-number]