[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-racket 05f692b 184/191: geiser-racket.el to top-lev
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-racket 05f692b 184/191: geiser-racket.el to top-level to easy elpa definition |
Date: |
Sun, 1 Aug 2021 18:32:25 -0400 (EDT) |
branch: elpa/geiser-racket
commit 05f692b26cd03ba7c7055d2057726d0febe0bc50
Author: jao <jao@gnu.org>
Commit: jao <jao@gnu.org>
geiser-racket.el to top-level to easy elpa definition
---
elisp/geiser-racket.el => geiser-racket.el | 35 +++++++++++++++++++++++-------
1 file changed, 27 insertions(+), 8 deletions(-)
diff --git a/elisp/geiser-racket.el b/geiser-racket.el
similarity index 92%
rename from elisp/geiser-racket.el
rename to geiser-racket.el
index 6d17bb7..fd7da61 100644
--- a/elisp/geiser-racket.el
+++ b/geiser-racket.el
@@ -1,13 +1,20 @@
;;; geiser-racket.el -- geiser support for Racket scheme
-;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016 Jose Antonio
Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2020 Jose
Antonio Ortega Ruiz
-;; 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, racket, scheme, geiser
+;; Homepage: https://gitlab.com/emacs-geiser/racket
+;; Package-Requires: ((emacs "26.1") (geiser-core "1.0"))
+;; SPDX-License-Identifier: BSD-3-Clause
+;; Version: 1.0
-;; Start date: Sat Apr 25, 2009 21:13
+;; This file is NOT part of GNU Emacs.
+
+;;; Commentary:
+;; geiser-racket extends the `geiser' core package to support the
+;; Racket "scheme" implementation.
;;; Code:
@@ -86,13 +93,16 @@ This executable is used by `run-gracket', and, if
(let ((binary (geiser-racket--real-binary)))
(if (listp binary) (car binary) binary)))
+(defvar geiser-racket-scheme-dir
+ (expand-file-name "src/" (file-name-directory load-file-name)))
+
(defun geiser-racket--parameters ()
"Return a list with all parameters needed to start racket.
This function uses `geiser-racket-init-file' if it exists."
(let ((init-file (and (stringp geiser-racket-init-file)
(expand-file-name geiser-racket-init-file)))
(binary (geiser-racket--real-binary))
- (rackdir (expand-file-name "racket/" geiser-scheme-dir)))
+ (rackdir geiser-racket-scheme-dir))
`("-i" "-q" "-S" ,rackdir
,@(apply 'append (mapcar (lambda (p) (list "-S" p))
geiser-racket-collects))
@@ -105,6 +115,7 @@ This function uses `geiser-racket-init-file' if it exists."
;;; Remote REPLs
+;;;###autoload
(defun connect-to-racket ()
"Start a Racket REPL connected to a remote process.
@@ -231,7 +242,7 @@ using start-geiser, a procedure in the geiser/server
module."
"module: \"\\([^>\"\n]+\\)\""))
(defconst geiser-racket--geiser-file-rx
- (format "^ *%s/?racket/geiser" (regexp-quote geiser-scheme-dir)))
+ (format "^ *%s/geiser" (regexp-quote geiser-racket-scheme-dir)))
(defun geiser-racket--purge-trace ()
(save-excursion
@@ -448,11 +459,19 @@ Use a prefix to be asked for a submodule name."
(geiser-impl--add-to-alist 'regexp "\\.ss$" 'racket t)
(geiser-impl--add-to-alist 'regexp "\\.rkt[dl]?$" 'racket t)
+;;;###autoload
(defun run-gracket ()
"Start the Racket REPL using gracket instead of plain racket."
(interactive)
(let ((geiser-racket-use-gracket-p t))
(run-racket)))
+;;;###autoload
+(autoload 'run-racket "geiser-racket" "Start a Geiser Racket REPL." t)
+
+;;;###autoload
+(autoload 'switch-to-racket "geiser-racket"
+ "Start a Geiser Racket REPL, or switch to a running one." t)
+
(provide 'geiser-racket)
- [nongnu] elpa/geiser-racket 1e62c8f 151/191: Let's make it *any* submodule, (continued)
- [nongnu] elpa/geiser-racket 1e62c8f 151/191: Let's make it *any* submodule, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket a608b02 150/191: Racket: new commands to show and hide test submodules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 14330b4 148/191: Racket: not loading errortrace by default, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 44740d1 152/191: Syntax error fixed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 5e0fced 161/191: Possible fix for scanning problem, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket bde687f 153/191: Scheme version checks, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket f9b1681 159/191: Font lock `define-syntax-rule' like `define' procedures, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 87662a1 164/191: Not cleaning the image cache before displaying images, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e989bba 165/191: Add 'geiser-syntax--simple-keywords', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 279714a 157/191: Racket: fix for recompilation of typed/racket modules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 05f692b 184/191: geiser-racket.el to top-level to easy elpa definition,
Philip Kaludercic <=
- [nongnu] elpa/geiser-racket a87fd44 190/191: fix: auto-activate implementation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 22e56ce 191/191: Use new implementation extension declarator, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket fbe538b 160/191: Finer control of debugging window popups, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 7de178d 162/191: Racket: show images with print, write and display, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 1facdcd 171/191: racket: indentation for 'shared', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c7d936f 174/191: Mark the beginning of code part of elisp libraries with Code: heading, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 8dbb75c 180/191: rkt files to src dir, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 7a62da17 181/191: Import elisp/geiser-racket.el from original repo, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 58e64cb 186/191: A fancier readme title, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 0426f54 188/191: Typo, Philip Kaludercic, 2021/08/01