mirror of
https://github.com/emacs-twist/org-babel.git
synced 2025-03-15 13:07:42 +00:00
37 lines
927 B
Nix
37 lines
927 B
Nix
# Quick-and-dirty re-implementation of org-babel-tangle in Nix.
|
|
{ languages
|
|
, processLines ? lines: lines
|
|
}:
|
|
string:
|
|
with builtins;
|
|
let
|
|
lines = filter isString (split "\n" string);
|
|
|
|
dropUntil = import ./dropUntil.nix;
|
|
|
|
blockStartRegexp =
|
|
"[[:space:]]*\#\\+[Bb][Ee][Gg][Ii][Nn]_[Ss][Rr][Cc][[:space:]]+"
|
|
+ "(" + (concatStringsSep "|" languages) + ")"
|
|
+ "([[:space:]].*)?";
|
|
|
|
isBlockStart = line: match blockStartRegexp line != null;
|
|
|
|
splitListWith = import ./splitWith.nix;
|
|
|
|
blockEndRegexp = "[[:space:]]*\#\\+[Ee][Nn][Dd]_[Ss][Rr][Cc].*";
|
|
|
|
isBlockEnd = line: match blockEndRegexp line != null;
|
|
|
|
go = acc: xs:
|
|
let
|
|
st1 = dropUntil isBlockStart xs;
|
|
st2 = splitListWith isBlockEnd st1;
|
|
in
|
|
if length xs == 0
|
|
then acc
|
|
else if length st1 == 0
|
|
then acc
|
|
else (go (acc ++ [ st2.before ]) st2.after);
|
|
|
|
in
|
|
concatStringsSep "\n" (concatLists (go [ ] (processLines lines)))
|