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
 

hiredman

(defn sig [x]
  (:sig (meta (resolve x))))

(defmulti type-of (comp type first list))

(defmethod type-of :function [thing & _] (sig thing))

(defmethod type-of java.util.List [expr & a]
  (conj (map #(type-of % (first a)) (rest expr))

minimal

;; Copyright (c) James Reeves. All rights reserved.
;; The use and distribution terms for this software are covered by the Eclipse
;; Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php) which
;; can be found in the file epl-v10.html at the root of this distribution. By
;; using this software in any fashion, you are agreeing to be bound by the
;; terms of this license. You must not remove this notice, or any other, from
;; this software.

(ns compojure.server.jetty
  "Clojure interface to start an embedded Jetty server."

richhickey

;   Copyright (c) Rich Hickey. All rights reserved.
;   The use and distribution terms for this software are covered by the
;   Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
;   which can be found in the file epl-v10.html at the root of this distribution.
;   By using this software in any fashion, you are agreeing to be bound by
;   the terms of this license.
;   You must not remove this notice, or any other, from this software.

(set! *warn-on-reflection* true)

pietern

# Author: Pieter Noordhuis
# Description: Simple demo to showcase Redis PubSub with EventMachine
#
# Update 7 Oct 2010:
# - This example does *not* appear to work with Chrome >=6.0. Apparently,
#   the WebSocket protocol implementation in the cramp gem does not work
#   well with Chrome's (newer) WebSocket implementation.
#
# Requirements:
# - rubygems: eventmachine, thin, cramp, sinatra, yajl-ruby

richhickey

;annotation syntax

(import [java.lang.annotation Retention RetentionPolicy Target ElementType]
        [javax.xml.ws WebServiceRef WebServiceRefs])
(definterface Foo (foo []))

;annotation on type
(deftype ^{Deprecated true 
            Retention RetentionPolicy/RUNTIME 
            javax.annotation.processing.SupportedOptions ["foo" "bar" "baz"]

pedrodelgallego

;; xercise 1 - Cellular Automaton - Cellular automata are fun and fairly easy to implement. 
;; In this exercise you will build Conway's Game of Life in Clojure with a Swing GUI.

;; Kudos For Oregu (author). 

(ns life
  (:import (javax.swing JFrame JPanel JButton JTextArea JLabel SwingUtilities JScrollPane WindowConstants)
	   (java.awt Graphics BorderLayout FlowLayout Color Dimension)
	   (java.awt.event MouseListener ActionListener MouseEvent MouseAdapter))
  (:use [clojure.contrib.seq-utils :only (flatten)]))

josiahcarlson

'''
redis_search.py

Written by Josiah Carlson July 3, 2010

Released into the public domain.


This module implements a simple TF/IDF indexing and search algorithm using
Redis as a datastore server.  The particular algorithm implemented uses the

chrisschreiner

(import 'java.awt.Color)

(def *default-color-fraction* 0.2)

(def *default-blend-fraction* 0.5)

(defn- format-hex [c]
  (str "#" (format "%02x%02x%02x"
                   (.getRed c)
                   (.getGreen c)

nathell

(ns http-client
  (:import [org.mortbay.jetty.client HttpClient ContentExchange]
           [java.io ByteArrayInputStream]))

(defn request
  "Takes a request conforming to the Ring specification and sends it to
the server. Returns a Ring response."
  [req]
  (let [{:keys [scheme server-name server-port uri query-string content-type headers character-encoding request-method body]} req
        client (HttpClient.)