claj’s gists

zerg000000 / user.clj

Last active November 12, 2022 23:03

S3 presign (post) example aws-api

	(require '[buddy.core.codecs.base64 :as base64]
	'[cognitect.aws.util :as util]
	'[clojure.string :as str]
	'[jsonista.core :as json]
	'[cognitect.aws.credentials :as creds]
	'[cognitect.aws.http :as http])
	(import '[java.util Date])

	(defn host-style-bucket-uri [bucket]
	(str "http://" bucket ".s3.amazonaws.com/"))

tomconnors / datomic_util.cljc

Created October 22, 2018 19:27

kc datomic util

	(ns kc.datomic
	"Datomic utility functions

	Usage Notes:

	Some functions in this namespace take sequences of facts and return them modified in some way. Some up-front modifications are useful for those functions, like replacing all map-form facts with vector-form facts. In order to avoid doing these modifications repeatedly to same the same set of facts (which would be harmless but wasteful), two versions of these functions exist: a \"safe\" version that does those up-front modifications, and an \"unsafe\" version that expects those modifications to already have been performed. The unsafe versions are named like the safe ones, but with a single quote appended.

	TODO:
	- consider implementing all fns that branch based on operation as multimethods
	These fns mostly support :db/add, :db/retract :db.fn/retractEntity, :db.fn/cas,

martinklepsch / logging.cljc

Last active July 2, 2024 13:37

simple Clojurescript logging using Google Closure logging tools

	;; This previously was CLJX but has now been updated to use cljc. Thanks @caskolkm
	;; https://gist.github.com/caskolkm/39d823f5bac7051d3062

	(ns app.logging
	(:refer-clojure :exclude [time])
	(:require #?(:clj [clojure.tools.logging :as log]
	:cljs [goog.log :as glog]))
	#?(:cljs (:import goog.debug.Console)))

	#?(:cljs

aphyr / gist:f72e72992dade4578232

Last active December 17, 2016 08:00

Clojure Keyword.intern

	commit 8e51c34ca4d97e48750850d5ba09956f89783b4e
	Author: Kyle Kingsbury <aphyr@aphyr.com>
	Date: Wed May 7 19:06:15 2014 -0700

	Improve Keyword.intern performance

	Keyword interning is an expensive factor in many Clojure
	serialization/deserialization paths, especially where the same set of
	keywords are created and freed repeatedly; e.g. iterating over records
	with similar structure. There are two principle costs to keyword

cgrand / decay.clj

Last active April 17, 2019 10:17

	(ns net.cgrand.decay
	"Exponentially decaying lists. See http://awelonblue.wordpress.com/2013/01/24/exponential-decay-of-history-improved/
	for background and http://clj-me.cgrand.net/2013/02/12/decaying-lists-log-scale-for-lists/ for documentation")

	;; PRNG, formulas straight from java.util.Random javadoc
	(defn- seed ^long [^long n]
	(bit-and (unchecked-multiply n 0x5DEECE66D)
	(unchecked-dec (bit-shift-left 1 48))))

	(defn- next-seed ^long [^long seed]

jonase / gist:3122363

Created July 16, 2012 12:14

	(use '[datomic.api :only [db q] :as d])

	(def schema
	[{:db/doc "A persons name"
	:db/id #db/id[:db.part/db]
	:db/ident :name
	:db/valueType :db.type/string
	:db/cardinality :db.cardinality/one
	:db.install/_attribute :db.part/db}

stuarthalloway / Datomic News Updates

Created June 18, 2012 14:53

Datomic update examples against a social news database

	;; Datomic example code

	;; demonstrates various update scenarios, using a news database
	;; that contains stories, users, and upvotes

	;; grab an in memory database
	(use '[datomic.api :only (q db) :as d])
	(def uri "datomic:mem://foo")
	(d/create-database uri)
	(def conn (d/connect uri))

pelle / accounts.clj

Created May 8, 2012 14:37

Using database functions in Datomic transactions and annotating transaction history

stuarthalloway / gist:2002582

Created March 8, 2012 18:39

Datomic extent query

	;; Datomic example code
	;;
	;; The extent of entity ?x is all datoms that are about ?x.
	;; Drop this into your rules.
	;;
	;; Demonstrates
	;;
	;; 1. recursive query (extent calls itself)
	;; 2. disjunction (different extent bodies are ORed)
	;; 3. component attributes (e.g. your arm is a component, your brother isn't)

amalloy / gist:1807340

Created February 12, 2012 08:37

Linus Ericsson claj