From f97bb442608f577ade18ffbc428e6cb4437654e3 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Fri, 6 May 2022 22:23:17 +0200
Subject: [PATCH] Update package config

---
 bundle/bundle--package.el | 51 ++++++++++++++++++++++-----------------
 1 file changed, 29 insertions(+), 22 deletions(-)

diff --git a/bundle/bundle--package.el b/bundle/bundle--package.el
index e102cba7..28d63944 100644
--- a/bundle/bundle--package.el
+++ b/bundle/bundle--package.el
@@ -18,6 +18,14 @@
 
 (load "bundle--gui")
 
+(use-package shrface
+  :defer t
+  :config
+  (shrface-basic)
+  (shrface-trial)
+  (shrface-default-keybindings) ; setup default keybindings
+  (setq shrface-href-versatile t))
+
 (use-package nov
   :hook (nov-mode . olivetti-mode)
   :mode ("\\.epub\\'" . nov-mode)
@@ -38,6 +46,24 @@
          ("\\.lsp$" . lisp-mode)
          ("\\.cl$" . lisp-mode)))
 
+(use-package geiser
+  :defer t
+  :config
+  (setq geiser-active-implementations '(racket guile)))
+
+(use-package geiser-racket
+  :defer t
+  :after geiser
+  :config
+  (when (eq system-type 'windows-nt)
+    (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
+
+(use-package geiser-guile
+  :defer t
+  :after geiser
+  :config
+  (setq geiser-guile-binary "guile"))
+
 (use-package cc-mode
   ;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
   :ensure nil
@@ -72,7 +98,8 @@
 (use-package js-mode
   :ensure nil
   :hook (js-mode . eglot-ensure)
-  :mode "\\.webmanifest\\'")
+  :mode (("\\.webmanifest\\'" . js-mode)
+         ("\\.js\\'" . js-mode)))
 
 (use-package go-mode
   :mode ("\\.go\\'" . go-mode)
@@ -107,10 +134,7 @@
 
 (use-package racket-mode
   :init (require 'smartparens-config)
-  :mode ("\\.rkt\\'" . racket-mode)
-  :config
-  (when (eq system-type 'windows-nt)
-    (setq geiser-racket-binary "c:/Program Files/Racket/Racket.exe")))
+  :mode "\\.rkt\\'")
 
 (use-package python
   :mode (("\\.py\\'" . python-mode)
@@ -167,22 +191,5 @@
   :config
   (global-set-key (kbd "C-x M-g") 'magit-dispatch))
 
-(use-package geiser
-  :defer t
-  :config
-  (setq geiser-active-implementations '(racket)))
-
-(use-package geiser-racket
-  :defer t
-  :after geiser)
-
-(use-package shrface
-  :defer t
-  :config
-  (shrface-basic)
-  (shrface-trial)
-  (shrface-default-keybindings) ; setup default keybindings
-  (setq shrface-href-versatile t))
-
 (load "bundle--irc")
 (load "bundle--news")