[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-racket ed7347d 093/191: Racket: configurable image
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-racket ed7347d 093/191: Racket: configurable image cache directory |
Date: |
Sun, 1 Aug 2021 18:32:07 -0400 (EDT) |
branch: elpa/geiser-racket
commit ed7347db3ad3e01bf322a21ac9fa175e38e8d4a1
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Racket: configurable image cache directory
Brought to you by a comma-command in the REPL and the REPL startup
function.
---
elisp/geiser-racket.el | 37 +++++++++++++++++++++++++------------
1 file changed, 25 insertions(+), 12 deletions(-)
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 52f7a32..0cb4663 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -63,6 +63,12 @@ This executable is used by `run-gracket', and, if
:type '(repeat string)
:group 'geiser-racket)
+(geiser-custom--defcustom geiser-racket-image-cache-directory nil
+ "The directory where temporary image files generated by Racket are stored.
+If set to nil, the default system temp dir is used."
+ :type 'file
+ :group 'geiser-racket)
+
;;; REPL support:
@@ -92,6 +98,24 @@ This function uses `geiser-racket-init-file' if it exists."
(defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*?> ")
+(defun geiser-racket--startup (remote)
+ (when geiser-racket-image-cache-directory
+ (geiser-eval--send/wait
+ (format ",set-image-cache %S\n'done"
+ geiser-racket-image-cache-directory))))
+
+
+;;; Remote REPLs
+
+(defun connect-to-racket ()
+ "Start a Racket REPL connected to a remote process.
+
+The remote process needs to be running a REPL server started
+using start-geiser, a procedure in the geiser/server module."
+ (interactive)
+ (geiser-connect 'racket))
+
+
;;; Evaluation support:
@@ -281,24 +305,13 @@ This function uses `geiser-racket-init-file' if it
exists."
-;;; Remote REPLs
-
-(defun connect-to-racket ()
- "Start a Racket REPL connected to a remote process.
-
-The remote process needs to be running a REPL server started
-using start-geiser, a procedure in the geiser/server module."
- (interactive)
- (geiser-connect 'racket))
-
-
-
;;; Implementation definition:
(define-geiser-implementation racket
(unsupported-procedures '(callers callees generic-methods))
(binary geiser-racket--binary)
(arglist geiser-racket--parameters)
+ (repl-startup geiser-racket--startup)
(prompt-regexp geiser-racket--prompt-regexp)
(marshall-procedure geiser-racket--geiser-procedure)
(find-module geiser-racket--get-module)
- [nongnu] elpa/geiser-racket aa7ac2e 146/191: Missing require cl for case, (continued)
- [nongnu] elpa/geiser-racket aa7ac2e 146/191: Missing require cl for case, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 95d41eb 156/191: Racket: better behaviour of geiser-eval-buffer, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 41c41e9 177/191: Delete trailing whitespace, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 8a30ded 023/191: Redisplaying the prompt after empty lines on the REPL., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c19f8dc 015/191: Racket: serious bug preventing file compilation fixed., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 05d1807 031/191: Racket: , enter meta-command instead of namespace clobbering, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 61bcd9a 009/191: Racket: square cosmetics., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket aa2a6be 064/191: Racket: slightly better handling of the signatures cache, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 7df27a3 067/191: Document browser improvements, and Racket using them, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 2494b95 068/191: Document browser improvements, and Racket using them, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket ed7347d 093/191: Racket: configurable image cache directory,
Philip Kaludercic <=
- [nongnu] elpa/geiser-racket 36d2d55 097/191: racket: reading into elisp-land the cache dir as needed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 1f7a9e2 124/191: Racket: better help commands, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket b23d52d 123/191: Racket: better help commands, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket a5f8702 132/191: Racket: correct font lock for define/match, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 4e68ebc 140/191: racket: C-u C-c C-z on a submodule enters it, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 65447c4 138/191: racket: handling correctly submodules in load handler during , enter, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e1474f1 141/191: Nits, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket eafee8d 142/191: racket: new , geiser-load command in REPL, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e311818 154/191: Racket: duplicate version check removed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c6b4c09 155/191: Racket: fix for evaluations inside typed/racket modules, Philip Kaludercic, 2021/08/01