Skip to content

Instantly share code, notes, and snippets.

View creaktive's full-sized avatar
👽
🛸

Stanislaw Pusep creaktive

👽
🛸
View GitHub Profile
@creaktive
creaktive / sonos-reboot.pl
Last active May 24, 2018 11:11
Reboot all the Sonos speakers in the LAN
#!/usr/bin/env perl
use strict;
use warnings;
use Net::UPnP::ControlPoint;
use WWW::Mechanize;
sub sonos_discover {
my @hosts;
my $cp = Net::UPnP::ControlPoint->new();
@creaktive
creaktive / k8s-sniffer.go
Last active April 11, 2018 09:31
k8s-sniffer
package main
import (
"fmt"
"os"
"os/signal"
"syscall"
"time"
yaml "gopkg.in/yaml.v2"
0452a51fe0fe68af85e58ecba228639ca5486fb782171e23079c5e674035ba5c1a706798d5f07e201f8a7acc876edbc7fe437a3d4ac05931d996addf04485be01a;c-darwin
@creaktive
creaktive / gopro.sh
Last active August 29, 2017 16:30
GoPro HERO4 Session CLI timelapse
# unwarp, rescale & rename GoPro pics using 4 CPUs
find /Volumes/NO\ NAME/DCIM/ -type f -regex '.*/G[0-9]+.JPG' |
sort |
perl -MPOSIX=strftime -lne 'printf qq(convert "%s" -filter Lanczos -distort barrel "0.06335 -0.18432 -0.13009" -resize 1440x1080 -font Courier -pointsize 32 -draw "gravity southeast fill white text 0,0 \\\"%s\\\"" -quality 100 tl%05d.jpg\0), $_, strftime("%Y-%m-%d %H:%M", localtime [stat($_)]->[9]), ++$i' |
xargs -0 -n1 -P4 sh -c
# build timelapse at 60 fps
ffmpeg -f image2 -framerate 60 -i tl%05d.jpg -s 1440x1080 -pix_fmt yuv420p timelapse.mp4
#!/bin/sh
wifienable() {
lipc-set-prop com.lab126.wifid enable 1
}
wifidisable() {
lipc-set-prop com.lab126.wifid enable 0
}
#include <iostream>
#include <set>
#include <math.h>
int n_divisors(int n) {
int l = sqrt(n);
std::set<int> f;
f.insert(n);
for (int i = 1; i <= l; i++)
if (n % i == 0) {
#include <iostream>
#include <math.h>
int main() {
int w = 6;
int l = pow(10, w - 1);
int t = pow(10, w);
int h = t - 1;
for (long i = h; i > l; i--) {
bash-3.2$ cd rainbarf/
bash-3.2$ prove -v
t/00-compile.t ..................
ok 1 - compiles
1..1
ok
t/01-tmux.t .....................
ok 1 - pipe 1
ok 2 - pattern 1
ok 3 - pipe 2
@creaktive
creaktive / spacemacs.el
Last active February 10, 2016 10:28
space yaks
; EmacsMac.app
(setq-default dotspacemacs-configuration-layers '(osx
git
version-control))
; Setup font & colors
;(setq-default dotspacemacs-default-font '("Source Code Pro"
; :size 13
; :weight normal
; :width normal
@creaktive
creaktive / wifi_rebooter.sh
Created October 28, 2015 09:27
*/1 * * * * /usr/local/bin/wifi_rebooter.sh
#!/bin/bash
# The IP for the server you wish to ping (8.8.8.8 is a public Google DNS server)
SERVER=8.8.8.8
# Only send two pings, sending output to /dev/null
ping -c2 ${SERVER} > /dev/null
# If the return code from ping ($?) is not 0 (meaning there was an error)
if [ $? != 0 ]