ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Emacs updates for guile, etc

Browse source
This commit is contained in:
Ian Keane 2026-08-02 12:33:24 -04:00
parent 3c14713ae0
commit 2f46871e56
1 changed files with 103 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

73
emacs-config.org
View file

@ -63,6 +63,11 @@ To get started, run =C-c C-v t=
:init
(savehist-mode))
#+end_src
** Paths
#+begin_src emacs-lisp
;; (add-to-list 'exec-path "/opt/homebrew/bin")
;; (setenv "PATH" (concat "/opt/homebrew/bin:" (getenv "PATH")))
#+end_src
** Straight
I don't use straight for much currently, but needed it in order to install beancount-mode and intend to migrate all my packages to it eventually.
#+begin_src emacs-lisp
@ -321,6 +326,7 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
:init
:config
(setq evil-respect-visual-line-mode t)
(setq evil-collection-repl-submit-state 'insert)
(evil-collection-init))
@ -436,10 +442,10 @@ Setting this in the :init of evil doesn't work for some reason. It has to be ear
;; opening 'other window' on a subdir enters 2 window dired mode for copy/paste
(setq dired-dwim-target t)
;; if dired's already loaded, then the keymap will be bound
(if (boundp 'dired-mode-map)
(my-dired-init)
(add-hook 'dired-load-hook 'my-dired-init))
;; ;; if dired's already loaded, then the keymap will be bound
;; (if (boundp 'dired-mode-map)
;; (my-dired-init)
;; (add-hook 'dired-load-hook 'my-dired-init))
(use-package dired-open
:config
@ -517,7 +523,7 @@ I know these could be bound on a per-package basis, but since this is my primary
"-" '(dired :which-key "Find Directory")
"d" '(docker :which-key "Docker")
"i" '(ian/conditional-imenu :which-key "Imenu")
"w" '(acewindow :which-key "Window")
"w" '(ace-window :which-key "Window")
"W" '(ace-window-manual-dispatch :which-key "Window (dispatch)")
;; Agenda
@ -1217,16 +1223,6 @@ All lisp-family languages
(symex-mode 1)
(global-set-key (kbd "s-;") #'symex-mode-interface))
(use-package symex-ide
:after (symex)
:straight
(symex-ide
:host github
:repo "drym-org/symex.el"
:files ("symex-ide/symex*.el"))
:config
(symex-ide-mode 1))
(use-package symex-evil
:after (symex evil)
:straight
@ -1237,12 +1233,28 @@ All lisp-family languages
:config
(symex-evil-mode 1))
(use-package symex-ide
:after (symex)
:straight
(symex-ide
:host github
:repo "drym-org/symex.el"
:files ("symex-ide/symex*.el"))
:config
(define-key symex-editing-mode-map
(kbd "?")
#'symex-describe)
(define-key symex-editing-mode-map
(kbd "g d")
#'geiser-edit-symbol-at-point)
(symex-ide-mode 1))
(use-package lithium
:straight t
:config
(lithium-mode 1))
(use-package rigpa
(use-package rigpa
:straight
(rigpa
:type git
@ -1262,6 +1274,35 @@ All lisp-family languages
(symex-rigpa-mode 1))
#+end_src
*** Scheme
**** Guile
#+begin_src emacs-lisp
(use-package geiser)
(use-package geiser-guile)
;; Guile debug mode uses ',' to bind a bunch of useful command
;; None of my evil packages seem to account for this
(with-eval-after-load 'geiser-debug
(evil-define-key 'motion geiser-debug-mode-map
(kbd ",") #'geiser-guile-debug-menu))
;; Why why why doesn't homebrew just handle this?
(when IS-MACOS
(let ((brew-guile-share "/opt/homebrew/share/guile/site/3.0")
(brew-guile-cache "/opt/homebrew/lib/guile/3.0/site-ccache")
(brew-guile-ext "/opt/homebrew/lib/guile/3.0/extensions"))
(setenv "GUILE_LOAD_PATH" brew-guile-share)
(setenv "GUILE_LOAD_COMPILED_PATH" brew-guile-cache)
(setenv "GUILE_SYSTEM_EXTENSIONS_PATH" brew-guile-ext)
(setenv "GUILE_TLS_CERTIFICATE_DIRECTORY"
"/opt/homebrew/etc/gnutls/")
(setenv "GUILE_LOAD_PATH"
(string-join
'("/opt/homebrew/share/guile/site/3.0"
"/opt/homebrew/share/guile-lib")
":"))
))
#+end_src
** Go
#+begin_src emacs-lisp
(use-package go-mode)