hlship

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

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

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

hlship

(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

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

hlship

(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

(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

> 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

> 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

> boot hello
Hello, Howard
> boot hello -g Bonjour
Bonjour, Howard
>