Mikhail Kuzmin darkleaf

darkleaf / pool.clj

Created August 30, 2024 10:10

	(ns pool
	(:import
	(org.apache.commons.pool2 ObjectPool BasePooledObjectFactory PooledObjectFactory)
	(org.apache.commons.pool2.impl DefaultPooledObject GenericObjectPool GenericObjectPoolConfig)))

	(set! warn-on-reflection true)

	;; таймаут? W
	;; как останавливать? W
	;; как плавно расти?

darkleaf / str.clj

Last active August 23, 2024 09:02

	(ns experiments.str
	(:import
	(java.lang.reflect Field)
	(java.io PushbackReader Reader)
	(clojure.lang LispReader IFn)))

	(set! warn-on-reflection true)

	(def ^IFn/1 dispatchMacros
	(let [field (.getDeclaredField LispReader "dispatchMacros")]

darkleaf / core.clj

Last active August 19, 2024 18:33

	(ns example.core
	(:require
	[darkleaf.di.core :as di])
	(:import
	(io.helidon.http Method)
	(io.helidon.http.sse SseEvent)
	(io.helidon.webserver WebServer WebServerConfig$Builder)
	(io.helidon.webserver.http
	HttpRouting$Builder Handler
	ServerRequest ServerResponse)

darkleaf / exceptions.clj

Last active July 30, 2024 18:17

darkleaf / prettify.el

Created September 2, 2022 10:19

	(eval-after-load 'clojure-mode
	'(setq clojure--prettify-symbols-alist
	'(("\\\"" . ?״))))

	(use-package clojure-mode
	:init
	(add-hook 'clojure-mode-hook #'prettify-symbols-mode))

darkleaf / TracedFn.java

Created February 10, 2022 18:47

	package gmonit;

	import com.newrelic.api.agent.NewRelic;
	import com.newrelic.api.agent.Trace;
	import clojure.lang.IFn;
	import clojure.lang.ISeq;


	public final class TracedFn implements IFn {
	IFn fn;

darkleaf / plan

Last active October 13, 2021 07:41

darkleaf / madbrains

Last active September 7, 2024 12:29

	Вводная про монады, монадическое значение, монадическая функция, композер
	примеры монад - Promice, Optional, Completable Future, async/await
	Do notation

	Вводная про континуации, через исключения.
	Вводная про генераторы, без стека, со стеком, показать стейт-машину
	project loom
	Next, return, throw

	Цветные функции.

darkleaf / batch.js

Last active September 4, 2021 17:11

	function* getFullPost(id) {
	const post = yield ['getPost', id]
	const [author, comments] = yield* all([
	getFullUser(post.authorId),
	all(post.commentIds.map(id => getFullComment(id))),
	])
	return {
	...post,
	author,
	comments,

darkleaf / merge-with-key.clj

Created January 9, 2021 07:13 — forked from mlimotte/merge-with-key.clj

Clojure merge-with-key

	(ns mlimotte.util)

	; A variation on clojure.core/merge-with

	(defn merge-with-key
	"Returns a map that consists of the rest of the maps conj-ed onto
	the first. If a key occurs in more than one map, the mapping(s)
	from the latter (left-to-right) will be combined with the mapping in
	the result by calling (f key val-in-result val-in-latter)."
	[f & maps]