Skip to content

Instantly share code, notes, and snippets.

View AeroNotix's full-sized avatar
💭
🇺🇦

Aaron France AeroNotix

💭
🇺🇦
104 followers · 6 following
View GitHub Profile
@AeroNotix
AeroNotix / src.txt
Created January 30, 2014 14:09
/home/xeno/dev/payments/src:
total used in directory 12 available 16942696
drwxr-xr-x 3 xeno xeno 4096 Jan 19 13:00 .
drwxr-xr-x 11 xeno xeno 4096 Jan 30 11:30 ..
drwxr-xr-x 8 xeno xeno 4096 Jan 29 22:04 payments
@AeroNotix
AeroNotix / .emacs.el
Created February 9, 2014 21:56
(normal-top-level-add-to-load-path '("."))
(normal-top-level-add-subdirs-to-load-path))
@AeroNotix
AeroNotix / *scratch*.el
Created February 9, 2014 22:03
as[pdasdasd
@AeroNotix
AeroNotix / middleware.clj
Created February 9, 2014 22:05
(ns payments.sso.middleware
(:require [payments.exceptions.http :refer [unauthorised]]
@AeroNotix
AeroNotix / transaction.clj
Created February 19, 2014 15:23
(defmacro allnd [& pairs]
(let [pairs (partition 2 pairs)]
`(and ~@(for [pair pairs]
`(= ~(first pair) ~(second pair))))))
@AeroNotix
AeroNotix / gist:9103070
Created February 19, 2014 22:32
This file has been truncated, but you can view the full file.
Running Apache Archiva...
wrapper | --> Wrapper Started as Console
wrapper | Launching a JVM...
jvm 1 | Wrapper (Version 3.2.3) http://wrapper.tanukisoftware.org
jvm 1 | Copyright 1999-2006 Tanuki Software, Inc. All Rights Reserved.
jvm 1 |
jvm 1 | 2014-02-19 23:31:06.867:WARN:oejd.ContextDeployer:ContextDeployer is deprecated. Use ContextProvider
jvm 1 | 2014-02-19 23:31:06.870:WARN:oejd.WebAppDeployer:WebAppDeployer is deprecated. Use WebAppProvider
jvm 1 | 2014-02-19 23:31:06.927:INFO:oejs.Server:jetty-8.1.14.v20131031
jvm 1 | 2014-02-19 23:31:06.937:INFO:oejs.NCSARequestLog:Opened /usr/share/java/archiva/logs/request-20140219.log
@AeroNotix
AeroNotix / core.clj
Created February 23, 2014 12:59
(defn expire-entries! [c]
(cache/ttl-cache-factory
(into {} (filter #((complement nil?) (second %))
(map #(vector % (get c %)) (keys c))))
:ttl (.ttl-ms c)))
@AeroNotix
AeroNotix / core.clj
Created February 24, 2014 10:13
(defn get-entry [short]
(-> (kv/fetch-one bucket short)
:result
:value))
(defn get-all-entries []
(let [keys (wb/keys-in bucket)]
(group-by :channel (pmap get-entry keys))))
@AeroNotix
AeroNotix / core.clj
Created February 24, 2014 11:27
(defn list-all [request]
(wc/connect!)
{:status 200
:body (html [:body
[:ul
(for [[channel urls] (get-all-entries)]
[:li channel
[:ul (for [url urls]
(let [v (escape-html url)]
[:li [:a {:href v} v]]))]])]])})
@AeroNotix
AeroNotix / transaction.clj
Created February 24, 2014 12:45
(defvalidator payment-schema "payment.json")
(defmacro defvalidator [name schema]
`(def ~name
#(validate {:$ref ~schema} %)))