diff options
| author | Case Duckworth | 2021-12-26 13:05:20 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-26 13:05:20 -0600 |
| commit | e5b77a4eaa8509778569d110d9abbaf0ba2deb01 (patch) | |
| tree | ca1317dced76b79ed2e19b143e21a18cb9cbff36 | |
| parent | Set up ibuffer (diff) | |
| download | emacs-e5b77a4eaa8509778569d110d9abbaf0ba2deb01.tar.gz emacs-e5b77a4eaa8509778569d110d9abbaf0ba2deb01.zip | |
SICP!
| -rw-r--r-- | init.el | 25 |
1 files changed, 25 insertions, 0 deletions
| diff --git a/init.el b/init.el index 7302f6b..8940389 100644 --- a/init.el +++ b/init.el | |||
| @@ -624,6 +624,29 @@ See also `crux-reopen-as-root-mode'." | |||
| 624 | (:option gcmh-idle-delay 'auto) | 624 | (:option gcmh-idle-delay 'auto) |
| 625 | (gcmh-mode +1)) | 625 | (gcmh-mode +1)) |
| 626 | 626 | ||
| 627 | (setup (:straight-when geiser | ||
| 628 | (progn | ||
| 629 | (defvar +schemes | ||
| 630 | (let (schemes) | ||
| 631 | (dolist (scheme '(("scheme" . geiser-chez) ; chez | ||
| 632 | ("petite" . geiser-chez) ; petite | ||
| 633 | ("csi" . geiser-chicken) ; chicken | ||
| 634 | ("gsi" . geiser-gambit) | ||
| 635 | ("gosh" . geiser-gauche) | ||
| 636 | ("guile" . geiser-guile) | ||
| 637 | ("kawa" . geiser-kawa) | ||
| 638 | ("mit-scheme" . geiser-mit) | ||
| 639 | ("racket" . geiser-racket) | ||
| 640 | ("stklos" . geiser-stklos))) | ||
| 641 | (when-let (binary (executable-find (car scheme))) | ||
| 642 | (push binary schemes) | ||
| 643 | ;; and install the proper helper package | ||
| 644 | (straight-use-package (cdr scheme)))) | ||
| 645 | (nreverse schemes))) | ||
| 646 | +schemes)) | ||
| 647 | (:file-match (rx ".rkt" eos) | ||
| 648 | (rx ".scm" eos))) | ||
| 649 | |||
| 627 | (setup (:straight helpful) | 650 | (setup (:straight helpful) |
| 628 | (run-with-idle-timer 0.5 nil | 651 | (run-with-idle-timer 0.5 nil |
| 629 | 'require 'helpful) | 652 | 'require 'helpful) |
| @@ -842,6 +865,8 @@ See also `crux-reopen-as-root-mode'." | |||
| 842 | "M-!" 'shell-command+) | 865 | "M-!" 'shell-command+) |
| 843 | (:+key "M-!" 'shell-command+)) | 866 | (:+key "M-!" 'shell-command+)) |
| 844 | 867 | ||
| 868 | (setup (:straight sicp)) | ||
| 869 | |||
| 845 | (setup (:straight (simple-modeline | 870 | (setup (:straight (simple-modeline |
| 846 | :fork (:repo "duckwork/simple-modeline"))) | 871 | :fork (:repo "duckwork/simple-modeline"))) |
| 847 | (:also-load +modeline) | 872 | (:also-load +modeline) |