jpthomson

(defn parse
  ([q] (parse q {}))
  ([q m]
   (cond (list? q) (parse (first q) (assoc m :params (apply hash-map (rest q))))
         (map? q) (apply merge m (map parse (first q)))
         (vector? q) (assoc m :children (mapv parse q))
         :else (assoc m :dispatch-key q))))

(defn resolve-value [env {:keys [dispatch-key] :as ast} value]
  (if-let [f (get-in env [:resolvers dispatch-key])]

josemarluedke

const { buildClientSchema, printSchema } = require('graphql');

const fs = require('fs');

const introspectionSchemaResult = JSON.parse(
  fs.readFileSync('./graphql.schema.json')
);

const graphqlSchemaObj = buildClientSchema(introspectionSchemaResult);
const sdlString = printSchema(graphqlSchemaObj);

okutbay

0-00.usa.cc
0-180.com
0-30-24.com
0-420.com
0-900.com
0-aa.com
0-mail.com
0-z.xyz
0.pl
00.pe

mhuebert

material-ui allows for customizing CSS via a higher-order component called withStyles. Like many higher-order components which expect render props, the purpose of withStyles is to accept some parameters, and then introduce a new variable into the scope of the component tree.

One succinct and simple way to translate the concept of scope into Clojure is via a custom let macro. Usage of such a macro is demonstrated here:

(:require [material-ui.styles :as m])

(m/let [{:keys [leftPad]} {:leftPad 
                           {:paddingLeft 8}}]
 ;; `leftPad` is now the _className_ associated with {:paddingLeft 8} 

dustingetz

;; Copyright (c) Cognitect, Inc.
;; All rights reserved.

;; Licensed under the Apache License, Version 2.0 (the "License");
;; you may not use this file except in compliance with the License.
;; You may obtain a copy of the License at
;;
;;      http://www.apache.org/licenses/LICENSE-2.0
;;
;; Unless required by applicable law or agreed to in writing, software

saralilyb

(defn maketimestamp
  "makes iso8601 timestamp manually

   (works pre java 8)
   from https://stackoverflow.com/questions/3914404/how-to-get-current-moment-in-iso-8601-format-with-date-hour-and-minute"
  []
  (let [tz (java.util.TimeZone/getTimeZone "UTC")
        df (new java.text.SimpleDateFormat "yyyy-MM-dd'T'HH:mm:ss'Z'")]
    (.setTimeZone df tz)
    (.format df (new java.util.Date))))

hiredman

(require '[clojure.set :as set])


(def info
  [{:year 2017
    :month 4
    :data "x"}
   {:year 2017
    :month 4
    :data "y"}

favila

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

(d/create-database "datomic:mem://counter-example")
;=> true
(def c (d/connect "datomic:mem://counter-example"))
;=> #'user/c

;; The essential features of creating and using an auto-increment counter in datomic:
;;
;; 1. A counter entity must store the current value and a nonce.

rygorous

Google Docs
Goоgle Docs
Gооgle Dоcs
Gоogle Dоcs
Gоοglе Doсѕ

favila

'[[(component-reachable [?se] ?e ?a ?v ?tx)
   [(identity ?se) ?e]
   [?e ?a ?v ?tx]]
  [(component-reachable [?se] ?e ?a ?v ?tx)
   [?se ?sa ?sv ?tx]
   [?sa :db/isComponent true]
   [?sa :db/valueType ?type]
   [?type :db/ident :db.type/ref]
   (component-reachable ?sv ?e ?a ?v ?tx)]]