Rovanion Luckey Rovanion

Typical person person.

Rovanion / LocalDateTime test.check generators for Clojure and Clojurescript.cljc

Last active February 16, 2022 11:59

	(ns tove.specs.generators
	"Based on https://github.com/dm3/clojure.joda-time/blob/master/test/joda_time/generators.clj"
	(:require [clojure.test.check.generators :as gen]
	[clojure.string :as string]
	#?(:clj [java-time :as jt]
	:cljs [cljs-time.core :as jst]))
	#?(:clj (:import [java.time LocalDate LocalDateTime ZonedDateTime]
	[java.time.chrono IsoChronology])))

Rovanion / elisp-showdoc.el

Last active March 4, 2020 12:42

	(defun elisp-showdoc (f)
	(interactive (list (thing-at-point 'symbol t)))
	(message
	"%s"
	(let* ((doc-list (split-string (documentation (intern f)) "\n"))
	(number-lines (min (- (floor (* max-mini-window-height (frame-height))) 2)
	(- (length doc-list) 2)))
	(subset (concatenate 'list
	(last doc-list)
	'("")

Rovanion / rewrite-history.sh

Created April 25, 2018 14:12

Rewrite git history

Rovanion / utils.ts

Created April 17, 2018 09:19

A semitransparent print or log function for TypeScript or JavaScript

	let fnNameMatcher = /([^(]+)@\|at ([^(]+) \(/;

	function fnName(str: string) {
	let regexResult = fnNameMatcher.exec(str) as string[];
	if (regexResult) {
	return regexResult[1] \|\| regexResult[2];
	} else { return ''; }
	}

	export function log(...messages: any[]) {

Rovanion / cyd.liu.se

Created September 6, 2017 11:39

Nginx-conf for CYD

	server {
	listen 443;
	server_name cyd.liu.se;

	include includes/cyd.liu.se-commons;
	include includes/security;

	ssl_certificate /etc/ssl/certs/cyd.liu.se.crt;
	ssl_certificate_key /etc/ssl/private/cyd.liu.se.key;
	}

Rovanion / assert.clj

Created June 30, 2017 08:08

Modified spec/assert for improved error reporting

	(require '[clojure.spec.alpha :as spec])

	;;; Spec does not report the name of the predicate when not wrapped in a spec.

	(spec/assert number? nil)
	;; Spec assertion failed val: nil fails predicate:
	;; :clojure.spec.alpha/unknown :clojure.spec.alpha/failure
	;; :assertion-failed

Rovanion / key-count.dat

Last active June 1, 2017 09:48

The number of times different leiningen project map keywords are used

Rovanion / fn-specs.clj

Created May 3, 2017 15:09

Useful function specs for Clojure Spec

Rovanion / test-clojar-projects.clj.bash

Last active March 7, 2017 10:40

Fetches all projects from clojure-toolbox.com and runs lein-master on them, define lein-master in your PATH for this to work.

	#!/usr/bin/env bash

	lst="$(curl -s http://www.clojure-toolbox.com/ \
	\| sed -n 's/.href="$[^"]$.*/\1/p' \
	\| grep -F 'https://github.com' \| sort \| uniq)"

	dir="$PWD"

	mkdir -p toolbox-projects
	cd toolbox-projects

Rovanion / gist:9462490

Created March 10, 2014 10:18

CV.tex

	\usepackage[utf8]{inputenc}
	\usepackage[swedish]{babel}
	\usepackage{url}
	%\usepackage{fullpage}
	%\topmargin = 1pt %20pt
	%\headsep = 25pt %25pt
	%\usepackage[top=85pt]{geometry}
	\usepackage[colorlinks=true, linkcolor=black, urlcolor=blue]{hyperref}
	\usepackage[T1]{fontenc}
	\usepackage{lmodern}

	#!/usr/bin/env bash

	lst="$(curl -s http://www.clojure-toolbox.com/ \
	\| sed -n 's/.href="\([^"]\).*/\1/p' \
	\| grep -F 'https://github.com' \| sort \| uniq)"

	dir="$PWD"

	mkdir -p toolbox-projects
	cd toolbox-projects