[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-racket c4b8c1a 080/191: Racket: geiser-add-to-load-
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-racket c4b8c1a 080/191: Racket: geiser-add-to-load-path implemented |
Date: |
Sun, 1 Aug 2021 18:32:04 -0400 (EDT) |
branch: elpa/geiser-racket
commit c4b8c1a2fe7acdc60bee158a8bb4ef867ad06dff
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Racket: geiser-add-to-load-path implemented
And we take the chance to lightly document the existence of this
new command in the user manual.
---
geiser/eval.rkt | 12 +++++++++++-
geiser/main.rkt | 6 ++----
geiser/user.rkt | 1 +
3 files changed, 14 insertions(+), 5 deletions(-)
diff --git a/geiser/eval.rkt b/geiser/eval.rkt
index f1f3f51..a59e275 100644
--- a/geiser/eval.rkt
+++ b/geiser/eval.rkt
@@ -1,6 +1,6 @@
;;; eval.rkt -- evaluation
-;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011 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
@@ -14,6 +14,7 @@
(provide eval-in
load-file
macroexpand
+ add-to-load-path
make-repl-reader)
@@ -65,6 +66,15 @@
(lambda ()
(pretty-print (syntax->datum ((if all expand expand-once) form)))))))
+(define (add-to-load-path p)
+ (when (string? p)
+ (let ([p (string->path p)]
+ [cps (current-library-collection-paths)])
+ (unless (member p cps)
+ (current-library-collection-paths
+ (cons p cps)))))
+ #t)
+
(define (make-repl-reader reader)
(lambda ()
(last-namespace (current-namespace))
diff --git a/geiser/main.rkt b/geiser/main.rkt
index c759089..b1db6fb 100644
--- a/geiser/main.rkt
+++ b/geiser/main.rkt
@@ -1,6 +1,6 @@
;;; main.rkt -- exported interface for emacs
-;; Copyright (C) 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2010, 2011 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
@@ -44,7 +44,7 @@
(load-file file))
(define geiser:compile-file geiser:load-file)
-
+(define geiser:add-to-load-path add-to-load-path)
(define geiser:autodoc autodoc)
(define geiser:help get-help)
(define geiser:completions symbol-completions)
@@ -55,5 +55,3 @@
(define geiser:macroexpand macroexpand)
(define geiser:symbol-documentation symbol-documentation)
(define (geiser:no-values) (values))
-
-;;; main.rkt ends here
diff --git a/geiser/user.rkt b/geiser/user.rkt
index 69a5df7..3ef978b 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -73,6 +73,7 @@
[(enter) (enter! (read) #'cmd)]
[(geiser-eval) (geiser-eval)]
[(geiser-no-values) (datum->syntax #f (void))]
+ [(add-to-load-path) (add-to-load-path (read))]
[else form])]
[_ form])))
- [nongnu] elpa/geiser-racket fad35c6 125/191: Racket: pre-loading help also in remote REPLs, (continued)
- [nongnu] elpa/geiser-racket fad35c6 125/191: Racket: pre-loading help also in remote REPLs, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket efb71a2 127/191: Racket: ensuring the first C-c C-d C-i works, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket fd12248 128/191: Racket: correct detection of manual lookup failures, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e469ace 134/191: For crazy guys that use (define/match [foo bar] ...), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 0c9d6c3 055/191: Guile reconnected (but not debuggable (yet)), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket fbbd3ab 060/191: Superior schemes, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 58657b4 056/191: Better EOT token for more robust communication, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket fd14450 062/191: Support for implementation-specific font lock keywords, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 309ca6d 069/191: Racket: more information in symbol documentation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket a787a26 071/191: Bug fix: don't intern symbols read by scheme reader, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c4b8c1a 080/191: Racket: geiser-add-to-load-path implemented,
Philip Kaludercic <=
- [nongnu] elpa/geiser-racket a9405d0 095/191: Racket: reading into elisp-land the cache dir as needed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 20cc118 083/191: Leftover code from the previous patch removed, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket ce1f555 085/191: Racket: capturing and displaying standard error during evaluation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c9008a6 091/191: [WIP] Draw images inline in the Racket REPL., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 62e2006 114/191: Indentation for Racket's struct, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 0be1797 122/191: A better solution to the funky filename problem, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket e17099e 166/191: Skip expression quote when getting a racket symbol, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 3079c3a 163/191: Racket: displaying graphics in structured objects, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket c0a617f 173/191: Begin the summary lines of all elisp libraries with three semicolons, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-racket 99acb21 175/191: Fix indentation, Philip Kaludercic, 2021/08/01