Skip to content

Instantly share code, notes, and snippets.

View rwillig's full-sized avatar

Ray Willig rwillig

7 followers · 0 following
View GitHub Profile
@rwillig
rwillig / core.clj
Created March 9, 2015 16:08
(def app
(->
(castra 'castra.api)
(wrap-cors #".*")
(wrap-session {:store (cookie-store {:key "a 16-byte secret"})})))
@rwillig
rwillig / build.boot
Created March 9, 2015 16:09
(deftask run-server
"run the castra server"
[]
(comp
(watch)
(serve :handler 'castra.core/app :port 3000)))
@rwillig
rwillig / core.clj
Created March 11, 2015 19:43
(def app
(->
(castra 'server.api)
(wrap-session {:store (cookie-store {:key "a 16-byte secret"})})
(wrap-resource )
(wrap-file )
(wrap-index-paths "/index.html")
(wrap-file-info)
(wrap-cors #".*")
))
@rwillig
rwillig / web.xml
Created March 11, 2015 19:44
<?xml version="1.0" encoding="UTF-8"?>
<web-app xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://java.sun.com/xml/ns/javaee" metadata-complete="true" version="3.0" xsi:schemaLocation="http://java.sun.com/xml/ns/javaee http://java.sun.com/xml/ns/javaee/web-app_3_0.xsd">
<display-name>boot-webapp</display-name>
<description>boot-webapp</description>
<servlet>
<servlet-name>boot-webapp</servlet-name>
<servlet-class>tailrecursion.ClojureAdapterServlet</servlet-class>
<init-param>
<param-name>serve</param-name>
<param-value>castra.core/app</param-value>
@rwillig
rwillig / build.boot
Last active August 29, 2015 14:16
(deftask build-tomcat
"build tomcat package"
[]
(set-env! :target-path "target")
(comp
(prod)
(web)
(uber :as-jars true)
(war)))
@rwillig
rwillig / app.cljs.hl
Created March 11, 2015 20:41
(defn stripe-init! []
(do
(.setPublishableKey js/Stripe @stripe-pub-key)
(reset! stripe-ready? true)))
(defn ensure-stripe []
(.getScript js/jQuery stripe-url #(stripe-init!)))
@rwillig
rwillig / app.cljs.hl
Created March 12, 2015 19:39
(defn get-query-params []
(let [qp (.-search (.-location js/window))]
(.log js/console "QP: " (clj->js qp))))
@rwillig
rwillig / test.html.hl
Created March 16, 2015 21:33
<script type="text/hoplon">
(page "test.html")
</script>
<html>
<head>
<title>Test</title>
</head>
<body>
@rwillig
rwillig / core.clj
Created March 25, 2015 03:24
(def app (->
(castra 'server.api)
(wrap-session {:store (cookie-store {:key "chabadncampusrox"})})
@rwillig
rwillig / build.boot
Created March 25, 2015 03:23
(task-options!
serve {:handler 'server.core/app
:init 'server.config/local-init
:reload true})