mprymek’s gists

mprymek / gist:8379066

Last active July 22, 2022 09:18

Elixir metaprogramming example

	# This is an example of metaprogramming in the Elixir language.
	#
	# We will define a domain specific language (DSL) for the definition
	# of a service which is watched by several sensors.
	# Each sensor watches some property/functionality of the service and
	# returns the result of the check.
	#
	# To determine if the service is functioning properly, we need functions
	# to run all the sensors' code and gather the returned data.
	#

mprymek / encfs-agent

Last active February 25, 2020 14:06

encfs-agent - mount encfs filesystems using ssh-agent

	#! /usr/bin/env python2

	"""
	encfs-agent

	Mounts encfs filesystems with passwords generated using private keys stored in ssh-agent.
	You can have any number of encrypted filesystems ("vaults") under VAULTS_DIR. Password for
	each of them is derived from its name and given private key stored in ssh-agent.
	You can use ssh-askpass for ssh-agent if you want.

mprymek / gist:6e814d4a3c84ad3111c1

Created May 12, 2014 13:27

	#
	# library part
	#

	defprotocol PerxistentProto do
	def refresh o
	def save! o
	end

	defmodule Perxistent do

mprymek / gist:5f0737eb174666d97291

Created June 19, 2014 13:28

	# Define 2 vectors
	cars <- c(1, 3, 6, 4, 9)
	trucks <- c(2, 5, 4, 5, 12)

	# Graph cars using a y axis that ranges from 0 to 12
	plot(cars, type="o", col="blue", ylim=c(0,12))

	# Graph trucks with red dashed line and square points
	lines(trucks, type="o", pch=22, lty=2, col="red")

mprymek / gist:e257abc5e39afe01d928

Created June 25, 2014 22:19

R - set values in vector to the nearest value from the given boundaries vector

mprymek / gist:ca85c63789579935f2a3

Created June 29, 2014 10:12

	There's a problem with https://github.com/elixir-lang/elixir/blob/master/lib/elixir/lib/kernel/cli.ex#L327


	### with Erlang 17.1

	# /usr/local/bin/mix
	No file named /usr/local/bin/mix

	# ls -l /usr/local/bin/mix
	lrwxr-xr-x 1 root wheel 21 Jun 29 11:52 /usr/local/bin/mix -> ../lib/elixir/bin/mix

mprymek / gist:cc36a1ede979d0c157b4

Created July 1, 2014 16:10

	defmodule MyApp.Plug.Mobile do
	import Plug.Conn

	def init(options), do: options

	@default_layout "application"
	def call(conn, opts) do
	layout = case get_req_header(conn,"user-agent") do
	[ua\|_] ->
	cond do

mprymek / auth_plug.ex

Last active November 25, 2015 21:29

	# Simple Phoenix authentication plug
	#
	# - based on Plug's session store
	# - redirects unauthenticated requests to login page "/login/<request url>"
	# - /static/... requests are not authenticated
	# - authentication is valid as long as session is valid (you can change this behaviour easily)

	# Because we need session to be fetched BEFORE this plug, we must put this to router.ex:

	#----------------------------

mprymek / gist:e8ab511dba1d204dd130

Created August 21, 2014 14:11

mprymek / gist:f1d781780c21d0ccc959

Created August 26, 2014 17:12

Miroslav Prýmek mprymek