zerg000000

(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

(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

;; 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

commit 8e51c34ca4d97e48750850d5ba09956f89783b4e
Author: Kyle Kingsbury <[email protected]>
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

(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

(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 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

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

(def uri "datomic:mem://accounts")

;; create database
(d/create-database uri)

;; connect to database
(def conn (d/connect uri))

stuarthalloway

;; 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

(defn vec->tree [calls]
  (-> (reduce (fn [tree [op was-ret?]]
                (if was-ret?
                  (-> tree
                      (z/append-child op)
                      (z/up))
                  (-> tree
                      (z/append-child [op])
                      (z/down)
                      (z/rightmost))))