about summary refs log tree commit diff
path: root/users/grfn/web/orgExportHTML.nix
diff options
context:
space:
mode:
Diffstat (limited to 'users/grfn/web/orgExportHTML.nix')
-rw-r--r--users/grfn/web/orgExportHTML.nix67
1 files changed, 0 insertions, 67 deletions
diff --git a/users/grfn/web/orgExportHTML.nix b/users/grfn/web/orgExportHTML.nix
deleted file mode 100644
index aac4e32e7ac5..000000000000
--- a/users/grfn/web/orgExportHTML.nix
+++ /dev/null
@@ -1,67 +0,0 @@
-{ pkgs, depot, ... }:
-
-with pkgs;
-with lib;
-
-let
-
-  emacs = pkgs.emacs28;
-
-in
-
-opts:
-
-let
-  src = if isAttrs opts then opts.src else opts;
-  headline = if isAttrs opts then opts.headline else null;
-
-  bn = builtins.baseNameOf src;
-  filename = elemAt (splitString "." bn) 0;
-
-  outName =
-    if isNull headline
-    then
-      let
-        bn = builtins.baseNameOf src;
-        filename = elemAt (splitString "." bn) 0;
-      in
-      if depot.nix.utils.isDirectory src
-      then filename
-      else filename + ".html"
-    else "${filename}-${replaceStrings [" "] ["-"] filename}.html";
-
-  escapeDoubleQuotes = replaceStrings [ "\"" ] [ "\\\"" ];
-
-  navToHeadline = optionalString (! isNull headline) ''
-    (search-forward "${escapeDoubleQuotes headline}")
-    (org-narrow-to-subtree)
-  '';
-
-in
-
-runCommand outName { inherit src; } ''
-  buildFile() {
-    cp "$1" file.org
-    ${emacs}/bin/emacs --batch \
-      --load ${./config.el} \
-      --visit file.org \
-      --eval "(progn
-        ${escapeDoubleQuotes navToHeadline}
-        (org-html-export-to-html))" \
-      --kill
-    rm file.org
-    substitute file.html "$2" \
-      --replace '<title>&lrm;</title>' ""
-    rm file.html
-  }
-
-  if [ -d $src ]; then
-    for file in $src/*; do
-      result=''${file/$src/$out}
-      mkdir -p $(dirname $result)
-      buildFile $file ''${result/.org/.html}
-    done
-  else
-    buildFile $src $out
-  fi
-''