jbpotonnier

# -*- coding: iso-8859-15 -*-

import Tkinter as tkinter
import urllib2, urllib
import json

TRANSLATE_URL = 'http://ajax.googleapis.com/ajax/services/language/translate'

TO_ENGLISH = 'fr|en'
TO_FRENCH = 'en|fr'

jbpotonnier

import Data.Array (Array, array, (//), (!), assocs, elems)
import Data.List (sortBy, groupBy, group)
import Data.IORef (IORef, newIORef, readIORef, writeIORef)
import Control.Monad (forever, when)
import Data.Maybe (isJust, isNothing)
import Data.Ord (comparing)


data Player =  Black | White deriving (Show, Eq)

jbpotonnier

module ListZipper (
    focused, focusedIndex,setFocusedIndex, setUnfocused,
    forward, backward,
    append,
    toList, fromList
    )
where


type Zipper a = ([a], [a])

jbpotonnier

import Data.List (insertBy)
import Data.Ord (comparing)

data Trie = Trie {final :: Bool, children::[(Char,Trie)]}
    deriving Show


empty :: Trie
empty = Trie {final=False, children=[]}

jbpotonnier

module Utils where

import Data.Array (Ix, Array, assocs)

makeRows :: Int -> [a] -> [[a]]
makeRows _ [] = []
makeRows len elts = 
    (take len elts) : makeRows len (drop len elts)

jbpotonnier

(require-extension ansi-escape-sequences)
(require-extension srfi-13)
(require-extension extras)

(define (colorize txt)
  (set-text 
   (cond 
    ((string-prefix? "---" txt) '(bold))
    ((string-prefix? "+++" txt) '(bold))
    ((string-prefix? "-" txt)   '(fg-red ))

jbpotonnier

type player = | Black | White
type cell = | Cell of player | Empty

type board = (cell array) array

exception Invalid_position_exception of (int * int)

let opponent = function | Black -> White | White -> Black

let init_board () : board =

jbpotonnier

module GroupBy where

import Data.Map (Map)
import qualified Data.Map as Map

groupBy :: Ord b => (a -> b) -> [a] -> Map b [a] 
groupBy f = foldr (\ v -> Map.insertWith (++) (f v) [v]) Map.empty


groupBy' :: Ord b => (a -> b) -> [a] -> Map b [a] 

jbpotonnier

\#*\#
.*

jbpotonnier

from bottle import Bottle
import bottle
import pystache
import redis
import json

app = Bottle()
redisse = redis.Redis()

def mustache(template, context):