app-emacs/geiser-gambit: new package; add version 0.18.1

Signed-off-by: Maciej Barć <xgqt@gentoo.org>

5 files changed, 77 insertions, 0 deletions

diff --git a/app-emacs/geiser-gambit/Manifest b/app-emacs/geiser-gambit/Manifest
new file mode 100644
index 000000000000..51398c606fa6
--- /dev/null
+++ b/app-emacs/geiser-gambit/Manifest
@@ -0,0 +1 @@
+DIST geiser-gambit-0.18.1.tar.gz 19163 BLAKE2B c5624d69380688b751a4a4c9de21e886b1577e87218b7e8d761c5aa1dd4f37dbe296e453b5254777d305ac51c2c318d5282609d0d812b3cd233c1f64e3a8f6b4 SHA512 b5808eac6cc23873f848b96720cf86a4bd5ad2737c44b33def134b2ec61b0d05aaffe0e4cdcd17b296ca04757b37d3a3478741adc8db195ac9c9a90b2e15184a
diff --git a/app-emacs/geiser-gambit/files/50geiser-gambit-gentoo.el b/app-emacs/geiser-gambit/files/50geiser-gambit-gentoo.el
new file mode 100644
index 000000000000..a98c6d74a878
--- /dev/null
+++ b/app-emacs/geiser-gambit/files/50geiser-gambit-gentoo.el
@@ -0,0 +1,7 @@
+(add-to-list 'load-path "@SITELISP@")
+(autoload 'connect-to-gambit "geiser-gambit"
+  "Connect to a remote Geiser Gambit REPL." t)
+(autoload 'run-gambit "geiser-gambit"
+  "Start a Geiser Gambit REPL." t)
+(autoload 'switch-to-gambit "geiser-gambit"
+  "Start a Geiser Gambit REPL, or switch to a running one." t)
diff --git a/app-emacs/geiser-gambit/files/geiser-gambit-scheme-dir.patch b/app-emacs/geiser-gambit/files/geiser-gambit-scheme-dir.patch
new file mode 100644
index 000000000000..b761773ddb0b
--- /dev/null
+++ b/app-emacs/geiser-gambit/files/geiser-gambit-scheme-dir.patch
@@ -0,0 +1,11 @@
+--- a/geiser-gambit.el
++++ b/geiser-gambit.el
+@@ -304,7 +304,7 @@ If t, Geiser will use `next-error' to jump to the error's location."
+                                    binary)))
+ 
+ (defvar geiser-gambit-scheme-dir
+-  (expand-file-name "src/" (file-name-directory load-file-name))
++  (expand-file-name "src/" "@SITEETC@")
+   "Directory where the Gambit scheme geiser modules are installed.")
+ 
+ (defun geiser-gambit--parameters ()
diff --git a/app-emacs/geiser-gambit/geiser-gambit-0.18.1.ebuild b/app-emacs/geiser-gambit/geiser-gambit-0.18.1.ebuild
new file mode 100644
index 000000000000..941fb05a649b
--- /dev/null
+++ b/app-emacs/geiser-gambit/geiser-gambit-0.18.1.ebuild
@@ -0,0 +1,41 @@
+# Copyright 1999-2022 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=8
+
+NEED_EMACS=26.1
+
+inherit elisp
+
+DESCRIPTION="Gambit Scheme's implementation of the Geiser protocols"
+HOMEPAGE="https://gitlab.com/emacs-geiser/gambit/"
+SRC_URI="https://gitlab.com/emacs-geiser/gambit/-/archive/${PV}/gambit-${PV}.tar.gz
+			-> ${P}.tar.gz"
+S="${WORKDIR}"/gambit-${PV}
+
+LICENSE="BSD"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+
+BDEPEND="app-emacs/geiser"
+RDEPEND="
+	${BDEPEND}
+	>=dev-scheme/gambit-4.9.4
+"
+
+DOCS=( readme.org )
+PATCHES=( "${FILESDIR}"/${PN}-scheme-dir.patch )
+SITEFILE="50${PN}-gentoo.el"
+
+src_prepare() {
+	elisp_src_prepare
+
+	sed "s|@SITEETC@|${EPREFIX}${SITEETC}/${PN}|" -i ${PN}.el || die
+}
+
+src_install() {
+	elisp_src_install
+
+	insinto ${SITEETC}/${PN}
+	doins -r src
+}
diff --git a/app-emacs/geiser-gambit/metadata.xml b/app-emacs/geiser-gambit/metadata.xml
new file mode 100644
index 000000000000..0f92a25782d9
--- /dev/null
+++ b/app-emacs/geiser-gambit/metadata.xml
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE pkgmetadata SYSTEM "https://www.gentoo.org/dtd/metadata.dtd">
+
+<pkgmetadata>
+  <maintainer type="project">
+    <email>gnu-emacs@gentoo.org</email>
+    <name>Gentoo GNU Emacs project</name>
+  </maintainer>
+  <maintainer type="project">
+    <email>scheme@gentoo.org</email>
+    <name>Gentoo Scheme Project</name>
+  </maintainer>
+  <upstream>
+    <bugs-to>https://gitlab.com/emacs-geiser/gambit/-/issues/</bugs-to>
+    <remote-id type="gitlab">emacs-geiser/gambit</remote-id>
+  </upstream>
+</pkgmetadata>