feat: add dictionary scripts

configs/packages/default.nix

@@ -136,6 +136,8 @@ in {
     scripts.vg
     scripts.fkill
     scripts.wttr
+    scripts.boetlingk
+    scripts.liddel-scott-jones
     # kmein.slide
     scripts.tolino-screensaver
     nix-prefetch-git

packages/scripts/boetlingk.sh

@@ -0,0 +1,9 @@
+#!/bin/sh
+set -efu
+
+input="$*"
+
+curl -sSL "https://www.sanskrit-lexicon.uni-koeln.de/scans/PWScan/2020/web/webtc/getword.php?key=$input&filter=roman&accent=yes&transLit=hk" \
+  | pandoc --standalone --variable=title:"$input" --from=html --to=man \
+  | sed 's/\s\+\([:.,;]\)/\1/g;s/\s\+/ /g' \
+  | man --local-file --pager="bat -p" -

packages/scripts/default.nix

@@ -83,6 +83,18 @@ in rec {
     script = ./dirmir.sh;
   };
 
+  liddel-scott-jones = wrapScript {
+    name = "lsj";
+    script = ./liddel-scott-jones.sh;
+    packages = [ pkgs.curl pkgs.pup betacode pkgs.gnused pkgs.pandoc pkgs.man ];
+  };
+
+  boetlingk = wrapScript {
+    name = "boet";
+    script = ./boetlingk.sh;
+    packages = [ pkgs.curl pkgs.gnused pkgs.pandoc pkgs.man ];
+  };
+
   playlist = wrapScript {
     name = "pls";
     script = ./playlist.sh;

packages/scripts/liddel-scott-jones.sh

@@ -0,0 +1,15 @@
+#!/bin/sh
+set -efu
+
+input="$*"
+
+if echo "$input" | grep '^\w\+$'; then
+  curl -sSL "https://lsj.gr/wiki/$input" | pup '#mw-content-text'
+else
+  curl -sSL "https://lsj.gr/wiki/$(echo "$input" | betacode)" \
+    | pup ':parent-of(#English_(LSJ)) + p' \
+    | sed 's/<span class="sense">/<p>&/g'
+fi \
+  | pandoc --standalone --variable=title:"$input" --from=html --to=man \
+  | sed 's/\s\+\([:.,;]\)/\1/g;s/\s\+/ /g' \
+  | man --local-file --pager="bat -p" -