diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-09 13:39:03 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-04-09 13:40:14 -0700 |
commit | b3a67b966e969ccf96bfc45d0d24e7967af06d93 (patch) | |
tree | 8fb301e67f4de080aa9a6d4b27668ccd8f90b7db | |
parent | 903cde61ca89119b25f183525cc8e30bb39ba016 (diff) | |
download | dotfiles-b3a67b966e969ccf96bfc45d0d24e7967af06d93.tar.gz |
add spw/go-to-consfig
-rw-r--r-- | .emacs.d/init-spw.el | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 5f29610d..fe83c7b1 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -2017,6 +2017,25 @@ Called by that script using emacsclient(1)." (find-file file) (untabify (point-min) (point-max))))) +(defun spw/go-to-consfig () + (interactive) + (let ((repo (expand-file-name "~/src/cl/consfig"))) + (unless (file-directory-p repo) + (user-error "Consfig git repo not found")) + (dired repo)) + (cl-flet ((load () + (slime-load-system "com.silentflame.consfig") + (spw/add-once-hook + 'slime-compilation-finished-hook + (lambda (&rest ignore) + (slime-repl-set-package "COM.SILENTFLAME.CONSFIG"))))) + (if (and (fboundp 'slime-output-buffer) (slime-output-buffer)) + (progn (slime-switch-to-output-buffer) + (load)) + (slime) + (spw/add-once-hook 'slime-connected-hook #'load)))) +(global-set-key "\C-cgc" #'spw/go-to-consfig) + ;;;; Composing mail |