Skip to content

Instantly share code, notes, and snippets.

View danneu's full-sized avatar

Dan danneu

85 followers · 10 following
  • Texas
View GitHub Profile
@danneu
danneu / app.clj
Created September 5, 2014 19:14
(def app-routes
;; Echo back the json
(POST "/lol" req
(let [json (:body req) ; wrap-json-body parses the json into a clojure map
]
;; Now we echo back the json map. wrap-json-response converts our `json`
;; clojure map into a string
{:body json, :status 200})))
(def app
@danneu
danneu / mud.clj
Created September 10, 2014 14:38
a simple MUD that starts with one room (the spawn). users can build out in arbitrary directions. ex: `build east`
(ns mud.builder1
(:require [schema.core :as s]
[clojure.java.io :as io]
[clojure.string :as str]
[clojure.set :as set]
[mud.ansi :as ansi])
(:import [java.net ServerSocket]
[java.io PrintWriter]))
(defn prompt
@danneu
danneu / mud.js
Created September 11, 2014 23:58
// mkdir mud
// cd mud
// npm install --save sprintf
var net = require('net');
var sprintf = require('sprintf').sprintf;
var vsprintf = require('sprintf').vsprintf;
// A convenient combination of console.log + sprintf formatting
// Example: log('[Client %s] Hello', 42); -> '[Client 42] Hello'
function log(msg) {
@danneu
danneu / ratelimit.clj
Created October 3, 2014 18:43
(ns x.ratelimit
(:require
[taoensso.carmine :as car :refer [wcar]]
[ring.util.response :as response]
[ring.mock.request :as mock])
(:import
[java.util Calendar]))
;; Util ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@danneu
danneu / timeago.cljs
Created October 6, 2014 19:23
example: https://dl.dropboxusercontent.com/spa/quq37nq1583x0lf/1e26vhv5.png
(ns x.timeago
(:require-macros
[cljs.core.async.macros :refer [go-loop]])
(:require
[om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]
[clojure.string :as str]
[goog.string :as gstr]
[cljs.core.async :refer (<! >! chan timeout put!)]
[goog.string.format]))
@danneu
danneu / debug-middleware.clj
Created October 6, 2014 19:45
(def app
(-> app-routes
((fn [handler]
(fn [req]
(pprint req)
(let [res (handler req)]
(pprint res)
res))))
wrap-edn-params))
@danneu
danneu / or-query.clj
Created October 7, 2014 20:48
(let [rules [[[popular? ?e]
[?friend :user/friends ?e]
[(count ?friend) ?friend-count]
[(< ?friend-count 10)]]
[[popular? ?e]
[?e :user/name "Obama"]]]]
(d/q '[:find ?e
:in $ %
:where (popular? ?e)]
(get-db) rules))
@danneu
danneu / qqcode.clj
Created January 16, 2015 20:28
(ns guild.markdown.render
(:require [hiccup.core]
;[markdown.core :as md]
[clojure.string :as str]
[guild.smilies :as smilies]
[guild.markdown.transformers :refer [autolink-transformer
escape-transformer]]
[markdown.transformers :refer [transformer-vector]]))
;; (defn bb-img [text]
@danneu
danneu / master.html
Created February 26, 2015 20:06
koa + swig
<body>
<!-- Global navigation -->
<ul id="navigation">
<li>...</li>
<li>...</li>
</ul>
<!-- Nested templates are rendered here, they just have to
define an 'embed' block -->
<div id="content">
@danneu
danneu / demo1.sql
Last active August 29, 2015 14:17
DROP TABLE IF EXISTS users;
DROP TABLE IF EXISTS games;
CREATE TABLE users (
id serial PRIMARY KEY,
uname text NOT NULL,
created_at timestamp with time zone NOT NULL DEFAULT NOW()
);
CREATE TABLE games (