krisfoster

; Package-Requires: ((dash "2.10.0") (dash-functional "1.2.0") (emacs "24"))
;;;
;;; A markov model for generating rubbish text in an amusing
;;; and diverting number of voices.
;;;

;;
;; How to use:
;; 
;; The steps about downloading the smaple text files aren't

alexhall

;; internal helper function
(defn default-foo [] "Hello, world!")

;; public API
(def ^:dynamic *foo* default-foo)
(defn bar [] (*foo*))

;; Usage
(bar)
(binding [*foo* #("Goodbye, world!")]

krisfoster

Set up:

export EDITOR=emacsclient

In a running emacs:

M-x server-start

To quit editing and return control the gnuclient:

lynaghk

I 'm fleshing out some of these ideas here: https://github.com/lynaghk/todoFRP/tree/master/todo/angular-cljs

michaelklishin

Latency Comparison Numbers
--------------------------
L1 cache reference                            0.5 ns
Branch mispredict                             5   ns
L2 cache reference                            7   ns             14x L1 cache
Mutex lock/unlock                            25   ns
Main memory reference                       100   ns             20x L2 cache, 200x L1 cache
Compress 1K bytes with Zippy              3,000   ns
Send 1K bytes over 1 Gbps network        10,000   ns    0.01 ms
Read 4K randomly from SSD*              150,000   ns    0.15 ms

paulirish

// http://paulirish.com/2011/requestanimationframe-for-smart-animating/
// http://my.opera.com/emoller/blog/2011/12/20/requestanimationframe-for-smart-er-animating

// requestAnimationFrame polyfill by Erik Möller. fixes from Paul Irish and Tino Zijdel

// MIT license

(function() {
    var lastTime = 0;
    var vendors = ['ms', 'moz', 'webkit', 'o'];

ibdknox

(require '[noir.server :as server])
(use 'noir.core 'aleph.http 'lamina.core)

(defn async-response [response-channel request]
  (enqueue response-channel
    {:status 200
     :headers {"content-type" "text/plain"}
     :body "async response"}))

(defpage "/" [] "hey from Noir!")

krisfoster

#!/bin/bash
# Copied from a blog... but I have lost the link to it
HOST=localhost
PORT=25
python -m smtpd -n -c DebuggingServer ${HOST}:${PORT}

bpsm

(ns bpsmannschott
  (:import java.io.File)
  (:import java.io.FileNotFoundException))

(defn as-file [s]
  "Return whatever we have as a java.io.File object"
  (cond (instance? File s) s   ; already a file, return unchanged
        (string? s) (File. s)  ; return java.io.File for path s
        :else (throw (FileNotFoundException. (str s)))))