feat: Add writeElispBin helper function r/99

Exactly as the name suggests. Currently, passing arguments from the
CLI is not really supported.

1 files changed, 23 insertions, 0 deletions

diff --git a/overrides/writeElispBin.nix b/overrides/writeElispBin.nix
new file mode 100644
index 000000000000..72871b9f0b43
--- /dev/null
+++ b/overrides/writeElispBin.nix
@@ -0,0 +1,23 @@
+{ pkgs, ... }:
+
+{ name, src, deps ? (_: []), emacs ? pkgs.emacs26-nox }:
+
+let
+  inherit (pkgs) emacsPackagesFor writeTextFile;
+  inherit (builtins) isString toFile;
+
+  finalEmacs = (emacsPackagesFor emacs).emacsWithPackages deps;
+
+  srcFile = if isString src
+    then toFile "${name}.el" src
+    else src;
+in writeTextFile {
+  inherit name;
+  executable = true;
+  destination = "/bin/${name}";
+
+  text = ''
+    #!/bin/sh
+    ${finalEmacs}/bin/emacs --batch --no-site-file --script ${srcFile} $@
+  '';
+}