From 4cd1eaea0243f028a6084e856943116f0fb47c05 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Fri, 15 Dec 2023 11:28:33 +0100 Subject: [PATCH 1/4] Set codign system for sbcl --- bundle/bundle--lisp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el index 3afc7c12..673efbcf 100644 --- a/bundle/bundle--lisp.el +++ b/bundle/bundle--lisp.el @@ -12,12 +12,14 @@ slime-editing-commands slime-sbcl-exts)) + ;; To create a slime specific sbcl image: ;; shell$ sbcl ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf)) ;; * (save-lisp-and-die "sbcl.core-for-slime") (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) (setq slime-lisp-implementations - `((sbcl ("sbcl" "--core" ,image-path))))) + `((sbcl ("sbcl" "--core" ,image-path) + :coding-system utf-8-unix)))) (defvar mk/hyperspec-dir-locations '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" From c12dfaa7c69b2a57f5fe86dd16d53c9be66d40bd Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Mon, 18 Dec 2023 13:48:48 +0100 Subject: [PATCH 2/4] Set face attributes buffer local --- bundle/bundle--lisp.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el index 673efbcf..a6eb49f1 100644 --- a/bundle/bundle--lisp.el +++ b/bundle/bundle--lisp.el @@ -93,8 +93,8 @@ Uses `mk/hyperspec-dir-locations' to find the directory." :hook ((lisp-mode . prettify-symbols-mode) (lisp-mode . (lambda () (setq-local lisp-indent-function 'common-lisp-indent-function) - (set-face-attribute 'font-lock-function-name-face nil :underline t) - (set-face-attribute 'font-lock-keyword-face nil :slant 'italic)))) + (face-remap-add-relative 'font-lock-function-name-face nil :underline t) + (face-remap-add-relative 'font-lock-keyword-face nil :slant 'italic)))) :mode (("\\.lisp$" . lisp-mode) ("\\.lsp$" . lisp-mode) ("\\.cl$" . lisp-mode)) From 57be16cebdc3ce1fcc8ef9dbb704dbefcf878f64 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Mon, 18 Dec 2023 13:49:15 +0100 Subject: [PATCH 3/4] Dont load custom sbcl image --- bundle/bundle--lisp.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el index a6eb49f1..2223814a 100644 --- a/bundle/bundle--lisp.el +++ b/bundle/bundle--lisp.el @@ -16,10 +16,9 @@ ;; shell$ sbcl ;; * (mapc 'require '(sb-bsd-sockets sb-posix sb-introspect sb-cltl2 asdf)) ;; * (save-lisp-and-die "sbcl.core-for-slime") - (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) - (setq slime-lisp-implementations - `((sbcl ("sbcl" "--core" ,image-path) - :coding-system utf-8-unix)))) + ;; (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) + ;; (setq slime-lisp-implementations + ;; `((sbcl ("sbcl" "--core" ,image-path))))) (defvar mk/hyperspec-dir-locations '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" From 06ef2abcc4446abaf9c013cc6c02e3088f1d9130 Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Thu, 21 Dec 2023 20:23:05 +0100 Subject: [PATCH 4/4] Update slime-lisp-implementations --- bundle/bundle--lisp.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/bundle/bundle--lisp.el b/bundle/bundle--lisp.el index 2223814a..0bdd6c31 100644 --- a/bundle/bundle--lisp.el +++ b/bundle/bundle--lisp.el @@ -18,7 +18,7 @@ ;; * (save-lisp-and-die "sbcl.core-for-slime") ;; (let ((image-path (expand-file-name "~/sbcl.core-for-slime"))) ;; (setq slime-lisp-implementations - ;; `((sbcl ("sbcl" "--core" ,image-path))))) + ;; `((sbcl ("sbcl" "--noinform" "--core" ,image-path) :coding-system utf-8-unix)))) (defvar mk/hyperspec-dir-locations '("d:/visua/projects/personal/lisp-docs/HyperSpec-7-0/HyperSpec/" @@ -80,7 +80,6 @@ Uses `mk/hyperspec-dir-locations' to find the directory." rear-nonsticky (slime-repl-prompt read-only font-lock-face intangible)))))) - (use-package elisp-mode :ensure nil :hook ((emacs-lisp-mode . prettify-symbols-mode)