Thomas Haratyk jazzytomato

un systeme de calcul de dettes dans le terminal

les données sont persistées dans un ou des fichiers (json ou yaml).

exemple d'utilisation :

ruby dettes.rb

I hereby claim:

To claim this, I am signing this object:

	# troll your friends and enemies
	class Fixnum
	alias_method :add, :+
	def +(other); rand(10) == 0 ? self * other : self.add(other); end
	end

	def readable secs
	return "0 minute" if secs < 60
	secs /= 60
	[[60, :minute], [24, :hour], [Float::INFINITY, :day]].map{ \|count, name\|
	if secs > 0
	secs, n = secs.divmod(count)
	pluralize(n.to_i, name.to_s) if n > 0
	end
	}.compact.reverse.join(' ')
	end

	module Utilities
	# A helper for JSON interaction. Treat the hashes recursively
	module CamelSnakeHash
	# camelize and stringify keys
	def camelize_keys(value)
	case value
	when Array
	value.map { \|v\| camelize_keys(v) }
	when Hash
	Hash[value.map { \|k, v\| [k.to_s.camelize(:upper), camelize_keys(v)] }]

	module WorkerHelper
	REDIS_EXPIRY_TIME = 20.minutes

	def logger
	unless @logger
	@logger = Logger.new(STDOUT)
	@logger.formatter = proc do \|severity, datetime, _progname, msg\|
	"[#{severity}] #{datetime}: #{msg}\n"
	end
	end

 # Example for replace spec files modules:
 module MyFirstModule
   module MySecondModule
     describe Something do
       # code
     end
   end
 end

	# Enumerable extensions
	module Enumerable
	# this will be able to handle a pool of workers (actors)
	# can be useful to have a pool to limit the amount of concurrent work
	class ParallelWorker
	POOL_SIZE = ENV.fetch('CELLULOID_POOL_SIZE', [Celluloid.cores, 2].max).to_i
	include Celluloid
	def yielder(element, block)
	block.call(element)
	end

	(defn wrap-query-params-spec [h]
	"Try to parse query params with clojure spec. Look for a spec named like 'query-params/[uri]'
	If found and the spec does not conform, return the explained message"
	(fn [req]
	(try
	(let [query-spec-k (keyword (str "query-params" (:uri req)))
	query-params (keywordize-keys (:query-params req))
	conformed-query-params (s/conform query-spec-k query-params)]
	(if (= :clojure.spec/invalid conformed-query-params)
	(->