Skip to content

Instantly share code, notes, and snippets.

@ToJans
ToJans / ServantHelpers.hs
Last active September 24, 2015 10:29
Composable routes in servant
module ServantHelpers(Server,Proxy(..),err400, err404,liftIO,liftIOMaybeToEither) where
import Control.Monad.IO.Class (MonadIO, liftIO)
import Control.Monad.Trans.Either (EitherT, left, right)
import Servant(ServantErr,Proxy(..))
import Servant.Server
liftIOMaybeToEither :: (MonadIO m) => a -> IO (Maybe b) -> EitherT a m b
liftIOMaybeToEither err x = do
@ToJans
ToJans / phonenumbers.hs
Last active September 11, 2015 10:12 — forked from mathiasverraes/phonenumbers.hs
Phone Number Kata
-- Given a list of phone numbers, determine if it is consistent.
-- In a consistent phone list no number is a prefix of another. For example:
-- Bob 91 12 54 26
-- Alice 97 625 992
-- Emergency 911
-- In this case, it is not possible to call Bob because the phone exchange
-- would direct your call to the emergency line as soon as you dialled the
-- first three digits of Bob's phone number. So this list would not be consistent.
module PhoneList(isConsistent) where
@ToJans
ToJans / bio-commercial.md
Last active August 29, 2015 14:26
Commercial biography

Picture of Tom Janssens

Before Tom Janssens founded Arealities.com, he spent over a decade solving business problems using software and helping organisations to get better at building software.

Early 2014, he noticed an opportunity in the market and founded Arealities.com, a software company offering real-time interactive 3D visualisations over the web, next to virtual - and augmented reality solutions.

Next to this Tom is also one of the co-founders of DDD Belgium: a user group aiming to bridge the gap between software developers and business users.

You can follow Tom on his personal twitter account: @ToJans or via @ArealitiesCorp.

@ToJans
ToJans / script.md
Last active August 29, 2015 14:25
Arealities sales video script

You've created a wonderfull, customizable product and are ready to sell it to the whole, wide, world.

Do your prospects have a hard time visualizing what you are selling?

Do you think you could sell more if you could show your product in full blown 3D?

Arealities.com visualizes your buyer's dream in full effect, so close you can almost feel it.

@ToJans
ToJans / bio.md
Last active August 29, 2015 14:21
Buildstuff abstracts

Link to picture

Tom Janssens solves business problems by building software and helps organisations to get better at building software. He is also one of the founders of Domain Driven Design Belgium.

He explores and cross-contaminates ideas from different languages and platforms; over the years he has been using languages like C#, F#, JavaScript, Erlang, Elixir and Haskell, and he is currently studying Idris. Other aspects include start-ups, BDD, DDD, CQRS and tackling legacy software.

When Tom is not working for his start-up, he is consulting clients and occasionally dumping random opinionated blurbs on his blog.

@ToJans
ToJans / Ricardo.cs
Created May 22, 2015 16:44
Example for a question in the DDD-CQRS newsgroup: https://groups.google.com/d/msg/dddcqrs/hyyt8Jvq6J0/yAQkmlgo6wcJ
using System;
using System.Collections.Generic;
using System.Linq;
namespace RicardoDeSilva
{
namespace Contracts
{
public enum ScheduleGeneratorType { Daily, Hourly /*, Add others */ };
@ToJans
ToJans / crowdsourced_abstract_tojans.md
Last active August 29, 2015 14:21
Crowdsourced abstract for @ToJans at buildstuff.lt this year

This is a crowd-sourced abstract

I want you

As I have no idea what to talk about at buildstuff this year, I want to give you the opportunity to decide:

  • Fork the gist.
  • Change the title/text into a proper abstract.
  • Mention it on twitter to me (@tojans)
@ToJans
ToJans / format.md
Last active August 29, 2015 14:20
Export format

Sales designer export formats

Value types

GUID

A Globally Unique IDentifier, usually represented as a series of hexadecimal values.

Example

@ToJans
ToJans / package.json
Last active August 29, 2015 14:19
Edit-and-continue for client-side web apps with react
{
"name": "SalesDesigner",
"version": "0.0.0",
"description": "Sales designer",
"main": "index.js",
"scripts": {
"test": "echo \"Error: no test specified\" && exit 1"
},
"author": "Core bvba",
"license": "",
@ToJans
ToJans / bower.json
Created April 6, 2015 18:15
A small test with webcomponents - despite my bad start (I was reading 0.5 docs and not 0.8 docs), it looks reasonably elegant
{
"name": "webcomponents",
"version": "0.0.0",
"authors": [
"Tom Janssens <tom@corebvba.be>"
],
"license": "MIT",
"ignore": [
"**/.*",
"node_modules",