view bin/learn @ 8195:15385eb12db2

<oerjan> mkx bin/rnooodl//perl -pe \'s/(.)\\1\\1/"@{[$1 x(3+rand 7)]}"/ge\'
author HackBot
date Sun, 29 May 2016 00:46:18 +0000
parents 8a4daea2a8de
children 25c26dcdd1df
line wrap: on
line source

#!/bin/bash
topic=$(echo "$1" | lowercase | sed 's/^\(an\?\|the\) //;s/s\?[:;,.!?]\? .*//')
[ -e "wisdom/$topic" ] && verb="Relearned" || verb="Learned"
echo "$1" >"wisdom/$topic"
echo "$verb '$topic': $1"