Delete a bunch of scripts

README.md

@@ -82,30 +82,22 @@ I spawn Acme by running `a` script.
 Who is who in **bin** directory:
 
 - `a` start Acme
-- `a+ SYMBOL` alignment (default is fat comma: `|a+ '=>'`, erlang proplist: `|a+ ' '`)
 - `c+ SYMBOL` add comment (python: `|c+` or `|c+ '#'`, erlang: `|c+ %`, js: `|c+ //`)
 - `c- SYMBOL` delete comment (python/erlang: `|c-`, js: `|c- //`)
-- `cc+` snake_case to CamelCase
-- `cc-` CamelCase to snake_case
-- `d` works like `Edit , d`
-- `eman MODULE` shortcut for `erl -man MODULE` (displays the manual page for the Erlang module MODULE)
-- `erun MODULE ARG1 ... ARGN` erlangish `go run`
 - `g+ WHAT` recursively grep current directory
 - `git+ MESSAGE` git: commit and push to master
-- `h+` transform line to heading
+- `h+` heading
 - `hg+ MESSAGE` hg: commit and push to master
 - `lc+` to lowercase
-- `nobs+` is taken from plan9 `nobs` (it removes all backspace characters and the characters that precede them)
+- `nobs+` taken from plan9 `nobs` (it removes all backspace characters and the characters that precede them)
-- `put+ BROWSER` regular `Put` plus reload active tab in browser: `ff` | `ch` | `sa`
 - `s-` remove leading whitespace
 - `s2t N_SPACES` spaces to tabs (default: 4 spaces to 1 tab)
 - `t2s N_SPACES` tabs to spaces (default: 1 tab to 4 spaces)
 - `t+` add tab
 - `t-` delete tab
 - `uc+` to uppercase
-- `w+ WIDTH` (hello, `fmt -w WIDTH`)
 
-Put these guys in your **$path**.
+Put these guys in your **$PATH**.
 
 ## Random notes
 

bin/a+

@@ -1,38 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use utf8;
-use open qw(:std :utf8);
-
-my ($d) = @ARGV;
-$d = "=>" unless $d;
-
-my $max = 0;
-my @ls = ();
-my @rs = ();
-my $i = 1;
-my $t = "";
-
-while (<STDIN>) {
-	if ($i == 1) {
-		$t = $1 if /^(\s+)/;
-		$i += 1;
-	}
-	$_ =~ s/^\s+|\s+$//g;
-	my @ls_rs = split $d, $_, 2;
-	my $len = length $ls_rs[0];
-	$max = $len if $len > $max;
-	push @ls, $ls_rs[0];
-	push @rs, $ls_rs[1];
-}
-
-for (my $i = 0; $i < @ls; $i += 1) {
-	my $l = $ls[$i]; 
-	my $r = $rs[$i];
-	my $n = $max - length $l;
-	my $s = " " x $n;
-	$l .= $s;
-	print $t, $l, $d, $r;
-	print "\n" unless $i + 1 == @ls;
-}

bin/cc+

@@ -1,5 +0,0 @@
-#!/usr/bin/env perl
-
-while (<STDIN>) {
-	print join "", map { ucfirst $_ } (split "_", $_);
-}

bin/cc-

@@ -1,7 +0,0 @@
-#!/usr/bin/env perl
-
-while (<STDIN>) {
-	s/([A-Z]+)([A-Z][a-z])/$1_$2/g;
-	s/([a-z\d])([A-Z])/$1_$2/g;
-	print lc;
-}

bin/d

@@ -1,5 +0,0 @@
-#!/usr/bin/env perl
-
-open FH, "| 9p write acme/$ENV{winid}/addr";
-print FH ",";
-system "9p write acme/$ENV{winid}/data </dev/null";

bin/eman

