From 4f4e5933b83df7dbb8ad43c25bfefa0c0f682e80 Mon Sep 17 00:00:00 2001
From: Marcus Kammer <marcus.kammer@mailbox.org>
Date: Sat, 6 Apr 2024 21:56:55 +0200
Subject: [PATCH] Update --lisp

---
 bundle/bundle--lisp.el | 45 ++++++++++++++++++++----------------------
 1 file changed, 21 insertions(+), 24 deletions(-)

diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el
index 8bc05948..51725a32 100644
--- a/bundle/bundle--lisp.el
+++ b/bundle/bundle--lisp.el
@@ -1,10 +1,22 @@
+(defvar mk/hyperspec-dir-locations
+  '("~/cl-sites/HyperSpec-7-0/HyperSpec/"
+    "~/HyperSpec-7-0/HyperSpec/")
+  "List of possible locations where the local HyperSpec could reside.")
+
+(defun mk/hyperspec-dir ()
+  "Finds and returns the URI of the local HyperSpec directory.
+Uses `mk/hyperspec-dir-locations' to find the directory."
+  (let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
+    (if dir
+        (concat "file://" (and (eq system-type 'windows-nt) "/") dir)
+      nil)))
+
 (use-package slime
   :custom
   (slime-autodoc-use-multiline-p 1)
   :bind ("C-c C-q" . slime-close-all-parens-in-sexp)
   :config
   (slime-setup '(slime-autodoc
-                 ;; slime-banner
                  slime-tramp
                  slime-fancy
                  slime-asdf
@@ -17,6 +29,14 @@
   ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf))
   ;; * (save-lisp-and-die "sbcl.core-for-slime")
 
+  (setq common-lisp-hyperspec-root (mk/hyperspec-dir))
+
+  (setq common-lisp-hyperspec-symbol-table
+        (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
+
+  (setq common-lisp-hyperspec-issuex-table
+        (concat common-lisp-hyperspec-root "Data/Map_IssX.txt"))
+
   (let ((image-path (expand-file-name "~/sbcl.core-for-slime")))
     (if (file-exists-p image-path)
         (setq slime-lisp-implementations
@@ -24,29 +44,6 @@
       (setq slime-lisp-implementations
             `((sbcl ("sbcl" "--noinform") :coding-system utf-8-unix)))))
 
-  (defvar mk/hyperspec-dir-locations
-    '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
-      "~/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/"
-      "~/lisp-docs/HyperSpec-7-0/HyperSpec/"
-      "~/Documents/HyperSpec-7-0/HyperSpec/"
-      "~/HyperSpec-7-0/HyperSpec/"
-      "~/cl-sites/HyperSpec/")
-    "List of possible locations where the local HyperSpec could reside.")
-
-  (defun mk/hyperspec-dir ()
-    "Finds and returns the URI of the local HyperSpec directory.
-Uses `mk/hyperspec-dir-locations' to find the directory."
-    (let ((dir (seq-find 'file-directory-p mk/hyperspec-dir-locations)))
-      (if dir (concat "file://" (and (eq system-type 'windows-nt) "/") (expand-file-name dir)) nil)))
-
-  (setq common-lisp-hyperspec-root (mk/hyperspec-dir))
-
-  (progn
-    (setq common-lisp-hyperspec-symbol-table
-          (concat common-lisp-hyperspec-root "Data/Map_Sym.txt"))
-    (setq common-lisp-hyperspec-issuex-table
-          (concat common-lisp-hyperspec-root "Data/Map_IssX.txt")))
-
   (defvar mk/slime-remote-instances
     '((:machine-instance "u1-metalisp"
 			             :remote-host "u1.metalisp.dev"