[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/geiser-guile 8bf1a8b 268/284: Fix indentation
From: |
Philip Kaludercic |
Subject: |
[nongnu] elpa/geiser-guile 8bf1a8b 268/284: Fix indentation |
Date: |
Sun, 1 Aug 2021 18:29:58 -0400 (EDT) |
branch: elpa/geiser-guile
commit 8bf1a8b9233262adc8cf0dc47a677651e9b6cb92
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>
Fix indentation
---
elisp/geiser-guile.el | 26 +++++++++++++-------------
1 file changed, 13 insertions(+), 13 deletions(-)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 9fec9a8..1710052 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -35,9 +35,9 @@
:group 'geiser)
(geiser-custom--defcustom geiser-guile-binary
- (cond ((eq system-type 'windows-nt) "guile.exe")
- ((eq system-type 'darwin) "guile")
- (t "guile"))
+ (cond ((eq system-type 'windows-nt) "guile.exe")
+ ((eq system-type 'darwin) "guile")
+ (t "guile"))
"Name to use to call the Guile executable when starting a REPL."
:type '(choice string (repeat string))
:group 'geiser-guile)
@@ -121,7 +121,7 @@ effect on new REPLs. For existing ones, use the command
:group 'geiser-guile)
(geiser-custom--defcustom geiser-guile-manual-lookup-nodes
- '("Guile" "guile-2.0")
+ '("Guile" "guile-2.0")
"List of info nodes that, when present, are used for manual lookups"
:type '(repeat string)
:group 'geiser-guile)
@@ -140,11 +140,11 @@ This function uses `geiser-guile-init-file' if it exists."
(let ((init-file (and (stringp geiser-guile-init-file)
(expand-file-name geiser-guile-init-file)))
(q-flags (and (not geiser-guile-load-init-file-p) '("-q"))))
- `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
- ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
- ,@(apply 'append (mapcar (lambda (p) (list "-L" p))
- geiser-guile-load-path))
- ,@(and init-file (file-readable-p init-file) (list "-l" init-file)))))
+ `(,@(and (listp geiser-guile-binary) (cdr geiser-guile-binary))
+ ,@q-flags "-L" ,(expand-file-name "guile/" geiser-scheme-dir)
+ ,@(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 "[^@()]+@([^)]*?)> ")
@@ -280,8 +280,8 @@ This function uses `geiser-guile-init-file' if it exists."
(geiser-syntax--simple-keywords geiser-guile-extra-keywords)
(geiser-syntax--simple-keywords geiser-guile--builtin-keywords)
`((,(rx "(" (group "define-once") eow (* space) (? (group (+ word))))
- (1 font-lock-keyword-face)
- (2 font-lock-variable-name-face nil t))
+ (1 font-lock-keyword-face)
+ (2 font-lock-variable-name-face nil t))
("(\\(define-module\\) +(\\([^)]+\\))"
(1 font-lock-keyword-face)
(2 font-lock-type-face nil t)))))
@@ -386,7 +386,7 @@ it spawn a server thread."
;;; Manual lookup
(defun geiser-guile--info-spec (&optional nodes)
- (let* ((nrx "^[ ]+-+ [^:]+:[ ]*")
+ (let* ((nrx "^[ ]+-+ [^:]+:[ ]*")
(drx "\\b")
(res (when (Info-find-file "r5rs" t)
`(("(r5rs)Index" nil ,nrx ,drx)))))
@@ -400,7 +400,7 @@ it spawn a server thread."
(info-lookup-add-help :topic 'symbol :mode 'geiser-guile-mode
:ignore-case nil
- :regexp "[^()`',\" \n]+"
+ :regexp "[^()`',\" \n]+"
:doc-spec (geiser-guile--info-spec))
(defun guile--manual-look-up (id mod)
- [nongnu] elpa/geiser-guile 9889d29 196/284: Merge branch 'guile-meta' into meta-reconnection, (continued)
- [nongnu] elpa/geiser-guile 9889d29 196/284: Merge branch 'guile-meta' into meta-reconnection, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile b5f0316 211/284: Guile: logging initialisation process, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 52e8e12 212/284: Guile: fix for connect-to-guile problems, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 4732e10 214/284: Bug fix: don't intern symbols read by scheme reader, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 1421a71 225/284: Guile: find module when cursor is before define-module (#33497), Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 6c9efbc 233/284: Guile: Fix subr argument name retrieval for Guile >= 2.0.9., Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 3bf45a4 249/284: Clean up indentation rules, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile 9d0d38a 237/284: Guile: augmenting %load-compiled-path too, Philip Kaludercic, 2021/08/01
- [nongnu] elpa/geiser-guile a1078b9 254/284: Fixing guile 2.2 compatibility, Philip Kaludercic, 2021/08/01
- [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 <=
- [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, 2021/08/01
- [nongnu] elpa/geiser-guile c8dcc24 202/284: Make do with a single connection, Philip Kaludercic, 2021/08/01