[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile cd2cfae 190/284: Guile: better meta-command a
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile cd2cfae 190/284: Guile: better meta-command args handling |
Date: |
Sun, 1 Aug 2021 18:29:42 -0400 (EDT) |
branch: elpa/geiser-guile
commit cd2cfae323665c99f56528a9d67fd8c386fac541
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Guile: better meta-command args handling
---
elisp/geiser-guile.el | 26 +++++---------------------
1 file changed, 5 insertions(+), 21 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index f0d090d..93d1237 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -113,34 +113,18 @@ This function uses `geiser-guile-init-file' if it exists."
;;; Evaluation support:
-(defun geiser-guile--linearize (str)
- (if (string-match "\n" str)
- (with-temp-buffer
- (set-syntax-table scheme-mode-syntax-table)
- (insert str)
- (goto-char (point-min))
- (let ((kill-whole-line nil))
- (while (> (skip-syntax-forward "^<") 0)
- (let ((p (point)))
- (end-of-line)
- (kill-region p (point)))))
- (goto-char (point-min))
- (while (search-forward-regexp "\n[ \t\r\n]*" nil t)
- (replace-match " "))
- (buffer-string))
- str))
-
(defsubst geiser-guile--linearize-args (args)
- (mapconcat 'geiser-guile--linearize args " "))
+ (mapconcat 'identity args " "))
(defun geiser-guile--geiser-procedure (proc &rest args)
(case proc
- ((eval compile) (format ",geiser-eval %s %s"
+ ((eval compile) (format ",geiser-eval %s %s%s"
(or (car args) "#f")
- (geiser-guile--linearize-args (cdr args))))
+ (geiser-guile--linearize-args (cdr args))
+ (if (cddr args) "" " ()")))
((load-file compile-file) (format ",geiser-load-file %s" (car args)))
((no-values) ",geiser-no-values")
- (t (format "ge:%s %s" proc (geiser-guile--linearize-args args)))))
+ (t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args)))))
(defconst geiser-guile--module-re
"(define-module +\\(([^)]+)\\)")
- [nongnu] elpa/geiser-guile ef3fb34 264/284: Really fix #252, (continued)
- [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, 2021/08/01
- [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 <=
- [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
- [nongnu] elpa/geiser-guile 190290b 213/284: Guile: fixes for documentation display, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6d69176 216/284: No more interning in the scheme reader, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b9a8980 224/284: Guile: what if i do what i meant to do?, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile d6fca59 232/284: guile: lambda* indentation, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 15af81d 247/284: Add 'geiser-syntax--simple-keywords', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 362354d 241/284: Indent Guile's `with-mutex', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9fb965f 251/284: Add more highlighting/indentation for Guile, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile be00e7a 261/284: guile: fix manual symbol lookup., Philip Kaludercic, 2021/08/01