Skip to content

Instantly share code, notes, and snippets.

View viesti's full-sized avatar

Kimmo Koskinen viesti

40 followers · 10 following
View GitHub Profile
@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
@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 / aws-java-sdk-v2-presign.clj
Created May 27, 2021 13:42
;; 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 / terraform_sns_email.tf
Last active June 24, 2020 11:32
locals {
monitoring_emails = [
"user1@example.com",
"user2@example.com"
]
}
resource "aws_sns_topic" "monitoring" {
name = "monitoring"
}
@viesti
viesti / jvm-pid.clj
Created September 4, 2019 10:45
(re-find #"\d+"(.getName (java.lang.management.ManagementFactory/getRuntimeMXBean)))
@viesti
viesti / utils.py
Created May 2, 2019 15:54
Stream and decompress a gzip file from S3
import boto3
import zlib
def decompress_object(bucket, key, out_file):
s3 = boto3.client("s3")
body = s3.get_object(Bucket=bucket, Key=key)['Body']
with open(out_file, "ab") as out:
decompressor = zlib.decompressobj(zlib.MAX_WBITS|32)
for chunk in body.iter_chunks():
out.write(decompressor.decompress(chunk))
@viesti
viesti / glow-sample.clj
Last active April 28, 2019 17:35
Clojure code highlight via Glow
(spit "talk-samples.html" (format "<html><head><style>%s</style></head><body>%s</body></html"
(g/generate-css (-> glow.colorschemes/solarized-dark
(dissoc :background)
(assoc :symbol "#0b2a34")
(assoc :string "#1f7a73")))
(g/highlight-html (slurp "talk-samples.clj"))))
@viesti
viesti / math-brute-force.clj
Last active January 12, 2018 22:09
;; Solves math excercise:
;; 9 = 5 [ ] 3 [ ] 4 [ ] 5,
;; , where [ ] should be one of operations: +, -
;; Uses just random brute force :)
user> (def ops #{+ -})
user> (loop [cnt 0
op1 (first ops)
op2 (first ops)
op3 (first ops)]
@viesti
viesti / keybase.md
Created November 12, 2017 10:17

Keybase proof

I hereby claim:

  • I am viesti on github.
  • I am viesti (https://keybase.io/viesti) on keybase.
  • I have a public key ASB3ZVN7e3l1zmGJt3jyoS9DKhRU18qwmhRiif0a1r2qZgo

To claim this, I am signing this object:

@viesti
viesti / composing.clj
Created December 23, 2015 11:36
Composing
user=> (->> (range 20) (drop 3) (filter odd?) (take 5))
(3 5 7 9 11)
user=> (into [] (comp (drop 3) (filter odd?) (take 5)) (range 20))
[3 5 7 9 11]