robert-stuttaford

Query basics

{:db/ident       :meta/tag
 :db/valueType   :db.type/tuple
 :db/tupleAttrs  [:meta/tag-namespace :meta/tag-key :meta/tag-value] ;; all unique strings
 :db/cardinality :db.cardinality/one
 :db/unique      :db.unique/identity}

Then

robert-stuttaford

Throughput Accounting

https://chronologist.com/blog/2012-07-27/theory-of-constraints-and-software-engineering/

Measures

• Throughput: TE is the rate of cash generated through delivery of working code into production. It is computed as sales price minus direct costs, such as packaging, delivery, installation, training, support, and networking.
• Investment: I is all money invested in software production systems plus money spent to obtain ideas for client-valued functionality. This does not apply to time spent by staff (that's Operating Expense). It does apply to the money spent on by-the-hour contractors.
• Operating Expense: OE is all money spent to produce working code from ideas. It is primarily direct labor of software engineers, but it also includes selling, general, and administrative costs. So, our fixed overheads.

robert-stuttaford

(ns cognician.db.translate
  (:require [datomic.api :as d])
  (:import [clojure.lang MapEntry]
           [datomic.query EntityMap]))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Language

(def default-language :en-GB)

robert-stuttaford

(ns scratch
  (:require [clojure.spec.alpha :as s]))

(def cards
  [{:suite :diamonds
    :value :king}
   {:suite :clubs
    :value 4}])

(def cards-sorted

robert-stuttaford

(require '[cljs.build.api :as api]
         '[clojure.string :as string]
         '[figwheel-sidecar.repl-api :as figwheel]
         '[figwheel-sidecar.components.nrepl-server :as figwheel.nrepl])

(def source-dir "src")

(def compiler-config
  {:main          'app.main
   :output-to     "target/app.js"

robert-stuttaford

(ns magic-the-gathering-card-spec
  (:require [clojure.spec :as s]
            [clojure.spec.gen :as gen]))

(s/def ::pos-int (s/and int? (complement neg?)))

(s/def ::set string?)
(s/def ::set-number ::pos-int)
(s/def ::artist string?)

robert-stuttaford

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Connection

(defprotocol DatomicConnection
  (as-conn [_]))

(extend-protocol DatomicConnection
  datomic.Connection
  (as-conn [c] c)
  datomic.db.Db

robert-stuttaford

(ns onyx-tx-report-queue
  (:require [clojure.core.async :refer [>!! alts!! chan close! put! thread]]
            [clojure.tools.logging :as log]
            ;; :all so clj-refactor doesn't remove it:
            [onyx.plugin.core-async :refer :all] 
            [datomic.api :as d])
  (:import [java.util.concurrent TimeUnit]))

(defn prepare-datom [db [e a v tx added]]
  [e (d/ident db a) v tx added])

robert-stuttaford

(let [dt  #(-> (clj-time.core/date-time 2015 % %2)
               clj-time.coerce/to-date)
      now (d/db (d/connect (db/database-uri :main)))]
  [(db/conn (db/database-uri :main))
   (vec
    (for [db [now ;; 29th July 2015
              (-> now
                  (d/since (dt 2 1))) ;; 1st Feb 2015
              (-> now
                  (d/as-of (dt 2 1))) ;; 1st Feb 2015

robert-stuttaford

{:environment :production
 :global      {:logging-config "./logback.xml"}
 :onyx        {:job-scheduler  :onyx.job-scheduler/balanced
               :task-scheduler :onyx.task-scheduler/balanced
               :peer-config    {:onyx.messaging/impl :netty
                                :onyx.messaging/peer-port-range [40200 40220]
                                :onyx.messaging/peer-ports [40199]
                                :onyx.messaging/bind-addr "localhost"
                                :onyx.messaging/backpressure-strategy :high-restart-latency}
               :peer-count     20