This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(def payment-codes-per-block 4096) | |
(defn create-payment-code-feed | |
[db] | |
(let [payment-code-feed (chan 10)] | |
(go-loop [] | |
(let [block-id (allocate-block db) | |
block-start (* block-id payment-codes-per-block)] | |
(-> (onto-chan payment-code-feed | |
(->> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
// ==UserScript== | |
// @name Copy JIRA Tag | |
// @description Copies the text of the JIRA issue number and description to the clipboard | |
// @version 2 | |
// @grant GM.notification | |
// @grant GM.setClipboard | |
// @include https://jira.walmart.com/browse/* | |
// ==/UserScript== | |
let key = document.getElementById("key-val") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env joker | |
(ns script | |
(:require [joker.tools.cli :as cli] | |
[joker.os :as os] | |
[joker.strconv :refer [atoi]])) | |
(def opts | |
[["-d" "--defcon VALUE" "Set DEFCON level" | |
:parse-fn atoi |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
{ | |
"status": "FAIL", | |
"payload": { | |
"errors": [ | |
{ | |
"field": "header", | |
"category": "APPLICATION", | |
"description": "Error description not available", | |
"severity": "ERROR", | |
"code": "org.apache.commons.json.JSONException", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns extract-docs | |
(:require | |
[medley.core :refer [filter-vals]] | |
[clojure.java.io :as io] | |
[clojure.string :as str] | |
[clojure.edn :as edn]) | |
(:import | |
(java.io PrintWriter Writer File))) | |
(defn full-name [k] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(map #(assoc % :full-name (str (:first-name %) " " (:last-name %))) (sort-by :last-name) (filter #(= "97204" (:zip person)) (get-contacts db)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(go-loop [n 0] | |
(when-let [x (<! input-ch)] | |
(>! output-ch x) | |
(recur (inc n)) | |
n)) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(deftask base-image | |
"Builds the base image for other images." | |
[] | |
(comp (init :dir (io/file "base") :from "anapsix/alpine-java:8") | |
(add :file ["launch.sh"]) | |
(artifact :dependency '[[org.bouncycastle/bcprov-jdk15on "1.54"]] :target "/opt/jdk/jre/lib/ext/") | |
(artifact :dependency '[[com.walmartlabs/timestamper "0.1.2"]] :target "/usr/local/java-agents/") | |
(inst :section :postamble :inst :run :arguments ["chmod a+x launch.sh"]) | |
(build-image :image-name "base" :version default-base-version))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(deftask init | |
"First step when building a Docker image. Optionally specifies a directory | |
of resources that can be added to the image." | |
[d dir DIR file "Directory to add." | |
f from IMAGE str "Base image name."] | |
(assert from "--from is required") | |
(assert (or (nil? dir) | |
(is-readable-directory? dir)) | |
"--dir must specify an existing directory") | |
(with-pre-wrap fs |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
> boot pom --project example --version 0.1 -- jar -- install | |
Writing pom.xml and pom.properties... | |
Writing example-0.1.jar... | |
Installing example-0.1.jar... |
NewerOlder