KirinDave

{-# LANGUAGE OverloadedStrings, QuasiQuotes #-}
module Helpers.SassCompiler (compressSassCompiler, sassCompiler) where

import qualified Data.ByteString.Char8 as B
import Control.Arrow ((>>>))

import Data.Conduit
import Data.Conduit.Process
import System.Process.QQ
import Data.Conduit.List (consume)

KirinDave

(defn normalize-json-args [map]
  (letfn [(keyify  [s] (keyword (string/replace s "_" "-")))
          (cleaner [[k v]] (if (string? k) [(keyify k) v] [k v]))
          (walker  [x] (if (map? x) (into {} (map cleaner x)) x))]
    (postwalk walker map)))

KirinDave

[10:48am] singpolyma joined the chat room.
[10:48am] singpolyma:https://github.com/ericmoritz/wsdemo/blob/results-v1/results.md
[10:48am] singpolyma left the chat room.

KirinDave

// Initializing variables
var action = "enter";
var location = {
    name: "CrowdFlower",
    latitude: "37.00000",
    longitude: "-122.00000"
};

console.log("Setting up campfire chatter.");

KirinDave

halp :: Int -> IO [Int]
halp 0 = return []
halp a = do
    putStrLn "Tick in IO [Int]"
    y <- halp (a - 1)
    return $ 1 : y

halphalp :: Int -> [IO Int]
halphalp n = replicate n $ (putStrLn "Tick in [IO Int]" >> return 1)

KirinDave

main = do

    xmonad $ ewmh $ defaultConfig
        { manageHook = manageDocks <+>
                       manageHook defaultConfig <+>
                       -- ...
                       namedScratchpadManageHook sessionScratchpads
        , layoutHook = avoidStruts $ smartBorders myLayoutHook
        , logHook = dynamicLog >> updatePointer (Relative 0.1 0.05)
        , modMask    = modMaskKey

KirinDave

import System.IO
import System.Environment
import Data.List
import Data.Maybe
import Control.Applicative
import HSH

isQuote x = x == '"' || x == '\''
isntQuote = not . isQuote
lineWith = find . isInfixOf

KirinDave

export PAGER=less
export MANPAGER="less -r"
alias lesr='less -r'

# Git commands
alias gb='git branch -a --color -v'
alias gr="gitk --all --since='last week' &"

# Helpful
alias pu=pushd

KirinDave

#!/bin/bash

xrdb -merge .Xresources
eval `ssh-agent`

feh --bg-scale ~/Pictures/Wood-Clean.jpg
unity-2d-panel &
sleep 1

gnome-screensaver &

KirinDave

{-# LANGUAGE GeneralizedNewtypeDeriving, OverloadedStrings #-}
module Fanboy.State (
  Fanboy,
  FanboyState(..),
  FanboyConfig(..),
  runFanboy,
  getHandle,
  sayLine) where
import Data.ByteString (ByteString)
import qualified Data.ByteString as B