| (ns liberator.gist | |
| (:use [liberator.core :only [defresource request-method-in]] | |
| [compojure.core :only [defroutes ANY]] | |
| [ring.adapter.jetty :only [run-jetty]])) | |
| (defn create-new-ticket [] | |
| ;; create the ticket, and return the url | |
| "/tickets/new") | |
| (defn get-all-tickets [] |
| [Unit] | |
| Description=Website | |
| [Service] | |
| Environment=NOMAD_INSTANCE=PROD | |
| Type=simple | |
| ExecStart=/home/james/bin/lein trampoline run | |
| Restart=always | |
| User=james | |
| WorkingDirectory=/srv/james/src/website |
| read oldrev newrev refname | |
| worktree="/usr/local/lib/my-app/src" | |
| if [ "refs/heads/deploy" = "$refname" ] ; then | |
| echo "Pushing changes live:" ; | |
| sudo service my-app stop > /dev/null; | |
| git --work-tree="$worktree" checkout $newrev > /dev/null; | |
| sudo service my-app start; | |
| echo "Deployed!" |
| (loop [] | |
| (when-let [objs (seq (map :key (:objects (aws.sdk.s3/list-objects (aws-creds) bucket))))] | |
| (println "Deleting 1000 objs") | |
| (dorun (pmap #(aws.sdk.s3/delete-object (aws-creds) bucket %) objs)) | |
| (recur))) |
| (require 'package) | |
| (package-initialize) | |
| (add-to-list 'package-archives | |
| '("marmalade" . "http://marmalade-repo.org/packages/")) | |
| (add-to-list 'package-archives | |
| '("melpa" . "http://melpa.milkbox.net/packages/") t) | |
| (menu-bar-mode -1) | |
| (if tool-bar-mode |
| Config { font = "-misc-fixed-*-*-*-*-10-*-*-*-*-*-*-*" | |
| , bgColor = "black" | |
| , fgColor = "grey" | |
| , position = Top | |
| , allDesktops = True | |
| , lowerOnStart = True | |
| , commands = [ Run Weather "EGLC" ["-t","<station>: <tempC>C, <skyCondition>","-L","2","-H","25","--normal","green","--high","red","--low","blue"] 18000 | |
| , Run Cpu ["-L","3","-H","50","--normal","green","--high","red"] 5 | |
| , Run Memory ["-t","Mem: <usedratio>%"] 10 | |
| , Run DynNetwork ["-t", "<dev>: <rx> kB/<tx> kB "] 5 |
| (ns weather.core | |
| (:require [clj-http.client :as http])) | |
| ;; utility Functionsp | |
| (def weather-api | |
| "http://api.openweathermap.org/data/2.5/") | |
| (defn weather-find [something] | |
| (let [response (http/get (str weather-api "find") | |
| {:query-params {:q something} |
| (ns your-app.handler | |
| (:require [compojure.core :refer [routes GET]] | |
| [compojure.handler :refer [api]] | |
| [ring.util.response :refer [response]])) | |
| (defn app-routes [] | |
| (let [system (init-system)] | |
| (routes | |
| (GET "/route/:id" [id] | |
| (response (handle-get system id))) |
| (:require [cljs.core.async :as a] | |
| [dommy.core :as d] | |
| [clidget.widget :refer [defwidget] :include-macros true]) | |
| (:require-macros [dommy.macros :refer [node]] | |
| [cljs.core.async.macros :refer [go-loop]])) | |
| (defwidget counter-widget [{:keys [counter]} events-ch] | |
| (node | |
| [:div | |
| [:h2 "counter is now: " counter] |
pj (the entry point of benchmark 1 when compiled with CLJS advanced flag)todomvc.cljs.app.run_benchmark_BANG_) x 50