@@ -1,9 +0,0 @@
-#!/usr/bin/env bash
-
-if [ $# -ne 1 ]
-then
-	echo 'gimme erlang module, pls'
-	exit 1
-fi
-
-erl -man "$1" | nobs+

bin/erun

@@ -1,47 +0,0 @@
-#!/usr/bin/env bash
-
-if [ $# -eq 0 ]; then
-	echo 'Usage: erun mod.erl arg1 arg2 ...'
-	exit 1
-fi
-
-## FILE WITH SOURCE CODE
-## -----------------------------------------------------------------------------
-
-file="$1"
-if [ ! -f "$file" ]; then
-	echo 'File not found'
-	exit 1
-fi
-
-## ERLANG MODULE TO RUN
-## -----------------------------------------------------------------------------
-
-mod=$(echo $file | sed -e 's/.erl//')
-
-## ARGUMENTS TO PASS TO THE MODULE
-## -----------------------------------------------------------------------------
-
-shift
-args="$@"
-if [ ! "$args" ]; then
-	# Without arguments main/0 will be called. Force main/1
-	args="''"
-fi
-
-## COMPILE AND RUN
-## -----------------------------------------------------------------------------
-
-erlc $file
-
-if [ $? -ne 0 ]; then
-	exit 1
-fi
-
-# Module should implement main/1 function
-erl -noshell +pc unicode -run $mod main $args -s init stop
-
-## CLEAN UP
-## -----------------------------------------------------------------------------
-
-rm "$mod.beam"

bin/put+

@@ -1,72 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-## USAGE
-## -----------------------------------------------------------------------------
-
-## firefox:
-##     put+ ff
-## chrome:
-##     put+ ch
-## safari:
-##     put+ sa
-
-## DATA
-## -----------------------------------------------------------------------------
-
-use constant FIREFOX => 'ff';
-use constant CHROME  => 'ch';
-use constant SAFARI  => 'sa';
-
-my $browser = $ARGV[0] || CHROME;
-my $osascript;
-
-## ACME 'Put'
-## -----------------------------------------------------------------------------
-
-open my $fh, "| 9p write acme/$ENV{winid}/ctl";
-print $fh "put\n";
-close $fh;
-
-## FIREFOX SCRIPT (SADLY, IT'S FULL OF BUGS)
-## -----------------------------------------------------------------------------
-
-if ($browser eq FIREFOX) {
-	$osascript = 'tell application "Firefox"
-		activate
-		delay 2
-		tell application "System Events"
-			keystroke "r" using command down
-		end tell
-	end tell';
-}
-
-## CHROME SCRIPT
-## -----------------------------------------------------------------------------
-
-if ($browser eq CHROME) {
-	## wait for server update
-	sleep 2;
-
-	$osascript = 'tell application "Google Chrome" to reload active tab of window 1';
-}
-
-## SAFARI SCRIPT
-## -----------------------------------------------------------------------------
-
-if ($browser eq SAFARI) {
-	## also wait for server update
-	sleep 2;
-
-	$osascript = 'tell application "Safari"
-		set docUrl to URL of document 1
-		set URL of document 1 to docUrl
-	end tell';
-}
-
-## RUN SCRIPT
-## -----------------------------------------------------------------------------
-
-system "osascript -e '$osascript'";

bin/w+

@@ -1,63 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-use feature 'say';
-use utf8;
-use open qw(:std :utf8);
-
-my $WIDTH_DEFAULT = 80;
-my $WIDTH         = $ARGV[0] || $WIDTH_DEFAULT;
-
-sub main {
-	my $buf = '';
-	while (my $line = <STDIN>) {
-		if ($line =~ /^\s+$/) {
-			say $buf;
-			say '' if ($buf);
-			$buf = '';
-			next;
-		}
-		if ($buf) {
-			$line = $buf . $line;
-		}
-		my ($head, $tail) = handle_str($line);
-		say $head;
-		$buf = handle_buf($tail);
-	}
-	say $buf if $buf;	
-}
-
-sub handle_buf {
-	my $buf = shift;
-	my $len = length($buf);
-	if ($len == $WIDTH) {
-		say $buf;
-		return '';
-	}
-	if ($len < $WIDTH) {
-		return $buf;
-	}
-	## $len > $WIDTH
-	my ($head, $tail) = handle_str($buf);
-	say $head;
-	handle_buf($tail);
-}
-
-sub handle_str {
-	my $str = shift;
-	if ($str =~ m/^(.{0,$WIDTH})\s(.*)$/) {
-		return ($1, $2);
-	}
-	## no spaces here: 0..$WIDTH
-	if ($str =~ m/^(\S*)\s(.*)$/) {
-		return ($1, $2);
-	}
-	## no whitespace at all
-	if ($str =~ m/^(\S+)$/) {
-		return ($1, '');
-	}
-	die "ooops!";
-}
-
-main();