Prashant Karmakar vyuh

## setup_split_internet_access.sh
# sets up internet traffic balancing over multiple interfaces
# used on Lubuntu 16.04
# 2016-09-27 14:29 http://github.com/vyuh
#
# Read the webpage:
# http://lartc.org/howto/lartc.rpdb.multiple-links.html
# Change variables below to proper values,
# run this as root like `sudo bash +x <script_name>`
# `-x` aids debugging
#

## hey.scm
(define hey (lambda () "the ultimate"))
(define pk (quote (special-forms "quote" "lambda" "define" "if" "set!")))
(define hey_pk (lambda (pk) (string-append "Hey " pk)))
(define mod_zed (lambda (x y) (+ (* x x) (* y y))))
(define test (lambda (x) (if x "yo" "no")))
; everything except #f is true
; in some implementations '() is equivalent to #f
; but do not use lists as predicates
; use null? to find empty lists
(define sum-gp

## jekyll_touch.sh
#!/bin/sh

# rename a file like a jekyll post dated today
date_filename () {
    sep='/';
    local file=`basename "$1"`;
    local dir=`dirname "$1"`;
    local date=`date +%F`;
    local bare=`echo "$file" | sed 's/^20\([0-9]\{2\}-\)\{3\}//'`
    mv "$1" "$dir$sep$date-$bare";

## box2d_build.sh
git clone https://github.com/erincatto/Box2D
cd Box2D/Box2D
git branch pk v2.3.0
git checkout pk
cmake .
make
Testbed/Testbed &

## captchagen
#!/usr/bin/perl
$r = join "", map { ( "a".."z", "A".."Z", "0".."9" )[rand 62] } 1..9;
system( qq/convert -size 300x100 -font Courier -gravity center "label:$r" label.bmp/ );
system( q/convert -size 150x50 xc:gray +noise random -blur 1x1 -colorspace gray -scale 300x100 gray.bmp/ );
system( q/convert label.bmp gray.bmp -compose displace -define compose:args=12x12 -composite -blur 1x1 comp.png/ );

## emoji.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                vyuh
                / emoji.md
            
            
              Last active
              November 24, 2015 17:44
                — forked from mmulich/emoji.md
            
              
                emoji
              
          
    EMOJI CHEAT SHEET
People

😄
😆
😊
😃
☺️

  
## sentence.sh
perl -M'Lingua::EN::Sentence qw/get_sentences/' -00 -lne 'tr/\r\n \t/ /s;print join "\n", @{get_sentences $_};'

## sort_bookmarks_html.pl
#!/usr/bin/perl
use HTML::TreeBuilder::XPath;
my $file = shift; # first argument is bookmarks HTML filepath
my $tree = new HTML::TreeBuilder::XPath;
$tree->parse_file($file);
use Data::Dumper;
my @links = $tree->findnodes('//a');
use List::Flatten;
print join ' ', flat @{$_}{ qw/href _content/ }, "\n" for (@links);
#woah http://www.perlmonks.org/?node=References%20quick%20reference

## geometry_pk.py
#-------------------------------------------------------------------------------
# Name:        geometry_pk
# Purpose:     Simple approach to implementing antialiased graphics.
#
# Author:      pk
#
# Created:     30-03-2015
# Copyright:   (c) pk 2015
# Licence:     ISC
#-------------------------------------------------------------------------------

## inset_image.html
<html>
<head>
	<title>Page Title</title>
	<style>
	.description {
		font-family: Georgia, serif;
		font-size: .85em;
		text-align: center;
	}
	.wrapper {
	# sets up internet traffic balancing over multiple interfaces
	# used on Lubuntu 16.04
	# 2016-09-27 14:29 http://github.com/vyuh
	#
	# Read the webpage:
	# http://lartc.org/howto/lartc.rpdb.multiple-links.html
	# Change variables below to proper values,
	# run this as root like `sudo bash +x <script_name>`
	# `-x` aids debugging
	#
	(define hey (lambda () "the ultimate"))
	(define pk (quote (special-forms "quote" "lambda" "define" "if" "set!")))
	(define hey_pk (lambda (pk) (string-append "Hey " pk)))
	(define mod_zed (lambda (x y) (+ (* x x) (* y y))))
	(define test (lambda (x) (if x "yo" "no")))
	; everything except #f is true
	; in some implementations '() is equivalent to #f
	; but do not use lists as predicates
	; use null? to find empty lists
	(define sum-gp
	#!/bin/sh

	# rename a file like a jekyll post dated today
	date_filename () {
	sep='/';
	local file=`basename "$1"`;
	local dir=`dirname "$1"`;
	local date=`date +%F`;
	local bare=`echo "$file" \| sed 's/^20\([0-9]\{2\}-\)\{3\}//'`
	mv "$1" "$dir$sep$date-$bare";
	git clone https://github.com/erincatto/Box2D
	cd Box2D/Box2D
	git branch pk v2.3.0
	git checkout pk
	cmake .
	make
	Testbed/Testbed &
	#!/usr/bin/perl
	$r = join "", map { ( "a".."z", "A".."Z", "0".."9" )[rand 62] } 1..9;
	system( qq/convert -size 300x100 -font Courier -gravity center "label:$r" label.bmp/ );
	system( q/convert -size 150x50 xc:gray +noise random -blur 1x1 -colorspace gray -scale 300x100 gray.bmp/ );
	system( q/convert label.bmp gray.bmp -compose displace -define compose:args=12x12 -composite -blur 1x1 comp.png/ );
	#!/usr/bin/perl
	use HTML::TreeBuilder::XPath;
	my $file = shift; # first argument is bookmarks HTML filepath
	my $tree = new HTML::TreeBuilder::XPath;
	$tree->parse_file($file);
	use Data::Dumper;
	my @links = $tree->findnodes('//a');
	use List::Flatten;
	print join ' ', flat @{$_}{ qw/href _content/ }, "\n" for (@links);
	#woah http://www.perlmonks.org/?node=References%20quick%20reference
	#-------------------------------------------------------------------------------
	# Name: geometry_pk
	# Purpose: Simple approach to implementing antialiased graphics.
	#
	# Author: pk
	#
	# Created: 30-03-2015
	# Copyright: (c) pk 2015
	# Licence: ISC
	#-------------------------------------------------------------------------------
	<html>
	<head>
	<title>Page Title</title>
	<style>
	.description {
	font-family: Georgia, serif;
	font-size: .85em;
	text-align: center;
	}
	.wrapper {