From 5a4d912cf1a7e4d2eaf95feb35b6b98f26e177ae Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Wed, 15 Oct 2025 02:14:22 +0300
Subject: emacs: slime now does ros run & tries to load log4slime

---
 emacs/.config/emacs/arkta/arkta-progmodes.el | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'emacs')

diff --git a/emacs/.config/emacs/arkta/arkta-progmodes.el b/emacs/.config/emacs/arkta/arkta-progmodes.el
index f1da41e..0e88145 100644
--- a/emacs/.config/emacs/arkta/arkta-progmodes.el
+++ b/emacs/.config/emacs/arkta/arkta-progmodes.el
@@ -252,8 +252,23 @@
   :ensure t
   :after lisp-mode
   :commands slime
+  :init
+  (defun find-inferior-lisp ()
+    (let ((ros (executable-find "ros")))
+      (if ros
+          (concat ros " run")
+        (executable-find "sbcl"))))
   :custom
-  (inferior-lisp-program (executable-find "sbcl")))
+  (inferior-lisp-program (find-inferior-lisp))
+  :config
+  (when (cond ((file-exists-p "~/quicklisp/log4slime-setup.el")
+               (load "~/quicklisp/log4slime-setup.el")
+               t)
+              ((file-exists-p "~/.roswell/lisp/quicklisp/log4slime-setup.el")
+               (load "~/.roswell/lisp/quicklisp/log4slime-setup.el")
+               t)
+              (t nil))
+    (global-log4slime-mode 1)))
 
 (use-package smalltalk-mode
   :ensure t
-- 
cgit v1.2.3