diff options
Diffstat (limited to 'base')
| -rwxr-xr-x | base/nyan | 24 | ||||
| -rwxr-xr-x | base/pr-dups | 55 | ||||
| -rwxr-xr-x | base/pr-passive | 68 | ||||
| -rwxr-xr-x | base/pr-weasel | 41 | ||||
| -rwxr-xr-x | base/proofread | 27 | ||||
| -rw-r--r-- | base/zsh/functions.zsh | 6 |
6 files changed, 221 insertions, 0 deletions
diff --git a/base/nyan b/base/nyan new file mode 100755 index 0000000..5929327 --- /dev/null +++ b/base/nyan @@ -0,0 +1,24 @@ +#!/usr/bin/env bash + +# Print nyan cat +# https://github.com/steckel/Git-Nyan-Graph/blob/master/nyan.sh +# If you want big animated version: `telnet miku.acm.uiuc.edu` + +RED="$(tput setaf 1)" +GREEN="$(tput setaf 2)" +YELLOW="$(tput setaf 3)" +CYAN="$(tput setaf 6)" +WHITE="$(tput setaf 7)" +BOLD="$(tput bold)" +NOCOLOR="$(tput sgr0)" + +echo +echo -en $RED'-_-_-_-_-_-_-_' +echo -e $NOCOLOR$BOLD$WHITE',------,'$NOCOLOR +echo -en $YELLOW$WHIT'_-_-_-_-_-_-_-' +echo -e $NOCOLOR$BOLD$WHITE'| /\_/\\'$NOCOLOR +echo -en $GREEN'-_-_-_-_-_-_-' +echo -e $NOCOLOR$BOLD$WHITE'~|__( ^ .^)'$NOCOLOR +echo -en $CYAN'-_-_-_-_-_-_-' +echo -e $NOCOLOR$BOLD$WHITE'"" ""'$NOCOLOR +echo diff --git a/base/pr-dups b/base/pr-dups new file mode 100755 index 0000000..211ab64 --- /dev/null +++ b/base/pr-dups @@ -0,0 +1,55 @@ +#!/usr/bin/env perl + +# Finds duplicate adjacent words. +# http://matt.might.net/articles/shell-scripts-for-passive-voice-weasel-words-duplicates/ + +use strict ; + +my $DupCount = 0 ; + +if (!@ARGV) { + print "Usage: dups <file> ...\n" ; + exit ; +} + +while (1) { + my $FileName = shift @ARGV ; + + # Exit code = number of duplicates found. + exit $DupCount if (!$FileName) ; + + open FILE, $FileName or die $!; + + my $LastWord = "" ; + my $LineNum = 0 ; + + while (<FILE>) { + chomp ; + + $LineNum ++ ; + + my @words = split (/(\W+)/) ; + + foreach my $word (@words) { + # Skip spaces: + next if $word =~ /^\s*$/ ; + + # Skip punctuation: + if ($word =~ /^\W+$/) { + $LastWord = "" ; + next ; + } + + # Found a dup? + if (lc($word) eq lc($LastWord)) { + print "$FileName:$LineNum $word\n" ; + $DupCount ++ ; + } # Thanks to Sean Cronin for tip on case. + + # Mark this as the last word: + $LastWord = $word ; + } + } + + close FILE ; +} diff --git a/base/pr-passive b/base/pr-passive new file mode 100755 index 0000000..e95c70c --- /dev/null +++ b/base/pr-passive @@ -0,0 +1,68 @@ +#!/usr/bin/env bash + +# Abuse of the passive voice +# http://matt.might.net/articles/shell-scripts-for-passive-voice-weasel-words-duplicates/ + +irregulars="awoken|\ +been|born|beat|\ +become|begun|bent|\ +beset|bet|bid|\ +bidden|bound|bitten|\ +bled|blown|broken|\ +bred|brought|broadcast|\ +built|burnt|burst|\ +bought|cast|caught|\ +chosen|clung|come|\ +cost|crept|cut|\ +dealt|dug|dived|\ +done|drawn|dreamt|\ +driven|drunk|eaten|fallen|\ +fed|felt|fought|found|\ +fit|fled|flung|flown|\ +forbidden|forgotten|\ +foregone|forgiven|\ +forsaken|frozen|\ +gotten|given|gone|\ +ground|grown|hung|\ +heard|hidden|hit|\ +held|hurt|kept|knelt|\ +knit|known|laid|led|\ +leapt|learnt|left|\ +lent|let|lain|lighted|\ +lost|made|meant|met|\ +misspelt|mistaken|mown|\ +overcome|overdone|overtaken|\ +overthrown|paid|pled|proven|\ +put|quit|read|rid|ridden|\ +rung|risen|run|sawn|said|\ +seen|sought|sold|sent|\ +set|sewn|shaken|shaven|\ +shorn|shed|shone|shod|\ +shot|shown|shrunk|shut|\ +sung|sunk|sat|slept|\ +slain|slid|slung|slit|\ +smitten|sown|spoken|sped|\ +spent|spilt|spun|spit|\ +split|spread|sprung|stood|\ +stolen|stuck|stung|stunk|\ +stridden|struck|strung|\ +striven|sworn|swept|\ +swollen|swum|swung|taken|\ +taught|torn|told|thought|\ +thrived|thrown|thrust|\ +trodden|understood|upheld|\ +upset|woken|worn|woven|\ +wed|wept|wound|won|\ +withheld|withstood|wrung|\ +written" + +if [ "$1" = "" ]; then + echo "Usage: `basename $0` <file> ..." + exit +fi + +egrep -n -i --color \ + "\\b(am|are|were|being|is|been|was|be)\ +\\b[ ]*(\w+ed|($irregulars))\\b" $* + +exit $? diff --git a/base/pr-weasel b/base/pr-weasel new file mode 100755 index 0000000..052dacd --- /dev/null +++ b/base/pr-weasel @@ -0,0 +1,41 @@ +#!/usr/bin/env bash + +# Weasel words +# http://matt.might.net/articles/shell-scripts-for-passive-voice-weasel-words-duplicates/ + +weasels="many|various|very|fairly|several|extremely\ +|exceedingly|quite|remarkably|few|surprisingly\ +|mostly|largely|huge|tiny|((are|is) a number)\ +|excellent|interestingly|significantly\ +|substantially|clearly|vast|relatively|completely" + +wordfile="" + +# Check for an alternate weasel file +if [ -f $HOME/etc/words/weasels ]; then + wordfile="$HOME/etc/words/weasels" +fi + +if [ -f $WORDSDIR/weasels ]; then + wordfile="$WORDSDIR/weasels" +fi + +if [ -f words/weasels ]; then + wordfile="words/weasels" +fi + +if [ ! "$wordfile" = "" ]; then + weasels="xyzabc123"; + for w in `cat $wordfile`; do + weasels="$weasels|$w" + done +fi + +if [ "$1" = "" ]; then + echo "Usage: `basename $0` <file> ..." + exit +fi + +egrep -i -n --color "\\b($weasels)\\b" $* + +exit $? diff --git a/base/proofread b/base/proofread new file mode 100755 index 0000000..2db4382 --- /dev/null +++ b/base/proofread @@ -0,0 +1,27 @@ +#!/usr/bin/env bash + +# http://matt.might.net/articles/shell-scripts-for-passive-voice-weasel-words-duplicates/ + +# Common stuff +CYAN="$(tput setaf 6)" +UNDERLINE="$(tput sgr 0 1)" +NOCOLOR="$(tput sgr0)" +function header() { + echo -e "$UNDERLINE$CYAN$1$NOCOLOR" +} + +if [ "$1" = "" ]; then + echo "Usage: `basename $0` <file> ..." + exit +fi + +header "Weasel words" +pr-weasel $1 +echo + +header "Passive voice" +pr-passive $1 +echo + +header "Duplicates" +pr-dups $1 diff --git a/base/zsh/functions.zsh b/base/zsh/functions.zsh index f705d28..db4271e 100644 --- a/base/zsh/functions.zsh +++ b/base/zsh/functions.zsh @@ -19,3 +19,9 @@ function trash { wttr() { curl -q -H "Accept-Language: ${LANG%_*}" wttr.in/"${1:-Pleasant Grove}\?${2:-0q}" } + +hex() { + emulate -L zsh + if [[ -n "$1" ]]; then printf "%X\n" $1 + else print 'Usage: hex <number-to-convert>'; fi +} |