From fcb5fd84953d7ed9611e05ae1281e847061ba472 Mon Sep 17 00:00:00 2001 From: Kjetil Orbekk Date: Sat, 17 Feb 2024 11:15:12 -0500 Subject: update --- common/.sbclrc | 7 +++++++ emacs/.config/emacs/emacs-custom.el | 4 +++- emacs/.config/emacs/lisp/kj-development.el | 4 ++++ emacs/.config/emacs/lisp/kj-timer.el | 2 ++ 4 files changed, 16 insertions(+), 1 deletion(-) create mode 100644 common/.sbclrc diff --git a/common/.sbclrc b/common/.sbclrc new file mode 100644 index 0000000..465f146 --- /dev/null +++ b/common/.sbclrc @@ -0,0 +1,7 @@ +;;; The following lines added by ql:add-to-init-file: +#-quicklisp +(let ((quicklisp-init (merge-pathnames ".cache/quicklisp/setup.lisp" + (user-homedir-pathname)))) + (when (probe-file quicklisp-init) + (load quicklisp-init))) + diff --git a/emacs/.config/emacs/emacs-custom.el b/emacs/.config/emacs/emacs-custom.el index 819655f..5d1cf73 100644 --- a/emacs/.config/emacs/emacs-custom.el +++ b/emacs/.config/emacs/emacs-custom.el @@ -9,7 +9,9 @@ "8d412c0ed46b865312d6df5c1dfd1821d349dd3cba00049cf88c4ad34403597e" "88267200889975d801f6c667128301af0bc183f3450c4b86138bfb23e8a78fb1" default)) - '(safe-local-variable-values '((checkdoc-package-keywords-flag)))) + '(safe-local-variable-values + '((eval sly-connect "localhost" 9090) (sly-port . 9090) + (checkdoc-package-keywords-flag)))) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. diff --git a/emacs/.config/emacs/lisp/kj-development.el b/emacs/.config/emacs/lisp/kj-development.el index aeb8648..aefba85 100644 --- a/emacs/.config/emacs/lisp/kj-development.el +++ b/emacs/.config/emacs/lisp/kj-development.el @@ -116,4 +116,8 @@ (use-package ess) +(use-package sly + :custom + (inferior-lisp-program "sbcl")) + (provide 'kj-development) diff --git a/emacs/.config/emacs/lisp/kj-timer.el b/emacs/.config/emacs/lisp/kj-timer.el index 204116e..b3c64fe 100644 --- a/emacs/.config/emacs/lisp/kj-timer.el +++ b/emacs/.config/emacs/lisp/kj-timer.el @@ -45,3 +45,5 @@ (cancel-timer kj/current-timer)) (kj/run-single-timer kj/timer-seconds (nth 0 kj/roster) (nth 1 kj/roster)) (setq kj/roster (cdr kj/roster))) + +(provide 'kj-timer) -- cgit v1.2.3