kfm/niveum
1
0
Fork 0
mirror of https://github.com/kmein/niveum synced 2026-03-16 10:11:08 +01:00
Code Releases Activity

feat: reimplement ipa and betacode in haskell

Browse Source
This commit is contained in:
Kierán Meinhardt
2022-01-11 23:49:06 +01:00
parent a1b13206f1
commit f2ff05c47e
1 changed files with 18 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
packages/scripts/default.nix
View File

@@ -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 {};