Skip to content

Instantly share code, notes, and snippets.

View tylermorten's full-sized avatar

Tyler Morten tylermorten

View GitHub Profile
(ns style-sheet)
(def ReactNative (js/require "react-native"))
(defn platform-style
[style-map & addl]
(let [platform (-> (.. ReactNative -Platform -OS) keyword)]
(cond-> style-map
(contains? style-map platform) (->
(merge (get style-map platform))
(dissoc platform))
@tylermorten
tylermorten / compose.edn
Last active January 23, 2016 16:50
datomic compose identifier
{:db/id #db/id[:db.part/db]
:db/ident :createWithComposedID
:db/fn #db/fn {:lang "clojure"
:params [db m compose-assoc existing-assoc parent-ident]
:code (let [parent (d/entity db parent-ident)
newRecord (merge m {:db/id (d/tempid :db.part/user)
compose-assoc (str (:db/id parent) ":" (existing-assoc m))})]
[new-record])}}
@tylermorten
tylermorten / routes.cljs
Last active January 6, 2016 18:27
Routing in om.next with secretary?
(require '[secretary.core :refer-macros [defroute]]
'[om.next :as om :refer-macros [defui]]
'[om.dom :as dom])
(def app-state {:routing {:routing/name :home :routing/id ""}
:persons [{:id 1 :person/name "Test 1"}
{:id 2 :person/name "Test 3"}]})
(defn update-route [location id]
(om/transact! reconciler
@tylermorten
tylermorten / ajax.clj
Last active August 29, 2015 14:23
repond-ajax
(ns respond-ajax
(:require [io.pedestal.interceptor :as interceptor]
[cheshire.core :as json])
(defn base-response [content-type status]
{:status (or status 200)
:headers {"Content-type" content-type}})
(defmulti generate-response :content-type)
@tylermorten
tylermorten / CalcXNPV.cs
Created April 13, 2012 14:45
Calculate XNPV
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace CalculateXNPV
{
class Calculate
{
IEnumerable<DateTime> dates;