mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
37 lines
1.2 KiB
EmacsLisp
37 lines
1.2 KiB
EmacsLisp
(defun roswell-configdir ()
|
|
(substring (shell-command-to-string "ros roswell-internal-use version confdir") 0 -1))
|
|
|
|
(defun roswell-load (system)
|
|
(let ((result (substring (shell-command-to-string
|
|
(concat "ros -L sbcl-bin -e \"(format t \\\"~A~%\\\" (uiop:native-namestring (ql:where-is-system \\\""
|
|
system
|
|
"\\\")))\"")) 0 -1)))
|
|
(unless (equal "NIL" result)
|
|
(load (concat result "roswell/elisp/init.el")))))
|
|
|
|
(defun roswell-opt (var)
|
|
(with-temp-buffer
|
|
(insert-file-contents (concat (roswell-configdir) "config"))
|
|
(goto-char (point-min))
|
|
(re-search-forward (concat "^" var "\t[^\t]+\t\\(.*\\)$"))
|
|
(match-string 1)))
|
|
|
|
(defun roswell-slime-directory ()
|
|
(concat
|
|
(roswell-configdir)
|
|
"lisp/slime/"
|
|
(roswell-opt "slime.version")
|
|
"/"))
|
|
|
|
(defvar roswell-slime-contribs '(slime-fancy))
|
|
|
|
(let* ((slime-directory (roswell-slime-directory)))
|
|
(add-to-list 'load-path slime-directory)
|
|
(require 'slime-autoloads)
|
|
(setq slime-backend (expand-file-name "swank-loader.lisp"
|
|
slime-directory))
|
|
(setq slime-path slime-directory)
|
|
(slime-setup roswell-slime-contribs))
|
|
|
|
(setq inferior-lisp-program "ros run")
|