Skip to content

Instantly share code, notes, and snippets.

View lubomir's full-sized avatar

Lubomír Sedlář lubomir

3 followers · 0 following
View GitHub Profile
@lubomir
lubomir / gist:69781a03509568ac92f8a2ff42819da5
Last active June 6, 2019 17:27
import click
import requests
def parse_rates(data):
header, names, *lines = data.splitlines()
rates = {}
for line in lines:
_, _, amount, currency, value = line.replace(",", ".").split("|")
rates[currency] = float(value) / float(amount)
@lubomir
lubomir / contextmanager.patch
Created February 12, 2016 08:03
Context manager instead of wrapper
diff --git a/pdc/apps/common/hacks.py b/pdc/apps/common/hacks.py
index ca55552..c9ce891 100644
--- a/pdc/apps/common/hacks.py
+++ b/pdc/apps/common/hacks.py
@@ -5,6 +5,7 @@
# http://opensource.org/licenses/MIT
#
import re
+import contextlib
@lubomir
lubomir / kerberos.html
Created January 5, 2016 14:43
XMLHttpRequest with Kerberos credentials
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8">
<title>Token example</title>
</head>
<body>
<div id="token">Loading token...</div>
<script>
document.addEventListener("DOMContentLoaded", function () {
@lubomir
lubomir / example.py
Created November 20, 2015 09:03
#! /usr/bin/env python
# -*- coding: utf-8 -*-
import pdc_client
# This will automatically obtain token from server identified by "prod" in
# configuration file.
client = pdc_client.PDCClient('prod')
@lubomir
lubomir / main.hs
Last active August 29, 2015 14:04
import qualified Database.Persist as P
main :: IO ()
main = do
conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
{ csParseExtra = parseExtra
}
dbconf <- withYamlEnvironment "config/postgresql.yml" (appEnv conf)
P.loadConfig >>=
P.applyEnv
@lubomir
lubomir / Iris.hs
Created January 10, 2014 13:41
Part 3 of final assignment for Complex Valued Neural Networks with Multi Valued Neurons course
module Iris where
import Data.Vector (Vector)
import Control.Arrow
import qualified Data.Vector as V
import Data.Complex
learning :: Vector (Vector (Complex Double), Int)
learning = V.fromList $ map (first $ V.fromList . map cis)
[ ([0.31, 0.873, 0.095, 0.058], 0)
@lubomir
lubomir / gist:7068001
Created October 20, 2013 10:51
data Alert = MSuccess | MWarning | MInfo
deriving (Eq, Enum, Bounded, Show)
mkToCls :: Alert -> Text
mkToCls MSuccess = "alert-success"
mkToCls MWarning = "alert-warning"
mkToCls MInfo = "alert-info"
class (Enum a, Bounded a, Show a) => MessageKey a
@lubomir
lubomir / killer.c
Created June 26, 2011 08:53
#define _POSIX_SOURCE
#include <stdio.h>
#include <sys/types.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>
#define CMDLINE "NEJAKY_PRIKAZ"
@lubomir
lubomir / t_graph.hs
Created March 17, 2011 11:15 — forked from jiridanek/t_graph.hs
module Graph_t where
import Graph
import Test.HUnit
import Control.Exception
import Control.Monad
--t_ = TestCase $ assertEqual "" (show ( )) ""