ericnormand

#!/bin/sh
#_(

   #_DEPS is same format as deps.edn. Multiline is okay.
   DEPS='
   {:deps {clj-time {:mvn/version "0.14.2"}}}
   '

   #_You can put other options here
   OPTS='

halgari

So you’d like to contribute to Clojure, great! Let’s talk about what that involves.

The first thing you’ll want to make sure is that your idea is valid, and that you won’t spend a ton of time working on something that won’t make into master. To do this, you should create a JIRA ticket. For example, let’s say we want to improve how core.async handles channel closing propagation. It’s not a super complex problem, but there are some design questions about which of the various semantics currently in place should be the default, and if some semantics should be configurable.

So start by making a JIRA ticket and stating what the problem is you’re trying to solve, what the possible options for solving the problem. Now hit save and wait for the ticket to be triaged. Alex Miller will take a look when he can, and that can take a few days to a few weeks, depending on the time of the year (he has other responsibilities). Alex may out-right reject the idea if he knows Rich would never approve the ticket, but otherwise h

mfikes

If you are curious about the types inferred by ClojureScript, it is easy to get some insight using a macro:

(defmacro inferred-type [form]
  `'~(cljs.analyzer/infer-tag &env
       (cljs.analyzer/no-warn (cljs.analyzer/analyze &env form))))

This is the kind of dev-time macro you could refer using the new user.cljs feature.

Hendekagon

(defn copy2clip [x]
  (let [w (StringWriter.)]
    (pprint x w)
    (.. Toolkit getDefaultToolkit getSystemClipboard
     (setContents (StringSelection. (.toString w)) nil))))

favila

(require '[datomic.api :as d])

(defn entity-pull
  "Like pull, but returns values consistent with d/entity, i.e.,
  entities with :db/ident are represented as keywords and sets are
  used instead of vectors."
  [db pat eid]
  (->> (d/pull db pat eid)
       (clojure.walk/prewalk
         (fn [x]

Jaretbinford

The Datomic Pro peer can create the following CloudWatch metrics:


-----------------------------------PEER METRICS


|-------------------------------+------------+---------------+-----------------------------------------------------------------------------+
| Metric                        | Units      | Statistic     | Description                                                                 |
|-------------------------------+------------+---------------+-----------------------------------------------------------------------------+
| AvailableMB                   | MB         | minimum       | unused RAM on peer   *                                                       |

ghadishayban

;;
;; Example usages at the bottom of the file
;;

(defn productions
  "Returns a sequence of values by repeatedly calling `produce!` until it
   returns `fin`. The sequence can be used lazily/caching or reducible/non-caching.

   The arity-2 variant's `produce!` takes no arguments and returns a value
     or the terminator.

favila

(require '[datomic.api :as d])

(defn entity-changes
  "Return transaction history for an entity and its components.
  Returns a sequence of maps, each is the transaction map (tx metadata) plus a
  key `:entity-changes`, which is a nested map of keys: entity id, attribute
  ident, `:db/add` or `:db/retract`, and the value added or retracted, e.g.:
      {12345678910 {:long-card-1-attr          {:db/retract 1
                                                :db/add     0}
                    :long-card-many-attr       {:db/add     #{0}}

vvvvalvalval

(ns bs.utils.mock-connection
  "Utilities for using Datomic"
  (:require [datomic.api :as d])
  (:use clojure.repl clojure.pprint)
  (:import (java.util.concurrent BlockingQueue LinkedBlockingDeque)
           (datomic Connection)))

(defrecord MockConnection
  [dbAtom, ^BlockingQueue txQueue]

rauhs

(ns x.y
  (:use [plumbing.core]) ;; Just for the map-vals
  (:require [clojure.walk :refer [postwalk prewalk prewalk-demo postwalk-demo]]
            [clojure.core.match :refer [match]]
            [schema.utils :refer [named-error-explain validation-error-explain]]
            [schema.core :as s])
  (:import (schema.utils NamedError ValidationError)))

;; Partially FROM:
;; https://github.com/puppetlabs/clj-schema-tools