Changeset 27ebe67 in dotfiles

Timestamp:

Aug 2, 2022, 4:44:21 AM (2 years ago)

Author:

Mikhail Kirillov <w96k@…>

Branches:

master

Children:

d80bfc6

Parents:

96b30c6

Message:

Add geiser

File:

• emacs/.emacs.d/.emacs-config.org (modified) (3 diffs)

emacs/.emacs.d/.emacs-config.org

@@ -310 +310 @@
    '(tool-bar ((t (:background "grey80" :foreground "grey10"))))
    '(fill-column-indicator ((t (:foreground "grey95"))))
+   '(hl-line ((t (:background "gray97"))))
    '(fringe ((t (:background "grey90"))))
    '(header-line ((t (:inherit mode-line :background "grey90"))))
@@ -967 +968 @@
 ** Scheme
 #+BEGIN_SRC emacs-lisp :tangle init.el
-  (setq geiser-active-implementations '("guile"))
+  ;; (setq geiser-active-implementations '("guile"))
 #+END_SRC
 
@@ -1475 +1476 @@
 ** Guix
 #+begin_src emacs-lisp :tangle init.el
+  (package-loaded? "geiser-guile")
+  (require 'geiser-guile)
+
   (package-loaded? "guix")
 
+  (setq geiser-guile-binary "guile")
+
   (with-eval-after-load 'geiser-guile
-    (add-to-list 'geiser-guile-load-path "~/projects/guix"))
+    (progn
+      ;; (require 'compile)
+      ;;   (let* ((shell-command "guile -c '(write %load-path)'")
+      ;;             (shell-output (shell-command-to-string shell-command))
+      ;;             (load-paths (car (read-from-string shell-output))))
+      ;;        (dolist (path load-paths)
+      ;;          (add-to-list 'compilation-search-path path)))
+    (add-to-list 'geiser-guile-load-path "~/projects/guix/")))
 
   (load-file "~/projects/guix/etc/copyright.el")
 
   (setq copyright-names-regexp
-      (format "%s <%s>" user-full-name user-mail-address))
+        (format "%s <%s>" user-full-name user-mail-address))
 #+end_src