kitsu

"""Process a lisp file to extract useful data."""
import sys, os
from collections import namedtuple

substitutions = (
        # Expand quote literal to quote fn
        ("'(", "(quote "),
        # Expand parens with white-space for splitting
        (')', ' ) '),
        ('(', ' ( '),

kitsu

"""Some composable HTML functions, and pre-built widgets."""
from functools import partial
from itertools import chain

#---------------------------- Generic HTML ------------------------------------

self_closing = ["area", "base", "br", "col", "command", "embed", "hr", "img",
                "input", "keygen", "link", "meta", "param", "source", "track",
                "wbr"]

kitsu

import bpy

target = bpy.context.object
mesh = target.data
#tmat = target.matrix_world
#bpy.ops.object.visual_transform_apply()
#bpy.ops.ed.undo()
# Get a list of the objects bounding box z-coords
zs = [point[2] for point in target.bound_box]
bottom = min(zs)

kitsu

(ns my-test
  (use [midje.sweet])
  (require [clojure.core.async :as async :refer :all])
  (import [javax.swing JFrame JButton JPanel SwingUtilities])
  (import [java.awt Color Dimension])
  (import [java.awt.event ActionListener WindowAdapter KeyListener]))


(defn map-chan [f in]
  (let [c (chan)]