Howard M. Lewis Ship hlship

I sling Clojure code at NuBank.

hlship / jira-tag.user.js

Last active April 8, 2021 18:44

Greasemonkey Script to copy issue number / description to clipboard

	// ==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")

hlship / norad.clj

Last active June 7, 2019 18:40

Sample Joker script

	#!/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

hlship / response.json

Created April 12, 2019 21:19

Example useless JSON response

	{
	"status": "FAIL",
	"payload": {
	"errors": [
	{
	"field": "header",
	"category": "APPLICATION",
	"description": "Error description not available",
	"severity": "ERROR",
	"code": "org.apache.commons.json.JSONException",

hlship / extract-docs.clj

Created June 20, 2018 22:24

	(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]

hlship / deep-nesting.clj

Created May 26, 2017 18:26

(map #(assoc % :full-name (str (:first-name %) " " (:last-name %))) (sort-by :last-name) (filter #(= "97204" (:zip person)) (get-contacts db))

hlship / task.clj

Last active October 28, 2016 22:58

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

hlship / tasks.docker.clj

Created October 28, 2016 22:50

	(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

hlship / gist:61909bddf85f0fcb395a361d8358e778

Created October 28, 2016 22:40

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

hlship / gist:ffc8f21009f62a76e654aba3a1d749b8

Created October 28, 2016 22:10

	> boot repl
	nREPL server started on port 62614 on host 127.0.0.1 - nrepl://127.0.0.1:62614
	REPL-y 0.3.7, nREPL 0.2.12
	Clojure 1.9.0-alpha10
	Java HotSpot(TM) 64-Bit Server VM 1.8.0_74-b02
	Exit: Control+D or (exit) or (quit)
	Commands: (user/help)
	Docs: (doc function-name-here)
	(find-doc "part-of-name-here")
	Find by Name: (find-name "part-of-name-here")

hlship / gist:dd5bc5889d9608e1357201e799b13d78

Created October 28, 2016 21:58