leobm’s gists

leobm / gist:6061734

Created July 23, 2013 11:41

break point in clojure - A macro from 《the joy of clojure》 for debugging:

	(defn contextual-eval [ctx expr]
	(eval
	`(let [~@(mapcat (fn [[k v]] [k `'~v]) ctx)]
	~expr)))
	(defmacro local-context []
	(let [symbols (keys &env)]
	(zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))
	(defn readr [prompt exit-code]
	(let [input (clojure.main/repl-read prompt exit-code)]
	(if (= input ::tl)

leobm / gist:6077287

Created July 25, 2013 06:13


	;; Simple solution for argument replacement in a string

	(defn replace-templates3 [text m]
	(clojure.string/replace text
	#"\{\w+\}"
	(fn [groups]
	((->> groups
	reverse
	(drop 1)

leobm / gist:6130426

Created August 1, 2013 11:08 — forked from muhqu/gist:6129959

	Scenario: Repost a 3D Post
	Given there is user A
	And there is user B following user A
	And there is user C following user B
	And there is user D following user A and B
	And user A posted a photo P1
	And user A posted a 3D photo P2
	When user B reposted P2 as P3
	Then the feeds should be like:
	\| feed \| of \| count \| contains \| because \|

leobm / gist:6240774

Created August 15, 2013 13:22 — forked from gerritjvv/gist:6239976

	;Print "Hi" every 2 seconds:



	(defn t []

	(go (loop [] (<! (timeout 2000)) (prn "hi") (recur))))


	;or as a macro

leobm / XTest.java

Created January 10, 2014 14:40 — forked from mariuszs/XTest.java

	Solution without PowerMock
	--

	import ch.qos.logback.classic.*;
	import ch.qos.logback.classic.spi.LoggingEvent;
	import ch.qos.logback.core.Appender;
	import org.junit.*;
	import org.junit.runner.RunWith;
	import org.mockito.*;
	import org.mockito.runners.MockitoJUnitRunner;

leobm / twitter_stream.erl

Last active August 29, 2015 14:19 — forked from gdamjan/twitter_stream.erl

	-module(twitter_stream).
	-author("[email protected]").

	%% Depends on:
	%% ibrowse for http
	%% couchbeam for couchbeam_json_stream (a fork of damienkatz json_stream_parse)
	%% mochiweb for mochiweb_util:urlencode

	-export([start/0]).

leobm / PlayAutowire.scala

Created May 20, 2016 18:41 — forked from mkotsbak/PlayAutowire.scala

Play server wiring to get Autowire to work with extra request information like IP-addresses and authentication. See how to use it here: https://gist.github.com/mkotsbak/122940aa003db9708093

	package controllers

	import play.api.http.{ContentTypes, ContentTypeOf}
	import upickle.Js
	import upickle.default._
	import play.api.mvc._

	import scala.concurrent.Future
	import scala.concurrent.ExecutionContext.Implicits.global

leobm / How to use PlayAutowire.scala

Created May 20, 2016 18:41 — forked from mkotsbak/How to use PlayAutowire.scala

How to use https://gist.github.com/mkotsbak/08b808d5152c96b65b4d

	In Application.scala:

	object MyServer extends AutowirePlayServer[Api] {
	override def routes(target: Api) = route[Api](target)
	override def createImpl(autowireContext: AutowireContext): Api = new ServerImpl(autowireContext)
	}

	object Application extends Controller {
	def api = PlayAutowire.api(MyServer)_
	}

leobm / send_dirs.html

Created June 8, 2016 18:07

	<!DOCTYPE html>
	<html>
	<head>


	</head>
	<body>
	<form>
	<!-- in firefox you can't choose a file diretory -->
	<input type="file" id="file_input" directory webkitdirectory multiple />

leobm / uri.js

Created February 14, 2017 11:04 — forked from jlong/uri.js

URI Parsing with Javascript

	var parser = document.createElement('a');
	parser.href = "http://example.com:3000/pathname/?search=test#hash";

	parser.protocol; // => "http:"
	parser.hostname; // => "example.com"
	parser.port; // => "3000"
	parser.pathname; // => "/pathname/"
	parser.search; // => "?search=test"
	parser.hash; // => "#hash"
	parser.host; // => "example.com:3000"

Felix Wittmann leobm