From b3a67b966e969ccf96bfc45d0d24e7967af06d93 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Fri, 9 Apr 2021 13:39:03 -0700 Subject: add spw/go-to-consfig --- .emacs.d/init-spw.el | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) 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 -- cgit v1.2.3