[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-chicken 7b2e9ce 027/102: Merge remote-tracking bran
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-chicken 7b2e9ce 027/102: Merge remote-tracking branch 'dleslie/master' |
Date: |
Sun, 1 Aug 2021 18:26:49 -0400 (EDT) |
branch: elpa/geiser-chicken
commit 7b2e9ce4cae1ef6dc0eb84c4ab2878ef0256b8e4
Merge: c2dcda3 0efe613
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>
Merge remote-tracking branch 'dleslie/master'
---
elisp/geiser-chicken.el | 32 +++++++++++++++++++++-----------
1 file changed, 21 insertions(+), 11 deletions(-)
diff --git a/elisp/geiser-chicken.el b/elisp/geiser-chicken.el
index 65b494f..2a8c082 100644
--- a/elisp/geiser-chicken.el
+++ b/elisp/geiser-chicken.el
@@ -58,6 +58,7 @@
"use"
"with-input-from-pipe"))
+
;;; Customization:
(defgroup geiser-chicken nil
@@ -114,7 +115,7 @@ this variable to t."
:type 'boolean
:group 'geiser-chicken)
-
+
;;; REPL support:
(defun geiser-chicken--binary ()
@@ -136,6 +137,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(defconst geiser-chicken--prompt-regexp "#[^;]*;[^:0-9]*:?[0-9]+> ")
+
;;; Evaluation support:
(defun geiser-chicken--geiser-procedure (proc &rest args)
@@ -189,16 +191,20 @@ This function uses `geiser-chicken-init-file' if it
exists."
(defun geiser-chicken--exit-command () ",q")
(defun geiser-chicken--symbol-begin (module)
- (apply
- 'max
- (append
- (list (save-excursion (beginning-of-line) (point))
- (save-excursion (skip-syntax-backward "^-()>") (point)))
- (mapcar
- (lambda (match-string)
- (save-excursion (skip-chars-backward match-string) (point)))
- geiser-chicken-prefix-delimiters))))
-
+ (let ((distance-to-beginning-of-line (- (point) (line-beginning-position))))
+ (apply
+ 'max
+ (append
+ (list (save-excursion (beginning-of-line) (point))
+ (save-excursion (skip-syntax-backward "^-()>"
distance-to-beginning-of-line)
+ (point)))
+ (mapcar
+ (lambda (match-string)
+ (save-excursion (skip-chars-backward match-string
distance-to-beginning-of-line)
+ (point)))
+ geiser-chicken-prefix-delimiters)))))
+
+
;;; Error display
(defun geiser-chicken--display-error (module key msg)
@@ -208,6 +214,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(geiser-edit--buttonize-files))
(and (not key) msg (not (zerop (length msg)))))
+
;;; Trying to ascertain whether a buffer is Chicken Scheme:
(defconst geiser-chicken--guess-re
@@ -222,6 +229,7 @@ This function uses `geiser-chicken-init-file' if it exists."
"Loads chicken doc into a buffer"
(browse-url (format "http://api.call-cc.org/cdoc?q=%s&query-name=Look+up"
id)))
+
;;; Keywords and syntax
(defun geiser-chicken--keywords ()
@@ -260,6 +268,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(with-input-from-pipe 1)
(with-output-to-pipe 1))
+
;;; REPL startup
(defconst geiser-chicken-minimum-version "4.8.0.0")
@@ -299,6 +308,7 @@ This function uses `geiser-chicken-init-file' if it exists."
(compilation-setup t)
(geiser-chicken--compile-or-load (not geiser-chicken-compile-geiser-p)))
+
;;; Implementation definition:
(define-geiser-implementation chicken
- [nongnu] elpa/geiser-chicken c4aed35 003/102: Documentation updates and nits for Freija, (continued)
- [nongnu] elpa/geiser-chicken c4aed35 003/102: Documentation updates and nits for Freija, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 23aafbb 002/102: Initial Chicken support, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 845ee42 019/102: Added missing macros, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken d83d2df 009/102: Now suppress loading messages, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 6782f4a 016/102: Kill those TABs, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken d6df78f 014/102: Merge remote-tracking branch 'dleslie/faster-output-handling', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 53128cb 020/102: Sorted and line-split crunch symbols., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 89ffe41 022/102: Add 'geiser-syntax--simple-keywords', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 242d4ae 024/102: Use 'geiser-chicken-extra-keywords', Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken c2dcda3 025/102: Clean up indentation rules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 7b2e9ce 027/102: Merge remote-tracking branch 'dleslie/master',
Philip Kaludercic <=
- [nongnu] elpa/geiser-chicken ce93e6b 028/102: Follow suit and complete quoted symbols in all schemes, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 309c67f 034/102: Minor improvements, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 8bd8b5c 031/102: Converts toplevel methods to prefixed methods, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken a4c49f2 033/102: Turn off debug log, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken bcd1a09 037/102: Use OS-specific quotes when asking for versions, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 9b9b180 039/102: Fixes for Literals, Errors and Modules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 935a114 040/102: Allows redefinition of modules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 95d19aa 044/102: Minor changes to help with debugging completions, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 2098767 046/102: Quoting binary on version checks (issue #117), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-chicken 42b18d5 045/102: Minor cleanup, Philip Kaludercic, 2021/08/01