Mercurial > repo

annotate bin/slashlearn @ 12256:821155c00e34 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<fizzie> ` sed -e \'s|wisdom|bin|\' < ../bin/culprits > ../bin/cblprits; chmod a+x ../bin/cblprits
author HackEso <hackeso@esolangs.org>
date Sat, 07 Dec 2019 23:36:22 +0000
parents 8c13cadf308f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9857
eee3c706c9e7 <oerjan> sled bin/slashlearn//1,2csep="//"
HackBot
parents: 9470
diff changeset
1 sep="//"
10304
7d14a8891360 <oerjan> sled bin/slashlearn//2s,\'.*\',\'Usage: `le/[/]rn <key>//<wisdom>\',
HackBot
parents: 9880
diff changeset
2 [[ "$1" == ?*"$sep"* ]] || { echo 'Usage: `le/[/]rn <key>//<wisdom>' >&2 ; exit 1; }
9466
f0e4ef9ab8b0 <oerjan> sled bin/slashlearn//s/; /\\n/g
HackBot
parents: 9307
diff changeset
3 key="$(echo "${1%%$sep*}" | lowercase)"
f0e4ef9ab8b0 <oerjan> sled bin/slashlearn//s/; /\\n/g
HackBot
parents: 9307
diff changeset
4 value="${1#*$sep}"
12073
8c13cadf308f <fizzie> sled /hackenv/bin/slashlearn//s|wisdom/|$HACKENV/wisdom/|g
HackEso <hackeso@esolangs.org>
parents: 10304
diff changeset
5 [ -e "$HACKENV/wisdom/$key" ] && verb="Relearned" || verb="Learned"
8c13cadf308f <fizzie> sled /hackenv/bin/slashlearn//s|wisdom/|$HACKENV/wisdom/|g
HackEso <hackeso@esolangs.org>
parents: 10304
diff changeset
6 echo "$value" > "$(echo-p "$HACKENV/wisdom/$key")" && echo -n "$verb '$key': $(echo "$value" | sed 's.^[ ].0,04&.')"