carlohamalainen

{-
Response to http://lists.samba.org/archive/linux/2013-November/032604.html
and http://lists.samba.org/archive/linux/2013-November/032610.html

Author: Carlo Hamalainen <[email protected]>
-}

import Control.Monad
import Data.Binary.Get
import Data.Bits

carlohamalainen

# Artificial example (averaging and then dumping) using the new
# MINC interface in Nipype.
#
# Carlo Hamalainen <[email protected]>

import os
import nipype.interfaces.minc as minc
import nipype.interfaces.io as nio
import nipype.interfaces.utility as util
import nipype.pipeline.engine as pe

carlohamalainen

-- Before:
commentForm :: EntryId -> Form Comment
commentForm entryId = renderDivs $ Comment
    <$> pure entryId
    <*> aformM (liftIO getCurrentTime)
    <*> aformM requireAuthId
    <*> areq textField (fieldSettingsLabel MsgCommentName) Nothing
    <*> areq textareaField (fieldSettingsLabel MsgCommentText) Nothing

-- Adding the ReCAPTCHA form, we just append "<* recaptchaAForm":

carlohamalainen

######### blah.py #########

from time import sleep

from celery import Celery
from celery.task import Task

import logging
import traceback
import time

carlohamalainen

-- Easiest way to run this with ghci:
--
-- ghci -XDataKinds -XGADTs -XEmptyDataDecls -XKindSignatures -XScopedTypeVariables -XTemplateHaskell

-- Natural numbers, e.g.
-- 0 == Z
-- 1 == S Z
-- 2 == S (S Z)
-- 3 == S (S (S Z))
-- etc

carlohamalainen

import getpass
import hashlib
import random
import string

password = getpass.getpass('password (not echoed): ')
salt = ''.join(random.choice(string.ascii_lowercase + string.ascii_uppercase + string.digits) for x in range(32))
password_hash = hashlib.md5(password + salt).hexdigest()

print "update CHANGEME_users set password='" + password_hash + ':' + salt + "' where id = ...;"

carlohamalainen

"""
Carlo Hamalainen <[email protected]>

Given a directory of shapefiles, e.g.

$ ls /path/to/shapefiles/
Project_Name.dbf
Project_Name.prj
Project_Name.sbn
Project_Name.sbx

carlohamalainen

#!/bin/bash

# Author: Carlo Hamalainen <[email protected]>

# Use at your own risk :)

set -e
set -x

sudo yum -y install vim

carlohamalainen

# IO actions on integers:
#
# data IOAction = Return Int
#               | Put Int (IOAction Int)
#               | Get (Int -> IOAction Int)
#
# Implement using nested lists, e.g.
# 
# [Return, 3]       == Return 3
# 

carlohamalainen

{-# LANGUAGE FlexibleContexts #-}

import Text.Parsec
import Control.Applicative hiding ((<|>),many)

-- Example input:

{-
top 1: