From bf7d0165b18dc21c96165de333a822d4ff8942b7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kmein@posteo.de>
Date: Sun, 7 Nov 2021 13:12:11 +0100
Subject: [PATCH] feat: add more sanskrit dictionaries

---
 configs/packages/default.nix             |  2 +-
 packages/scripts/boetlingk.sh            |  9 -------
 packages/scripts/default.nix             | 34 ++++++++++++++++++++----
 packages/scripts/sanskrit-dictionary.nix |  2 ++
 4 files changed, 32 insertions(+), 15 deletions(-)
 delete mode 100755 packages/scripts/boetlingk.sh
 create mode 100755 packages/scripts/sanskrit-dictionary.nix

diff --git a/configs/packages/default.nix b/configs/packages/default.nix
index be949c3..2ded92e 100644
--- a/configs/packages/default.nix
+++ b/configs/packages/default.nix
@@ -154,7 +154,7 @@ in {
     scripts.vg
     scripts.fkill
     scripts.wttr
-    scripts.boetlingk
+    scripts.sanskrit-dictionary
     scripts.unicodmenu
     scripts.trans
     scripts.liddel-scott-jones
diff --git a/packages/scripts/boetlingk.sh b/packages/scripts/boetlingk.sh
deleted file mode 100755
index b604a53..0000000
--- a/packages/scripts/boetlingk.sh
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/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" -
diff --git a/packages/scripts/default.nix b/packages/scripts/default.nix
index c27b899..c50bab2 100644
--- a/packages/scripts/default.nix
+++ b/packages/scripts/default.nix
@@ -128,11 +128,35 @@ in rec {
     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 ];
-  };
+  sanskrit-dictionary = pkgs.writers.writeDashBin "sa" ''
+    set -efu
+
+    usage() {
+      echo "usage: $0 mw|mwe|boet|bopp|apte|boro TERM"
+      exit 1
+    }
+
+    [ $# -eq 2 ] || usage
+
+    case $1 in
+      mw) id=MWScan;;
+      mwe) id=MWEScan;;
+      bopp) id=BOPScan;;
+      boet) id=PWGScan;;
+      apte) id=AEScan;;
+      boro) id=BORScan;;
+      *) usage;;
+    esac
+
+    shift
+
+    input="$*"
+
+    ${pkgs.curl}/bin/curl -sSL "https://www.sanskrit-lexicon.uni-koeln.de/scans/$id/2020/web/webtc/getword.php?key=$input&filter=roman&accent=yes&transLit=hk" \
+      | ${pkgs.pandoc}/bin/pandoc --standalone --variable=title:"$input" --from=html --to=man \
+      | ${pkgs.gnused}/bin/sed 's/\s\+\([:.,;]\)/\1/g;s/\s\+/ /g' \
+      | ${pkgs.man}/bin/man --local-file --pager="${pkgs.bat}/bin/bat -p" -
+  '';
 
   playlist = import ./pls.nix { inherit pkgs; };
 
diff --git a/packages/scripts/sanskrit-dictionary.nix b/packages/scripts/sanskrit-dictionary.nix
new file mode 100755
index 0000000..28575fd
--- /dev/null
+++ b/packages/scripts/sanskrit-dictionary.nix
@@ -0,0 +1,2 @@
+{ pkgs, id, name }: pkgs.writeDashBin name ''
+''