Mercurial > repo

annotate bin/slashlearn @ 12500:e48c08805365 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<b_jonas> ` learn \'The password of the month is Cthulhuquagdonic Mothraquagdonic Narwhalicorn.\' # https://logs.esolangs.org/libera-esolangs/2024-04.html#lKE Infinite craft
author HackEso <hackeso@esolangs.org>
date Wed, 01 May 2024 06:39:10 +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&.')"