dperini

//
// Regular Expression for URL validation
//
// Author: Diego Perini
// Created: 2010/12/05
// Updated: 2018/09/12
// License: MIT
//
// Copyright (c) 2010-2018 Diego Perini (http://www.iport.it)
//

olivoil

class Search
  include Mongoid::Document

  field :query, :type => Hash
  field :collection
  
  embedded_in :user

  def to_criteria
    Mongoid::Criteria.new( collection.titleize.constantize ).fuse( query )

Pet3ris

(ns fsm
  (:refer-clojure :exclude [==])
  (:use [clojure.core.logic]))

;; Encoding a Finite State Machine and recognizing strings in its language in Clojure core.logic

;; We will encode the following FSM:
;;
;;  (ok) --+---b---> (fail) 
;;   ^     |

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

bobby

(ns datomic-helpers
  (:require [datomic.api     :as d]))

;;; Expose Datomic vars here, for convenience

;;; Ring middleware

(defn wrap-datomic
  "A Ring middleware that provides a request-consistent database connection and
  value for the life of a request."

ux.cljs

;;; TODO - drag-enter and -exit events : Right now, a component doesn't receive events for other components
;;; If a component responds to drag-over, it won't "revert" state until the drag ends.

;; NOTE - compiles with om 0.1.7.  Needs updating to 0.2+

(ns omdnd.ux
  (:require-macros
           [cljs.core.async.macros :refer [go alt!]]
   )

bowmanb

(ns my-project.http-server
  (:require [compojure.core :as compojure]
            [com.stuartsierra.component :as component]
            [my-project.my-resource :as my-resource]
            [ring.adapter.jetty :as jetty]))

(compojure/defroutes app
                     my-resource/handler)

(defrecord HTTPServer [port server]

allgress

(ns reagent-test.core
  (:require [reagent.core :as reagent :refer [atom]]
            [datascript :as d]
            [cljs-uuid-utils :as uuid]))

(enable-console-print!)

(defn bind
  ([conn q]
   (bind conn q (atom nil)))

loganlinn

(ns history
  "Light wrappers and utils for js/history")

(defn back! [] (.back js/history))

(defn forward! [] (.forward js/history))

(defn go! [idx] (.go js/history idx))

(defn replace-state!

tmarshall

var AWS = require('aws-sdk');

AWS.config.update({
  accessKeyId: '{AWS_KEY}',
  secretAccessKey: '{AWS_SECRET}',
  region: '{SNS_REGION}'
});

var sns = new AWS.SNS();