cgrand

;; this file is a walkthrough of Moustache features, a web framework for Clojure
;; http://github.com/cgrand/moustache/tree/master

;; Moustache allows to declare routes, apply middlewares and dispatch on http methods.
;; Moustache is compatible with all frameworks built on Ring, including Compojure

(ns demo
  (:use net.cgrand.moustache)
  (:use [ring.adapter.jetty :only [run-jetty]])) ;; hmmm Ring without servlets
 

ckdake

#!/usr/bin/perl -w

#
## Copyright (C) 2009 Gleb Voronich <http://stanly.net.ua/>, 2010 Chris Kelly <http://ckdake.com/>
##
## This program is free software; you can redistribute it and/or
## modify it under the terms of the GNU General Public License
## as published by the Free Software Foundation; version 2 dated June,
## 1991.
##

prasincs

(defn get-hash [type data]
(.digest (java.security.MessageDigest/getInstance type) (.getBytes data) ))

(defn sha1-hash [data]
 (get-hash "sha1" data))

(defn get-hash-str [data-bytes]
  (apply str 
	(map 
		#(.substring 

rcampbell

(ns aws.s3
  (:refer-clojure :exclude [get])
  (:use [clojure.walk :only (keywordize-keys stringify-keys)]
        [clojure.contrib.def :only (defonce-)]
        [clojure.contrib.json :only (read-json write-json)])
  (:import [java.io PrintWriter InputStreamReader ByteArrayInputStream ByteArrayOutputStream]
           [java.util.zip GZIPInputStream GZIPOutputStream]
           [com.google.common.base Charsets]
           [com.amazonaws.services.s3 AmazonS3Client]
           [com.amazonaws.services.s3.model Region CreateBucketRequest ObjectMetadata

DavidWittman

A Brief Introduction to Fabric

Fabric is a deployment management framework written in Python which makes remotely managing multiple servers incredibly easy. If you've ever had to issue a change to a group servers, this should look pretty familiar:

for s in $(cat servers.txt); do ssh $s service httpd graceful; done

Fabric improves on this process by providing a suite of functions to run commands on the servers, as well as a number of other features which just aren't possible in a simple for loop. While a working knowledge of Python is helpful when using Fabric, it certainly isn't necessary. This tutorial will cover the steps necessary to get started with the framework and introduce how it can be used to improve on administering groups of servers.

tanakh

{-# LANGUAGE OverloadedStrings #-}

import Data.Conduit
import Data.Conduit.Network
import Data.Conduit.Text (encode, decode, utf8)
import qualified Data.Conduit.List as CL
import qualified Data.Conduit.Binary as CB

import Data.Text (toUpper)
import qualified Data.ByteString.Char8 as S8

agnoster

agnoster.zsh-theme

A ZSH theme optimized for people who use:

• Solarized
• Git
• Unicode-compatible fonts and terminals (I use iTerm2 + Menlo)

For Mac users, I highly recommend iTerm 2 + Solarized Dark

swaroopch

(ns scratchpad.core
  (:require [monger.core :as mg]
            [monger.collection :as mc]
            [monger.query :as mq]))


(def local-mongodb
  (.getDB (mg/connect-via-uri! "mongodb://127.0.0.1:27017/local") "local"))

gist:4383179

(:use [ring.util.codec :only [url-encode]])

(defn- make-query-string [m]
  (->> (for [[k v] m]
         (str (url-encode k) "=" (url-encode (str v))))
       (interpose "&")
       (apply str)))

(defn make-ga-url [utmp ip]
  (let [gif-url "http://www.google-analytics.com/__utm.gif?"

thegeez