taylorSando

Keybase proof

I hereby claim:

• I am taylorSando on github.
• I am taylorsando (https://keybase.io/taylorsando) on keybase.
• I have a public key whose fingerprint is FEC4 DC18 F535 B5E3 D634 7926 AEB3 47B5 3773 442E

To claim this, I am signing this object:

taylorSando

(ns datomscript.model
  (:require #?@(:clj [[datomic.api :as d]
                      [clojure.tools.logging :as log]])
            #?@(:cljs [[datascript.core :as d]])
            [clojure.string :as string]
            [clojure.walk :as walk]))

(def vconcat (comp vec concat))

(defn get-model [models model-type]  

taylorSando

;; Using defonce, because in a reloaded workflow, only want this to run once
;; Changes the default printing of the javascript source code of a function to just the function name.
;; Changes instances of dollar sign to dot, and underscores to hyphens.
;; cljs$core$pr_str would be cljs.core.pr-str instead
(defonce
  ugly-pr-opts-hack
  (set!
   cljs.core/pr-opts
   (let [old-pr-opts (cljs.core/pr-opts) ]
     (fn []         

taylorSando

(ns workzone.services.email-poll
  (:require [clojure.tools.logging :as log]                        
            [clojure.core.async :as core.async]
            [clojure.set]
            [workzone.model.error :as model.error]
            [plumbing.core :refer :all]
            [puppetlabs.trapperkeeper.core :refer [defservice]])
  (:import javax.mail.Flags
           javax.mail.Message
           javax.mail.internet.InternetAddress

taylorSando

(defn is-predicate-keyword? [k]
  (= (last (name k)) (last "?") ))

(reduce
 (fn [acc [k v]]
   (if (is-predicate-keyword? k)
     (if (true? v)
       (conj acc (apply str (butlast (name k))))
       acc)
     acc))

taylorSando

;; material-ui.macros.clj
(ns material-ui.macros)

(def material-tags
  '[AppBar
  AppCanvas
  Circle
  Checkbox  
  DatePicker
  DialogWindow

taylorSando

(ns path.to.services.env
  (:require 
            [clojure.tools.logging :as log]            
            [puppetlabs.trapperkeeper.core :as tk]
            [puppetlabs.trapperkeeper.services :as s]))

(defprotocol EnvironmentConfigService
  (get-config [this]
    "Returns a map containing all of the configuration values (enviornmentally aware).  Any string value that is
     prefixed by ENV_, will be considered an environmental variable.")

taylorSando

(function () {
  var React = require('react'),
    injectTapEventPlugin = require("react-tap-event-plugin"),
    materialUI = require('material-ui');

  //Needed for React Developer Tools
  window.React = React;

  window.MaterialUI = materialUI;

taylorSando

(ns om-material-ui.core
  (:require [clojure.string :as str]
            [om-tools.dom :as omt]))

(defn kebab-case
  "Converts CamelCase / camelCase to kebab-case"
  [s]
  (str/join "-" (map str/lower-case (re-seq #"\w[a-z]+" s))))

(def material-tags

taylorSando

(defn recursive-rule
  "A recursive rule for establishing prototype inheritance/isa relationship.  
  Can specify a maximum depth to travel, or none if there are no restrictinos.
  rule The name of the rule
  e The entity
  a The attribute
  v The value
  Should be creating the rule like: (recursive-rule 'isa '?e '?a '?v)
  Then within a query, can refer to it like this:
  (isa ?e :thing/isa ?v) "