Skip to content

Instantly share code, notes, and snippets.

View digal's full-sized avatar

Yuri Buyanov digal

38 followers · 9 following
View GitHub Profile
@digal
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
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
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
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
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 + 32*6, //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
digal / gist:4060940
Created November 12, 2012 18:15
gistio test
aaa
@digal
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
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
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
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)