pre-inst-env: Add pre-inst-env.

* pre-inst-env: New file.
* Makefile (distribute_files): Add pre-inst-env.

2 files changed, 39 insertions, 1 deletions

diff --git a/Makefile b/Makefile
index 29119da..298ea39 100644
--- a/Makefile
+++ b/Makefile
@@ -44,7 +44,7 @@ doc_texi = doc/$(project).texi
 doc_html = $(doc_texi:.texi=.html)
 doc_info = $(doc_texi:.texi=.info)
 distribute_files = $(sources) tests $(doc_texi) \
-		   build-aux/test-driver.scm \
+		   build-aux/test-driver.scm pre-inst-env \
 		   COPYING NEWS README.org \
 		   guix.scm Makefile
 
diff --git a/pre-inst-env b/pre-inst-env
new file mode 100755
index 0000000..872831c
--- /dev/null
+++ b/pre-inst-env
@@ -0,0 +1,38 @@
+#! /usr/bin/env guile
+!#
+;;; guile-email --- Guile email parser
+;;; Copyright © 2025 Arun Isaac <arunisaac@systemreboot.net>
+;;;
+;;; This file is part of guile-email.
+;;;
+;;; guile-email is free software; you can redistribute it and/or modify
+;;; it under the terms of the GNU Affero General Public License as
+;;; published by the Free Software Foundation; either version 3 of the
+;;; License, or (at your option) any later version.
+;;;
+;;; guile-email is distributed in the hope that it will be useful, but
+;;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; Affero General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Affero General Public
+;;; License along with guile-email.  If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(use-modules (ice-9 match))
+
+(define (prepend-path-env! name . values)
+  (setenv name (string-join (append values
+                                    (if (getenv name)
+                                        (string-split (getenv name) #\:)
+                                        '()))
+                            ":")))
+
+(define %source-dir (dirname (current-filename)))
+
+(prepend-path-env! "GUILE_LOAD_PATH" %source-dir)
+(prepend-path-env! "GUILE_LOAD_COMPILED_PATH" %source-dir)
+
+(match (command-line)
+  ((_ command args ...)
+   (apply execlp command command args)))