feat: reimplement ipa and betacode in haskell

configs/default.nix

@@ -21,6 +21,7 @@ in {
           allowUnfree = true;
           packageOverrides = pkgs: {
             gfs-fonts = pkgs.callPackage <niveum/packages/gfs-fonts.nix> {};
+            tocharian-font = pkgs.callPackage <niveum/packages/tocharian-font.nix> {};
             iolanguage = pkgs.callPackage <niveum/packages/iolanguage.nix> { };
             ix = pkgs.callPackage <niveum/packages/ix.nix> { };
           };

configs/fonts.nix

@@ -30,6 +30,7 @@
       jetbrains-mono
       twemoji-color-font
       joypixels
+      tocharian-font
     ];
     fontconfig.defaultFonts = {
       monospace = [ "JetBrains Mono" "JoyPixels" ];

configs/lb.nix

@@ -1,7 +1,4 @@
 { lib, pkgs, ... }:
-let
-  nixpkgs-unstable = import <nixpkgs-unstable> {};
-in
 {
   systemd.services.lb-subscription = {
     enable = true;
@@ -15,10 +12,10 @@ in
       first_year=2019
       for year in $(${pkgs.coreutils}/bin/seq "$first_year" "$(date +%Y)"); do
         ${pkgs.curl}/bin/curl -sSL "https://www.literarische-blaetter.de/jahrgang-$year/" \
-          | ${nixpkgs-unstable.htmlq}/bin/htmlq --attribute href 'ul.slides a' \
+          | ${pkgs.htmlq}/bin/htmlq --attribute href 'ul.slides a' \
           | while read -r month; do
             ${pkgs.curl}/bin/curl -sSL "$month" \
-              | ${nixpkgs-unstable.htmlq}/bin/htmlq --attribute src iframe \
+              | ${pkgs.htmlq}/bin/htmlq --attribute src iframe \
               | ${pkgs.gnused}/bin/sed 's/.*?pdf=//;s/?wp-hosted.*//'
           done
       done | ${pkgs.findutils}/bin/xargs ${pkgs.wget}/bin/wget --no-clobber

configs/packages.nix

@@ -93,7 +93,7 @@ in {
     python3Packages.jsonschema # json validation
     jq # json toolkit
     pup # html toolkit
-    nixpkgs-unstable.htmlq
+    htmlq
     xsv # csv toolkit
     xmlstarlet # xml toolkit
     manpages
@@ -121,12 +121,14 @@ in {
     nixpkgs-unstable.zoom-us # video conferencing
     pdfgrep # search in pdf
     pdftk # pdf toolkit
+    mupdf
     poppler_utils # pdf toolkit
     foxitreader # for viewing pdf annotations
     xournalpp # for annotating pdfs
     pdfpc # presenter console for pdf slides
     hc # print files as qr codes
     youtubeDL
+    espeak
     bc # calculator
     pari # gp -- better calculator
     scripts.auc

configs/stardict.nix

@@ -249,13 +249,6 @@ in
     SDCV_PAGER = toString sdcvPager;
   };
 
-  home-manager.users.me = {
-    home.file.".goldendict/config".text = import <niveum/lib/goldendict-config.nix> {
-      path = "/etc/stardict";
-      inherit pkgs;
-    };
-  };
-
   environment.systemPackages = [
     pkgs.goldendict
     (pkgs.writers.writeDashBin "sd-classics" ''${pkgs.sdcv}/bin/sdcv --data-dir ${makeStardictDataDir classicsDictionaries} "$@"'')

flake.lock

@@ -125,11 +125,11 @@
     },
     "nixpkgs-unstable": {
       "locked": {
-        "lastModified": 1641830906,
-        "narHash": "sha256-BxkWv7utt+JUKzF36uskJlTGmgoe921PvdWyvBKfSd8=",
+        "lastModified": 1641935776,
+        "narHash": "sha256-8q/V9EgzyW0KvGnBjbTfQ19qoTCFqsEd1mF9DheCukw=",
         "owner": "NixOS",
         "repo": "nixpkgs",
-        "rev": "ed0a6c2827e370b29006e10c69f8f38e52bd7ac6",
+        "rev": "bd20b7f07fd337b2e85420edd642382a2cc0196d",
         "type": "github"
       },
       "original": {
@@ -158,11 +158,11 @@
     "retiolum": {
       "flake": false,
       "locked": {
-        "lastModified": 1641731897,
-        "narHash": "sha256-h4YCWW6UWm0lnzsjWV/JKetdMcTT7a8ywh0CiJ9O86s=",
+        "lastModified": 1641939337,
+        "narHash": "sha256-VDVe1VtHM/BdndP2Ta5jRyQaBpdu+Dh250jRS4rfb9A=",
         "owner": "krebs",
         "repo": "retiolum",
-        "rev": "8b8f6aeb6228484e7e2d439e23cb340eb81414dc",
+        "rev": "4fcbe17549fa742a32e05b5f2ca57a983ad500c1",
         "type": "github"
       },
       "original": {

packages/scripts/default.nix

@@ -294,23 +294,30 @@ in rec {
     packages = [ pkgs.xdo ];
   };
 
-  ipa = wrapScript {
-    script = ./ipa.py;
-    name = "ipa";
-    packages = [ pkgs.python3 ];
-  };
+  ipa = pkgs.writers.writeHaskellBin "ipa" {
+    libraries = with pkgs; [ haskellPackages.text haskellPackages.ipa ];
+  } ''
+    import Data.Maybe (fromJust)
+    import Language.IPA
+    import qualified Data.Text as T
+    import qualified Data.Text.IO as T
+    main = T.interact (T.unwords . map (unIPA . fromJust . (xSampaToIpa =<<) . mkXSampa) . T.words)
+  '';
 
   default-gateway = pkgs.writers.writeDashBin "default-gateway" ''
     ${pkgs.iproute}/bin/ip -json route | ${pkgs.jq}/bin/jq --raw-output '.[0].gateway'
   '';
 
-  betacode = pkgs.writers.writePython3Bin "betacode" {
-    libraries = [ betacode ];
+  betacode = pkgs.writers.writeHaskellBin "betacode" {
+    libraries = with pkgs; [
+      (haskell.lib.unmarkBroken (haskell.lib.doJailbreak haskellPackages.betacode))
+      haskellPackages.text
+    ];
   } ''
-    import betacode.conv
-    import sys
-
-    sys.stdout.write(betacode.conv.beta_to_uni(sys.stdin.read()))
+    import qualified Data.Text.IO as T
+    import qualified Data.Text as T
+    import Text.BetaCode
+    main = T.interact (either (error . T.unpack) id . fromBeta)
   '';
 
   devanagari = pkgs.callPackage ../devanagari {};

packages/tocharian-font.nix

@@ -0,0 +1,24 @@
+{ stdenv, lib, fetchurl, mupdf }:
+stdenv.mkDerivation {
+  pname = "tocharian-font";
+  version = "unstable-2022-01-11";
+  src = fetchurl {
+    url = "https://unicode.org/L2/L2015/15236-tocharian.pdf";
+    sha256 = "08bzkva9a6b2cfl38p9m22b1cf6yv27xsw6nrvq5ly5nffjm32hv";
+  };
+  dontUnpack = true;
+  buildInputs = [ mupdf ];
+  buildPhase = ''
+    mutool extract $src
+  '';
+  installPhase = ''
+    mkdir -p $out/share/fonts/truetype
+    install font-0021.ttf $out/share/fonts/truetype/Tocharian.ttf
+  '';
+  meta = with lib; {
+    description = "Tocharian font by Lee Wilson";
+    license = licenses.unfree;
+    platforms = platforms.all;
+    maintainers = with maintainers; [ kmein ];
+  };
+}

systems/makanek/retiolum-map.nix

@@ -48,6 +48,8 @@ in
     recommendedProxySettings = true;
     recommendedTlsSettings = true;
     virtualHosts."graph.r".locations."/".root = "/var/lib/${stateDirectory}";
+    # RRM @ https://github.com/krebs/cholerab/blob/master/thesauron.adoc
+    virtualHosts."rrm.r".locations."/".root = "/var/lib/${stateDirectory}";
   };
 
   systemd.services.geoip-share = {