summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el25
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)