guile

init.el

@@ -670,7 +670,7 @@ much faster. The hope is to also make this a faster version of imenu."
           "~/docs/notes/nvtfc_social_media.org"
           "~/dev/lumina/TODO.org"
           "~/dev/tfcconnection/TODO.org"
-          "~/docs/lessons/")
+          "~/docs/notes/lessons/")
         org-id-method 'ts
         org-agenda-tags-column -75
         org-agenda-dim-blocked-tasks nil
@@ -2404,6 +2404,11 @@ targets."
            "gh" 'paredit-backward-slurp-sexp
            "C-l" 'paredit-forward
            "C-h" 'paredit-backward)
+  ('normal geiser-mode-map
+           "gl" 'paredit-forward-slurp-sexp
+           "gh" 'paredit-backward-slurp-sexp
+           "C-l" 'paredit-forward
+           "C-h" 'paredit-backward)
   ('normal cider-repl-mode-map
            "gl" 'paredit-forward-slurp-sexp
            "gh" 'paredit-backward-slurp-sexp
@@ -2417,6 +2422,50 @@ targets."
 
 (add-to-list 'auto-mode-alist '("\\.yuck?\\'" . lisp-data-mode))
 
+(use-package sly
+  :mode
+  ("\\.lisp\\'" . sly-mode)
+  ("\\.lisp\\'" . lisp-mode)
+  :config
+  (defun chris/start-nyxt-repl ()
+    "Start the repl and sly connection for nyxt"
+    (interactive)
+    (sly-connect "localhost" 4006))
+  (setq sly-connection-poll-interval 0.1)
+
+  (defun sly-critique-file ()
+    "Lint this file with lisp-critic"
+    (interactive)
+    (sly-eval-async '(ql:quickload :lisp-critic))
+    (sly-eval-async
+        `(lisp-critic:critique-file ,(buffer-file-name))))
+
+  :general
+  (chris/leader-keys
+    :states 'normal
+    :keymaps 'override
+    "os" 'sly
+    "gc" 'compile)
+
+  (general-def 'normal lisp-mode-shared-map
+    "gcr" 'sly
+    "ge" 'sly-eval-defun
+    "gE" 'sly-eval-last-expression
+    "gp" 'sly-pprint-eval-last-expression))
+
+;; (general-def 'normal scheme-mode-map
+  ;; "gl" 'paredit-)
+
+(use-package geiser
+  :config
+  :general
+  (general-def 'normal geiser-mode-map
+    "gcr" 'geiser
+    "ge" 'geiser-eval-definition-and-go
+    "gE" 'geiser-eval-last-sexp
+    "gp" 'geiser-eval-last-sexp-and-print
+    "gl" 'paredit-forward-slurp-sexp))
+
 (general-def 'normal emacs-lisp-mode-map
   "ge" 'eval-defun
   "gE" 'eval-last-sexp
@@ -2749,7 +2798,7 @@ targets."
         mu4e-change-filenames-when-moving t
         mu4e-get-mail-command "mbsync -a"
         mu4e-update-interval (* 15 60)
-        mu4e-attachment-dir "/home/chris/nc/home/Documents/attachments"
+        mu4e-attachment-dir "/home/chris/docs/attachments"
         mu4e-completing-read-function #'completing-read
         mu4e-notification-support t
         ;; mu4e-mu-binary "/home/chris/.guix-home/profile/bin/mu"
@@ -3153,37 +3202,6 @@ targets."
   (display-line-numbers-mode -1))
 (add-hook 'vterm-mode-hook 'chris/vterm-setup)
 
-(use-package sly
-  :mode
-  ("\\.lisp\\'" . sly-mode)
-  ("\\.lisp\\'" . lisp-mode)
-  :config
-  (defun chris/start-nyxt-repl ()
-    "Start the repl and sly connection for nyxt"
-    (interactive)
-    (sly-connect "localhost" 4006))
-  (setq sly-connection-poll-interval 0.1)
-
-  (defun sly-critique-file ()
-    "Lint this file with lisp-critic"
-    (interactive)
-    (sly-eval-async '(ql:quickload :lisp-critic))
-    (sly-eval-async
-        `(lisp-critic:critique-file ,(buffer-file-name))))
-
-  :general
-  (chris/leader-keys
-    :states 'normal
-    :keymaps 'override
-    "os" 'sly
-    "gc" 'compile)
-
-  (general-def 'normal lisp-mode-shared-map
-    "gcr" 'sly
-    "ge" 'sly-eval-defun
-    "gE" 'sly-eval-last-expression
-    "gp" 'sly-pprint-eval-last-expression))
-
 (use-package pdf-tools
   :mode ("\\.pdf\\'" . pdf-view-mode)
   :init