Merge branch 'master' of github.com:krebscode/painload

3 files changed, 99 insertions, 1 deletions

diff --git a/cholerab/ledger-spec.markdown b/cholerab/ledger-spec.markdown
new file mode 100644
index 00000000..15a290bf
--- /dev/null
+++ b/cholerab/ledger-spec.markdown
@@ -0,0 +1,9 @@
+# Format
+
+    DATE DESTINATION-ACCOUNT SOURCE-ACCOUNT AMOUNT UNIT [COMMENT...]
+
+# Example
+
+    2013-01-01 krebs-ml amazon 30 EUR C0DE-AAAA-BBBB-CCCC
+    2013-02-02 momo krebs-ml 50 EUR C0DE-AAAA-BBBB-CCCC
+    2013-02-02 mindfactory momo 80 EUR
diff --git a/god/ivan/satz-liste b/god/ivan/satz-liste
index 44f84c13..fa1bad65 100644
--- a/god/ivan/satz-liste
+++ b/god/ivan/satz-liste
@@ -14,4 +14,25 @@ wische die tische
 Weniger Licht ist mehr
 sammle pfandflaschen ein
 zahle deinen mitgliedsbeitrag
-
+willkommen in deinem lieblings häckerspäiß
+verbiege nicht die metallnupsis an mateflaschen
+ich habe auf dich gewartet
+wasche handtücher
+vertraue dem computer, der computer ist dein freund
+vertraue dem pferd, das pferd ist dein freund
+nimm an einem buchstabierwettbewerb teil
+trinke ausreichend
+hinterlasse die toiletten so wie du sie vorgefunden hast
+42
+der kuchen ist eine lüge
+nicht konformes verhalten wird gemeldet
+iwan fakt nummer 13: den weihnachtsmann gibt es nicht
+iwan: powered by Gnu hörd
+wie wäre es mit einer erfrischenden dusche?
+teilen ist freundschaft
+der verein deutscher imker rät: kauft deutschen honig
+überprüfe die rauchmelder regelmäßig auf ihre funktion
+spare strom
+mache dich mit den standorten der feuerlöscher vertraut
+Steuerung Alt Entfernen
+Leute die Nupsis von lan kabeln abbrechen werden geschlagen
diff --git a/util/bin/dic b/util/bin/dic
new file mode 100755
index 00000000..aceee6e6
--- /dev/null
+++ b/util/bin/dic
@@ -0,0 +1,68 @@
+#! /bin/sh
+# usage: dic WORD [LANG]
+# where LANG may be one of en, fr, es, it, ch, ru, pt, pl
+# multiple WORDs may be seperated by + like this: multiple+words
+set -euf
+
+# all three are used by GET
+search="$1"
+langlang="${2-en}de"
+lang="de"
+
+main() {
+  GET | simplify | tac
+}
+
+GET() {
+  curl -sS -b 'LEOABTEST=T; browser=webkit%3B5%3Bajax' \
+    "https://dict.leo.org/dictQuery/m-vocab/$langlang/query.xml?tolerMode=nof&lp=$langlang&lang=$lang&rmWords=off&rmSearch=on&search=$search&searchLoc=0&resultOrder=basic&multiwordShowSingle=on"
+}
+
+simplify() {
+  sed '
+    s|<repr>|\nREPR: |g
+    s|</repr>|\n|g
+  ' | grep ^REPR |
+  sed '
+    s/^REPR: //
+    1~2{s/$/
/}
+    2~2{s/$//}
+  ' |
+  tr -d \\n |
+  sed '
+    s/
/ - /g
+    s//\n/g
+
+    #q
+
+    s/&#8660;/⇔/g
+    s/&#160;/ /g; # &nbsp;
+    s/  */ /g
+
+    # <!-- undefined_translation: en:pl_ext -->
+    s/ *<!--[^>]*-->//g
+
+    s|<i> *|/|g
+    s| *</i>|/|g
+
+    s:<sup>1</sup>:¹:g; s:<sup>2</sup>:²:g; s:<sup>3</sup>:³:g;
+    s:<sup>:^(:g
+    s:</sup>:):g
+
+    s:<sub>0</sub>:₀:g;
+    s:<sub>1</sub>:₁:g; s:<sub>2</sub>:₂:g; s:<sub>3</sub>:₃:g;
+    s:<sub>4</sub>:₄:g; s:<sub>5</sub>:₅:g; s:<sub>6</sub>:₆:g;
+    s:<sub>7</sub>:₇:g; s:<sub>8</sub>:₈:g; s:<sub>9</sub>:₉:g;
+    s:<sub>:_(:g
+    s:</sub>:):g
+
+    s:<b> *::g
+    s: *</b>::g
+
+    s|<small> *||g
+    s| *</small>||g
+
+  '
+}
+
+main "$@"