minimal

import XMonad

import qualified Data.Map as M
import Data.Bits ((.|.))

import XMonad.Layout.Grid
import XMonad.Config.Gnome
import XMonad.Layout.TwoPane
import XMonad.Layout.LayoutScreens
import XMonad.Config.Desktop (desktopLayoutModifiers)

minimal

(ns demo-interface.xhr-util
  (:require [cljs.core.async :as async :refer [<! >! chan close! timeout put!]]
            [goog.net.XhrIo :as xhr]
            [goog.structs :as structs]
            [goog.Uri.QueryData :as QueryData]))

;; goog xhr helpers
(defn xhr-event-to-edn
  "Extract useful info from a response, return a map"
  [event]

minimal

(defn concur []
  (let [numchan (chan)
        stringchan (chan)]
    (go
     (let [a (<! numchan)
           b (<! numchan)
           c (<! numchan)]
       (>! stringchan (str a " + " b " + " c " = " (+ a b c)))))
    (go (<! (timeout (rand-int 100))) (>! numchan (* 2 10)))
    (go (<! (timeout (rand-int 100))) (>! numchan (* 2 20)))

minimal

# !/usr/bin/env sh

hook() {
  local hook=.git/hooks/$1.sh
  if test -f $hook; then
    echo "... $1"
    . $hook
  fi
}

minimal

kernel=`uname`

if [ "$kernel" = 'Darwin' ]; then
    function grep_port {
        lsof -n -i4TCP:$1 | grep LISTEN
    }
else
    function grep_port {
        netstat -pntl | grep $1
    }

minimal

(ns fb-smileys.core
  (:use [clojure.test])
  (:gen-class))

(def reg #"(\(.*?)(:\))?(:\()?(\))")

(defn rm-smileys [line]
  (-> line
    (clojure.string/replace ":)" "")
    (clojure.string/replace ":(" "")))

minimal

from functools import partial, wraps
from threading import Thread
from time import sleep

import tornado
from tornado.ioloop import IOLoop


def threaded(func):
    @wraps(func)

minimal

;; response to http://squirrel.pl/blog/2013/01/16/clojurescript-painkiller-for-oop/

(defn Bag []
  (this-as this
    (set! (.-store this) (array))
    this))

(defprotocol MyBag
  (add [this val])
  (print [this]))

minimal

"""
Turn an example dictionary into a voluptious schema
"""
import pprint
import re
import sys

import voluptuous

minimal

def trim(text, max=100):
    """Trim a string to `max` chars
    """
    if len(text) > max:
        return text[:max]

    return text


class StatsDict(dict):