[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile ba4c1a9 276/284: adjustments to scheme load p
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile ba4c1a9 276/284: adjustments to scheme load path |
Date: |
Sun, 1 Aug 2021 18:29:59 -0400 (EDT) |
branch: elpa/geiser-guile
commit ba4c1a9f35a3a7286cf4cdb63292ff18424bfd60
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
adjustments to scheme load path
---
geiser-guile.el | 29 ++++++++++++++++++++---------
1 file changed, 20 insertions(+), 9 deletions(-)
diff --git a/geiser-guile.el b/geiser-guile.el
index 522c4eb..d68a5b9 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -1,14 +1,21 @@
;;; geiser-guile.el -- guile's implementation of the geiser protocols
-;; Copyright (C) 2009-2018, 2020 Jose Antonio Ortega Ruiz
-;; Copyright (C) 2017 Jan Nieuwenhuizen <janneke@gnu.org>
+;; Copyright (C) 2009-2020 Jose Antonio Ortega Ruiz
+;; Start date: Sun Mar 08, 2009 23:03
-;; This program is free software; you can redistribute it and/or
-;; modify it under the terms of the Modified BSD License. You should
-;; have received a copy of the license along with this program. If
-;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
+;; Author: Jose Antonio Ortega Ruiz (jao@gnu.org)
+;; Maintainer: Jose Antonio Ortega Ruiz (jao@gnu.org)
+;; Keywords: languages, guile, scheme, geiser
+;; Homepage: https://gitlab.com/emacs-geiser/guile
+;; Package-Requires: ((emacs "24.4") (geiser-core "1.0"))
+;; SPDX-License-Identifier: BSD-3-Clause
+;; Version: 1.0
-;; Start date: Sun Mar 08, 2009 23:03
+;; This file is NOT part of GNU Emacs.
+
+;;; Commentary:
+;; geiser-guile extends the `geiser' core package to support GNU
+;; Guile.
;;; Code:
@@ -134,6 +141,10 @@ effect on new REPLs. For existing ones, use the command
(car geiser-guile-binary)
geiser-guile-binary))
+(defvar geiser-guile-scheme-dir
+ (expand-file-name "src" (file-name-nondirectory load-file-name))
+ "Directory where the Guile scheme geiser modules are installed.")
+
(defun geiser-guile--parameters ()
"Return a list with all parameters needed to start Guile.
This function uses `geiser-guile-init-file' if it exists."
@@ -141,7 +152,7 @@ This function uses `geiser-guile-init-file' if it exists."
(expand-file-name geiser-guile-init-file)))
(q-flags (and (not geiser-guile-load-init-file-p) '("-q"))))
`(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
- ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
+ ,@q-flags "-L" ,geiser-guile-scheme-dir
,@(apply 'append (mapcar (lambda (p) (list "-L" p))
geiser-guile-load-path))
,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
@@ -357,7 +368,7 @@ it spawn a server thread."
(geiser-connect 'guile))
(defun geiser-guile--set-geiser-load-path ()
- (let* ((path (expand-file-name "guile/" geiser-scheme-dir))
+ (let* ((path geiser-guile-scheme-dir)
(witness "geiser/emacs.scm")
(code `(begin (if (not (%search-load-path ,witness))
(set! %load-path (cons ,path %load-path)))
- [nongnu] elpa/geiser-guile b5f0316 211/284: Guile: logging initialisation process, (continued)
- [nongnu] elpa/geiser-guile b5f0316 211/284: Guile: logging initialisation process, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 52e8e12 212/284: Guile: fix for connect-to-guile problems, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4732e10 214/284: Bug fix: don't intern symbols read by scheme reader, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1421a71 225/284: Guile: find module when cursor is before define-module (#33497), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6c9efbc 233/284: Guile: Fix subr argument name retrieval for Guile >= 2.0.9., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3bf45a4 249/284: Clean up indentation rules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9d0d38a 237/284: Guile: augmenting %load-compiled-path too, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a1078b9 254/284: Fixing guile 2.2 compatibility, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ef3fb34 264/284: Really fix #252, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8bf1a8b 268/284: Fix indentation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile ba4c1a9 276/284: adjustments to scheme load path,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 700ac98 282/284: Use new implementation extension declarator., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 5e2c874 139/284: Golfing., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 06d7cf5 144/284: Guile: taking advantage of the patterns property in macro transformers., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3a80209 164/284: Guile: evaluation warnings, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 7563473 167/284: Guile: configurable warning level, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 17ebbec 183/284: Autodoc: fix for improper macro arglists scanning, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 04fd67f 185/284: Always fallback to edit-module in M-., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile cd2cfae 190/284: Guile: better meta-command args handling, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c8dcc24 202/284: Make do with a single connection, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile fef0d8a 209/284: Document browser improvements, and Racket using them, Philip Kaludercic, 2021/08/01