Skip to content

Instantly share code, notes, and snippets.

Avatar

Howard M. Lewis Ship hlship

View GitHub Profile
@hlship
hlship / norad.clj
Last active Jun 7, 2019
Sample Joker script
View norad.clj
#!/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
hlship / response.json
Created Apr 12, 2019
Example useless JSON response
View response.json
{
"status": "FAIL",
"payload": {
"errors": [
{
"field": "header",
"category": "APPLICATION",
"description": "Error description not available",
"severity": "ERROR",
"code": "org.apache.commons.json.JSONException",
View extract-docs.clj
(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]
View deep-nesting.clj
(map #(assoc % :full-name (str (:first-name %) " " (:last-name %))) (sort-by :last-name) (filter #(= "97204" (:zip person)) (get-contacts db))
View task.clj
(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)))
View tasks.docker.clj
(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
View gist:61909bddf85f0fcb395a361d8358e778
> 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...
View gist:ffc8f21009f62a76e654aba3a1d749b8
> 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")
View gist:dd5bc5889d9608e1357201e799b13d78
> boot hello
Hello, Howard
> boot hello -g Bonjour
Bonjour, Howard
>
View gist:c4d14b0a398cd04e1dac9dae006dd4a8
> boot hello --help
Prints a greeting.
Options:
-h, --help Print this help info.
-g, --greeting GREETING GREETING sets greeting to use.
-n, --name NAME NAME sets name to greet.
You can’t perform that action at this time.