dpwiz

# via: http://blog.codinghorror.com/sorting-for-humans-natural-sort-order/

import re

def sort_nicely_inplace(l):
    """ Sort the given list in the way that humans expect.
    P.S. Beware of unicode and other i18n crap!
    """
    convert = lambda text: int(text) if text.isdigit() else text
    alphanum_key = lambda key: [ convert(c) for c in re.split('([0-9]+)', key) ]

dpwiz

import Data.Char
e=181021504832735228091659724090293195791121747536890433

u(f,m)x=i(m(x),       [],let(a,b)=f(x)       in(a:u(f,m)b))
(v,h)=(foldr(\x(y    )->00+128*y+x)0,u(     sp(25),((==)"")))
p::(Integer,Integer )->Integer      ->     Integer    --NotInt
p(n,m)x     =i(n==0 ,1,i(z n             ,q(n,m)x,    r(n,m)x))
i(n,e,d     )=if(n) then(e)              else  (d)    --23+3d4f
(g,main     ,s,un)= (\x->x,             y(j),\x->x*x,unlines)--)
j(o)=i(take(2)o==   "e=","e="++t        (drop(4-2)o),i(d>e,k,l)o)

dpwiz

SANDBOX=`python -c 'print([l.split()[-1] for l in open("cabal.sandbox.config") if "prefix" in l][0])'`
PATH=$SANDBOX/bin:$PATH yesod devel -p 1234

dpwiz

// Open http://twitblock.org/ and scan yourself,
// then set a robot to press block buttons (gently).

var go = function() {
    var btn = $(".block-button").not('.blocked').not('.error').first();
    console.debug(btn.parent().find('a.screen-name > span').text());
    if (btn.length) {
        btn.click();
        setTimeout(go, 2000);
    }

dpwiz

Keybase proof

I hereby claim:

• I am wiz on github.
• I am icrbow (https://keybase.io/icrbow) on keybase.
• I have a public key whose fingerprint is E668 2607 B758 0805 1067 4682 2F0A 0425 06CA B9F6

To claim this, I am signing this object:

dpwiz

module Main where

import Html (..)
import Html.Attributes (..)
import Html.Events (..)
import List
import LocalChannel as LC
import Signal

-- Model

dpwiz

# Usage:
# $ wget http://hipstername.tld/download/linux-x64/scarf && chmod +x scarf
# $ ./scarf gist:wiz/c32460e1ecbf612bb12f

title: Demo template
source: github:login/reponame

params:
  - key: spam
    title: Spam

dpwiz

import Debug
import Graphics.Input as Input
import Html
import Html (..)
import Html.Attributes (..)
import Html.Events (..)
import Html.Tags (..)
import Http
import Window

dpwiz

module JSONRPC.Client where

import Control.Applicative ((<|>))
import Data.Aeson (encode, decode)
import Data.Aeson.Types
import Network.HTTP.Conduit
import qualified Data.Text as T
import qualified Data.ByteString.Lazy.Char8 as BSL

data (FromJSON a) => JSONRPCReply a =

dpwiz

module PlainOldXML where

import           Network.HTTP.Conduit
import           Text.XML
import           Text.XML.Cursor

xmlQuery :: Manager -> String -> Document -> IO Cursor
xmlQuery manager url doc = do
    putStrLn "Request:" >> BSL.putStrLn (renderLBS (def { rsPretty = True }) doc)