tvl-depot/users/grfn/gws.fyi/orgExportHTML.nix
Vincent Ambo aa122cbae7 style: format entire depot with nixpkgs-fmt
This CL can be used to compare the style of nixpkgs-fmt against other
formatters (nixpkgs, alejandra).

Change-Id: I87c6abff6bcb546b02ead15ad0405f81e01b6d9e
Reviewed-on: https://cl.tvl.fyi/c/depot/+/4397
Tested-by: BuildkiteCI
Reviewed-by: sterni <sternenseemann@systemli.org>
Reviewed-by: lukegb <lukegb@tvl.fyi>
Reviewed-by: wpcarro <wpcarro@gmail.com>
Reviewed-by: Profpatsch <mail@profpatsch.de>
Reviewed-by: kanepyork <rikingcoding@gmail.com>
Reviewed-by: tazjin <tazjin@tvl.su>
Reviewed-by: cynthia <cynthia@tvl.fyi>
Reviewed-by: edef <edef@edef.eu>
Reviewed-by: eta <tvl@eta.st>
Reviewed-by: grfn <grfn@gws.fyi>
2022-01-31 16:11:53 +00:00

71 lines
1.5 KiB
Nix

{ pkgs, depot, ... }:
with pkgs;
with lib;
let
emacsWithPackages = (pkgs.emacsPackagesGen pkgs.emacs27).emacsWithPackages;
emacs = emacsWithPackages (p: with p; [
org
]);
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
''