diff options
| author | Case Duckworth | 2021-08-30 23:39:46 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-30 23:39:46 -0500 |
| commit | 770d9d11f378cbe9f1ad8cb4ace0694f16cc031a (patch) | |
| tree | e3ecaa0d97406d6e2afaa97cf901b3ea97f607e7 | |
| parent | Make more ... compatible? with 27 ??? (diff) | |
| download | emacs-770d9d11f378cbe9f1ad8cb4ace0694f16cc031a.tar.gz emacs-770d9d11f378cbe9f1ad8cb4ace0694f16cc031a.zip | |
Only install geiser if one or more of the supported schemes are
| -rw-r--r-- | init.el | 21 |
1 files changed, 20 insertions, 1 deletions
| diff --git a/init.el b/init.el index 55049af..68fb5c7 100644 --- a/init.el +++ b/init.el | |||
| @@ -1468,7 +1468,26 @@ successive invocations." | |||
| 1468 | (:option gcmh-idle-delay 'auto) | 1468 | (:option gcmh-idle-delay 'auto) |
| 1469 | (gcmh-mode +1)) | 1469 | (gcmh-mode +1)) |
| 1470 | 1470 | ||
| 1471 | (setup (:straight geiser)) | 1471 | (setup (:straight-if geiser |
| 1472 | (progn | ||
| 1473 | (defvar acdw/schemes-alist | ||
| 1474 | (let (schemes) ; these binaries should be checked... | ||
| 1475 | (dolist (scheme '(("scheme" . geiser-chez) ; chez | ||
| 1476 | ("petite" . geiser-chez) ; petite | ||
| 1477 | ("csi" . geiser-chez) ; chicken | ||
| 1478 | ("gsi" . geiser-gambit) ; gambit | ||
| 1479 | ("gosh" . geiser-gauche) ; gauche | ||
| 1480 | ("guile" . geiser-guile) | ||
| 1481 | ("kawa" . geiser-kawa) | ||
| 1482 | ("mit-scheme" . geiser-mit) | ||
| 1483 | ("racket" . geiser-racket) | ||
| 1484 | ("stklos" . geiser-stklos))) | ||
| 1485 | (when-let (binary (executable-find (car scheme))) | ||
| 1486 | (push binary schemes) | ||
| 1487 | ;; and install the proper helper package | ||
| 1488 | (straight-use-package (cdr scheme)))) | ||
| 1489 | (nreverse schemes))) | ||
| 1490 | acdw/schemes))) | ||
| 1472 | 1491 | ||
| 1473 | (setup (:straight (gemini-mode | 1492 | (setup (:straight (gemini-mode |
| 1474 | :host nil | 1493 | :host nil |