cheecheeo

-- https://gist.github.com/pufuwozu/5550437
import Prelude hiding ((.), id)
import Control.Arrow
import Control.Category
import Data.Monoid

{-
class Monoid m where
  mappend :: m -> m -> m
  mempty :: m

cheecheeo

Configure git for rebase use

git config --global --add branch.autosetuprebase always

What's this? https://www.kernel.org/pub/software/scm/git/docs/git-config.html search for 'autosetuprebase'

Configure an existing clone for rebase use

git for-each-ref refs/heads --format='%(refname:short)' | \

while read branch; do

cheecheeo

act - person - Jesus
act - person - Moses
act - person - Zaccheus
act - person - David
act - person - Goliath
act - person - Adam
act - person - Eve
act - verb - forgive
act - verb - resurrection

cheecheeo

Make a bunch of gifs from the video (scaled appropriately)

ffmpeg -i <movie_file> -vf scale=iw/2:ih/2 /tmp/<fun_name>%03d.gif

Animate all those gifs

convert -delay 4 -loop 0 /tmp/*.gif /tmp/animated_.gif

cheecheeo

module LocalMinima where

import Control.Applicative

minima :: Maybe Int -> Maybe Int -> Int -> (Maybe Int, Maybe Int, Maybe Bool)
minima ma mb c =
  (mb, Just c, (&&) <$> ((>) <$> ma <*> mb) <*> ((<) <$> mb <*> Just c))

minimums = foldl (\(prevprev, prev, acc) cur ->
        case minima prevprev prev cur of

cheecheeo

module MonoidFun where

-----------------------------------------------------------------------------
-- |
-- Inspirition from: http://stackoverflow.com/a/13357359/1019205 lists are
-- the "free monoid" and http://hackage.haskell.org/package/newtype

import Data.Monoid
import Data.Foldable
import Control.Newtype

cheecheeo

// run like so: cat /tmp/HtmlParsing.scala | scala -cp /home/jchee/.m2/repository/org/ccil/cowan/tagsoup/tagsoup/1.2.1/tagsoup-1.2.1.jar

import java.net.URI
import org.ccil.cowan.tagsoup.jaxp.SAXFactoryImpl
import scala.xml.XML

val loader = XML.withSAXParser(new SAXFactoryImpl().newSAXParser())
val elem = loader.load(URI.create("http://www.x.org").toURL)
(elem \\ "span" \\ "@class").distinct.length

cheecheeo

# Terminal colors
# https://github.com/sigurdga/gnome-terminal-colors-solarized

cheecheeo

module Compositions where

import Prelude hiding (id, (.))
import Data.Foldable (Foldable)
import qualified Data.Foldable as F
import Control.Category
import Control.Arrow
import Control.Applicative (Applicative, (<*>), pure)

-- | @compositions fs@ composes all @fs@ together

cheecheeo

#!/bin/bash -x

cabal sandbox hc-pkg unregister thrift

rm -rf ./tutorial/hs/dist/ ./tutorial/gen-hs &&
cabal sandbox init &&
pushd lib/hs &&
  ln -sf ../../.cabal-sandbox . &&
  ln -sf ../../cabal.sandbox.config . &&
popd &&