digal’s gists

digal / status.json

Created March 14, 2011 20:12

	{
	"version":{
	"git.branch":"status-methods",
	"git.message":"added last commit message to buildinfo",
	"git.commit":"3dac634f99d19e65691fe529c3a6efd31da10959"
	},
	"db":{
	"status":"OK",
	"info":"DBTCPConnector: 127.0.0.1:27017 /127.0.0.1:27017",
	"stats":{

digal / Dimensions.scala

Created April 3, 2011 19:47

Scala DSL for simple imagemagick-styles geometry strings

	/**
	* DSL for imagemagick-style geometry strings
	* See http://www.imagemagick.org/Magick++/Geometry.html for description
	* Note: offesets are not supported
	*
	* Implements following constructs
	*
	* <width> x <height> - Rect
	* <Rect> <Qualifier> (where qualifier is !/%/>/<) - Geometry
	*

digal / .bash_profile

Created September 23, 2011 09:01

Digal's .bash_profile

	# ANSI color codes
	RS="\[\033[0m\]" # reset
	HC="\[\033[1m\]" # hicolor
	UL="\[\033[4m\]" # underline
	HC="\[\033[5m\]" # blink
	INV="\[\033[7m\]" # inverse background and foreground
	FBLK="\[\033[30m\]" # foreground black
	FRED="\[\033[31m\]" # foreground red
	FGRN="\[\033[32m\]" # foreground green
	FYEL="\[\033[33m\]" # foreground yellow

digal / turtle

Created December 18, 2011 20:39

Solution for http://www.kurilo.su/programmers/

	if (direction == '') {
	direction = 'east';
	}
	var dirs;
	var look = function (dir) {
	if (dir == 'north') return north;
	else if (dir == 'south') return south;
	else if (dir == 'east') return east;
	else if (dir == 'west') return west;
	}

digal / gist:2380123

Created April 13, 2012 20:52

hello world program on iDCPU-16

	UInt16 program[] = {
	SET \| X << 4 \| 0x2A << 10, //SET X, 11
	ADD \| X << 4 \| NW << 10, VMEM_DISPLAY_START + 326, //ADD x, VMEM + 32 6
	SET \| Y << 4 \| 0x2D << 10, //SET Y, :data
	IFE \| MEM_Y << 4 \| 0x20 << 10, //IFE [X], 20
	SET \| PC << 4 \| 0x2C << 10, //JMP :loop
	SET \| MEM_X << 4 \| MEM_Y << 10, //SET [Y], [X]
	BOR \| MEM_X << 4 \| NW << 10, 0x0F00, //BOR [Y], 0x0F00 ; set char color
	ADD \| X << 4 \| 0x21 << 10, //ADD X, 1
	ADD \| Y << 4 \| 0x21 << 10, //ADD Y, 1

digal / gist:4060940

Created November 12, 2012 18:15

gistio test

aaa

digal / RAC example

Created August 26, 2013 14:07

	[[[[[[[[[RACAbleWithStart(client, networkReachabilityStatus)
	filter:^BOOL(NSNumber* statusNumber) {
	AFNetworkReachabilityStatus status = statusNumber.intValue;
	BOOL autoLoadOn3G = [[NSUserDefaults standardUserDefaults] boolForKey:KEY_AUTOLOAD_3G];

	return (status == AFNetworkReachabilityStatusReachableViaWiFi
	\|\| (autoLoadOn3G && status == AFNetworkReachabilityStatusReachableViaWWAN));
	}]
	take:1]
	flattenMap: ^(id value){

digal / gist:8418398

Last active January 3, 2016 05:49

Hobbit symmetrization

	(defn symmetrize-body-parts
	"Expects a seq of maps which have a :name and :size"
	[asym-body-parts]
	(loop [unprocessed-parts asym-body-parts
	processed-parts nil]
	(println (str "processed: " processed-parts))
	(println (str "unprocessed: " unprocessed-parts))
	(if unprocessed-parts
	(let [[current-part & remaining-parts] unprocessed-parts
	processed-with-left (conj processed-parts current-part)]

digal / index.html

Last active August 29, 2015 13:56

Working with bootstrap dropdowns in clojurescript

	<!DOCTYPE html>
	<html lang="en">
	<head>
	<meta charset="utf-8">
	<meta http-equiv="X-UA-Compatible" content="IE=edge">
	<meta name="viewport" content="width=device-width, initial-scale=1">
	<title>Pay QR</title>

	<!-- Bootstrap -->
	<!-- Latest compiled and minified CSS -->

digal / gist:11a482e47ee1b56c4b04

Last active August 29, 2015 14:02

Syncronous data fetcher in swift

	//@auto_closure hack to prevent `LLVM ERROR: unimplemented IRGen feature! non-fixed multi-payload enum layout`
	//as in https://github.com/maxpow4h/swiftz/blob/master/swiftz/Either.swift
	enum Either<L,R> {
	case Left(@auto_closure () -> L)
	case Right(@auto_closure () -> R)

	func flatMapLeft<L1>(f: (L) -> Either<L1, R>) -> Either<L1, R> {
	switch self {
	case let .Left(l): return f(l())
	case let .Right(r): return .Right(r)

	UInt16 program[] = {
	SET \| X << 4 \| 0x2A << 10, //SET X, 11
	ADD \| X << 4 \| NW << 10, VMEM_DISPLAY_START + 326, //ADD x, VMEM + 32 6
	SET \| Y << 4 \| 0x2D << 10, //SET Y, :data
	IFE \| MEM_Y << 4 \| 0x20 << 10, //IFE [X], 20
	SET \| PC << 4 \| 0x2C << 10, //JMP :loop
	SET \| MEM_X << 4 \| MEM_Y << 10, //SET [Y], [X]
	BOR \| MEM_X << 4 \| NW << 10, 0x0F00, //BOR [Y], 0x0F00 ; set char color
	ADD \| X << 4 \| 0x21 << 10, //ADD X, 1
	ADD \| Y << 4 \| 0x21 << 10, //ADD Y, 1

Yuri Buyanov digal