[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 58ae3a1 100/284: Cosmetics.
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 58ae3a1 100/284: Cosmetics. |
Date: |
Sun, 1 Aug 2021 18:29:24 -0400 (EDT) |
branch: elpa/geiser-guile
commit 58ae3a1f432c71030dbdaf392d71e105a056c693
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Cosmetics.
---
elisp/geiser-guile.el | 47 ++++++++++++++++++-----------------------------
1 file changed, 18 insertions(+), 29 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 806bc97..332454f 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -44,20 +44,13 @@ started."
:type 'string
:group 'geiser-guile)
-(geiser-custom--defcustom geiser-guile-use-compiler-in-eval t
- "When enable, always use Guile's compiler to perform evaluation.
-Recommended, since the compiler usually collects better metadata
-than the interpreter."
- :type 'boolean
- :group 'geiser-guile)
-
;;; REPL support:
-(defun geiser-guile-binary ()
+(defun geiser-guile--binary ()
(if (listp geiser-guile-binary) (car geiser-guile-binary)
geiser-guile-binary))
-(defun geiser-guile-parameters ()
+(defun geiser-guile--parameters ()
"Return a list with all parameters needed to start Guile.
This function uses `geiser-guile-init-file' if it exists."
(let ((init-file (and (stringp geiser-guile-init-file)
@@ -67,23 +60,19 @@ This function uses `geiser-guile-init-file' if it exists."
,@(apply 'append (mapcar (lambda (p) (list "-L" p))
geiser-guile-load-path))
,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
-(defconst geiser-guile-prompt-regexp "^[^() \n]+@([^)]*?)> ")
+(defconst geiser-guile--prompt-regexp "^[^() \n]+@([^)]*?)> ")
;;; Evaluation support:
-(defun geiser-guile-geiser-procedure (proc)
- (let ((proc (intern (format "ge:%s"
- (if (and geiser-guile-use-compiler-in-eval
- (eq proc 'eval))
- 'compile
- proc)))))
+(defun geiser-guile--geiser-procedure (proc)
+ (let ((proc (intern (format "ge:%s" (if (eq proc 'eval) 'compile proc)))))
`(@ (geiser emacs) ,proc)))
(defconst geiser-guile--module-re
"(define-module +\\(([^)]+)\\)")
-(defun geiser-guile-get-module (&optional module)
+(defun geiser-guile--get-module (&optional module)
(cond ((null module)
(save-excursion
(ignore-errors
@@ -91,14 +80,14 @@ This function uses `geiser-guile-init-file' if it exists."
(while (not (zerop (geiser-syntax--nesting-level)))
(backward-up-list)))
(if (re-search-backward geiser-guile--module-re nil t)
- (geiser-guile-get-module (match-string-no-properties 1))
+ (geiser-guile--get-module (match-string-no-properties 1))
:f)))
((listp module) module)
((stringp module)
(or (ignore-errors (car (read-from-string module))) :f))
(t :f)))
-(defun geiser-guile-symbol-begin (module)
+(defun geiser-guile--symbol-begin (module)
(if module
(max (save-excursion (beginning-of-line) (point))
(save-excursion (skip-syntax-backward "^(>") (1- (point))))
@@ -130,7 +119,7 @@ This function uses `geiser-guile-init-file' if it exists."
(when file
(geiser-edit--make-link beg end file line 0)))))))
-(defun geiser-guile-display-error (module key msg)
+(defun geiser-guile--display-error (module key msg)
(when key
(insert "Error: ")
(geiser--insert-with-face (format "%s" key) 'bold)
@@ -145,7 +134,7 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Trying to ascertain whether a buffer is Guile Scheme:
-(defun geiser-guile-guess ()
+(defun geiser-guile--guess ()
(save-excursion
(goto-char (point-min))
(re-search-forward geiser-guile--module-re nil t)))
@@ -154,16 +143,16 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Implementation definition:
(define-geiser-implementation guile
- (binary geiser-guile-binary)
- (arglist geiser-guile-parameters)
+ (binary geiser-guile--binary)
+ (arglist geiser-guile--parameters)
(startup)
- (prompt-regexp geiser-guile-prompt-regexp)
- (marshall-procedure geiser-guile-geiser-procedure)
- (find-module geiser-guile-get-module)
- (find-symbol-begin geiser-guile-symbol-begin)
- (display-error geiser-guile-display-error)
+ (prompt-regexp geiser-guile--prompt-regexp)
+ (marshall-procedure geiser-guile--geiser-procedure)
+ (find-module geiser-guile--get-module)
+ (find-symbol-begin geiser-guile--symbol-begin)
+ (display-error geiser-guile--display-error)
(display-help)
- (check-buffer geiser-guile-guess))
+ (check-buffer geiser-guile--guess))
(provide 'geiser-guile)
- [nongnu] elpa/geiser-guile b32aed7 077/284: module-children -> module-exports., (continued)
- [nongnu] elpa/geiser-guile b32aed7 077/284: module-children -> module-exports., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 19f55b0 097/284: New implementation registration mechanism, for the elisp side of things., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c34d042 091/284: Yet another deklugdification: locals scanning moved to elisp., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a329773 094/284: BSD relicensing: Guile code., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 694539c 101/284: Guile: bug fix: a macro-transformer is not a good arity info source., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 8f57a6a 034/284: Autodoc system revamped., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f48e83f 065/284: Accept a list as Guile binary., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4e1d945 088/284: Simpler, more correct and efficient autodoc implementation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6d3f98b 085/284: Guile: unbreaking evaluation., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 0e5a52b 090/284: Leftover removed., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 58ae3a1 100/284: Cosmetics.,
Philip Kaludercic <=
- [nongnu] elpa/geiser-guile 5807a76 105/284: Guile: adjustment to stack size display., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a405f22 104/284: Guile: fix for file loading (we always compile them now)., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 134606d 102/284: Guile: Support for multiple arities in autodoc., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile c34995d 110/284: Guile: support for the REPL debugger, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 55c37c7 109/284: Guile: Minimal support for the new REPL debug mode., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a9f26f1 115/284: Guile: slightly better compilation error regexps., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 11c2d58 138/284: Guile: excluding anonymous module names from completion., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1c9457a 116/284: Guile: heuristically resolving relative paths in REPL errors., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile f1ac35f 140/284: Guile: filtering gensym names in autodoc display., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6baa7d3 124/284: Guile: better stack trace limits during evaluation., Philip Kaludercic, 2021/08/01