Mercurial > repo

annotate misle/rn_append @ 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 ded267d9c0ad
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
6783
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
1 #!/bin/bash
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
2 [[ "$1" = */* ]] || exit
6804
ded267d9c0ad <oerjan> undo c58a6174e051
HackBot
parents: 6800
diff changeset
3 topic=$(echo "$1" | lowercase | cut -d / -f 1)
6783
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
4 [ -z "$topic" ] && exit 1
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
5 stuff=$(echo "$1" | cut -d / -f 2-)
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
6 perl -i -p -e 's/\n/ /' "tmflry/$topic"
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
7 echo "$stuff" >>"tmflry/$topic"
6786
c6bb618e60e3 <oerjan> ` sed -i \'s/Learned/Was lied to about/\' misle/*
HackBot
parents: 6783
diff changeset
8 echo -n "Was lied to about '$topic': "
6783
0c13247bfca4 <oerjan> ` mkdir misle; cp le/* misle; sed -i \'s/wisdom/tmflry/g\' misle/*
HackBot
parents:
diff changeset
9 cat "tmflry/$topic"