stevehorn’s gists

stevehorn / gist:573744

Created September 10, 2010 14:40

	;Use this AutoHotKey script to launch Console2 with the working directory set to the directory you have open in Windows Explorer.
	;Think "open command window here"

	;Shortcut is CTRL+ALT+H

	#IfWinActive ahk_class CabinetWClass ; for use in explorer.
	;Open command window here
	^!h::
	Sleep 100
	ClipSaved := ClipboardAll

stevehorn / gist:548033

Created August 24, 2010 18:23

	<Test()>
	public sub Test_getting_by_Type
	Dim newTypeInstance As Type = GetType(ModelBinder.ModelBinder(Of Models.Query.Query))

	'Fails...why?
	Dim retrievedByType = ObjectFactory.GetInstance(newTypeInstance)()
	retrievedByType.ShouldNotBeNull()

	'Passes
	Dim retrievedByExplicit = ObjectFactory.GetInstance(Of ModelBinder.ModelBinder(Of Models.Query.Query))()

stevehorn / gist:537765

Created August 19, 2010 12:33

	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
	<html>
	<head>
	<script type="text/javascript" src="jquery-1.4.2.js"></script>
	<script type="text/javascript">
	$().ready(function() {
	var options = $("select").find("option").get();
	var dupesRemoved = $.unique(options);

	//This pops up a deuce... any idea why?

stevehorn / gist:533263

Created August 18, 2010 03:24

	balsamiq = 'C:/Program Files (x86)/Balsamiq Mockups/Balsamiq Mockups.exe'
	mockup_directory = 'C:/Mockups'
	output_directory = 'C:/Mockups/Images'

	require 'find'
	files = Array.new
	Find.find(mockup_directory) do \|f\|
	if /.bmml$/.match(f)
	files << f
	end

stevehorn / gist:523534

Created August 13, 2010 20:55

	Public Function GetById(ByVal id As Integer) As T Implements IDataLayer(Of T).GetById
	Dim entityType As Type = GetType(T)
	Dim entityTypeName As String = entityType.ToString
	Dim keyProperty As String = entityTypeName.Substring(entityTypeName.LastIndexOf(".") + 1) + "Id"

	Dim container = Context.MetadataWorkspace.GetEntityContainer(Context.DefaultContainerName, Metadata.Edm.DataSpace.CSpace)

	Dim entitySetName As String = (From meta In container.BaseEntitySets _
	Where meta.ElementType.Name = entityType.Name _
	Select meta.Name).First()

stevehorn / gist:517579

Created August 10, 2010 16:49

	public class Compare_To_VB_Object_Weirdness
	{
	[Test]
	public void Something()
	{
	var someObject = new Object();
	someObject = new DoStuff();

	//This does not compile, as expected
	int result = someObject.GiveMeAnInteger();

stevehorn / gist:517577

Created August 10, 2010 16:48

	Public Class CrazyVBTypingTests
	<Test()>
	Public Sub Test_crazy_crap()
	Dim anObject As New Object

	anObject = New DoStuff

	'This compiles, WTH?
	Dim someInteger As Integer = anObject.GiveMeAnInteger()
	someInteger.ShouldEqual(1)

stevehorn / gist:517576

Created August 10, 2010 16:47

	Public Class CrazyVBTypingTests
	<Test()>
	Public Sub Test_crazy_crap()
	Dim anObject As New Object

	anObject = New DoStuff

	'This compiles, WTH?
	Dim someInteger As Integer = anObject.GiveMeAnInteger()
	someInteger.ShouldEqual(1)

stevehorn / gist:506643

Created August 3, 2010 16:08

	CREATE TABLE [dbo].[Job](
	[JobId] [int] IDENTITY(1,1) NOT NULL,
	etc...

	--One or more Splits per Job
	CREATE TABLE [dbo].[Split](
	[SplitId] [int] IDENTITY(1,1) NOT NULL,
	[JobId] [int] NOT NULL,
	etc...

stevehorn / gist:492605

Created July 27, 2010 18:10

	//PassParametersDuringRedirectAttribute.cs

	// ~Line 25
	public override void OnActionExecuting(ActionExecutingContext filterContext)
	{
	base.OnActionExecuting(filterContext);

	//Fair to say you'd only want this behavior on a GET request?
	//I did this because it was hijacking properties on my model that was populated by a model binder.
	if(filterContext.RequestContext.HttpContext.Request.HttpMethod == "GET")

Steve Horn stevehorn