Skip to content

Instantly share code, notes, and snippets.

View viesti's full-sized avatar

Kimmo Koskinen viesti

View GitHub Profile
(re-find #"\d+"(.getName (java.lang.management.ManagementFactory/getRuntimeMXBean)))
locals {
monitoring_emails = [
"[email protected]",
"[email protected]"
]
}
resource "aws_sns_topic" "monitoring" {
name = "monitoring"
}
;; dependency: [software.amazon.awssdk/s3 "2.16.7"]
(ns some-ns
(:import (software.amazon.awssdk.services.s3.presigner S3Presigner)
(software.amazon.awssdk.services.s3.model GetObjectRequest)
(software.amazon.awssdk.services.s3.presigner.model GetObjectPresignRequest)
(software.amazon.awssdk.auth.credentials AwsCredentialsProvider)
(software.amazon.awssdk.auth.credentials AwsBasicCredentials)
(software.amazon.awssdk.regions Region)
(java.net URI)
@viesti
viesti / bb.edn
Created October 28, 2021 19:13
bb task to run nrepl server and send initialization code to the server when it starts
;; Task to run nrepl server and send some init code into it, when the nrepl server starts
{:tasks {dev {:requires ([bencode.core :as b]
[babashka.wait :as wait]
[babashka.process :as p :refer [process]])
:task (do
(let [;; Put the command to start nrepl server here, along any other aliases
proc (process "clj -M:dev/nrepl:dev/hashp" {:inherit true})]
(wait/wait-for-path ".nrepl-port")
(try
(let [port (Integer/parseInt (slurp ".nrepl-port"))]
@viesti
viesti / ordered.clj
Created July 29, 2022 16:55
Keep the order of keys from a JSON object
0% cat bb.edn
{:deps {org.flatland/ordered {:mvn/version "1.15.10"}
org.clojure/data.json {:mvn/version "2.4.0"}}}
0% cat ordered.clj
(ns ordered
(:require [flatland.ordered.map :as ordered-map]
[clojure.data.json :as data-json])
(:import (java.io PushbackReader)))
;; Taken from https://github.com/clojure/data.json/blob/master/src/main/clojure/clojure/data/json.clj#L295-L317