common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

prepare generalized helper.el

Browse source
This commit is contained in:
SANO Masatoshi 2017-12-01 17:52:43 +09:00
parent 36c3d5570e
commit be40e00b23
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/helper.el
View file

@ -16,21 +16,25 @@
(re-search-forward (concat "^" var "\t[^\t]+\t\\(.*\\)$"))
(match-string 1)))
(defun roswell-slime-directory ()
(defun roswell-directory (type)
(concat
(roswell-configdir)
"lisp/slime/"
(roswell-opt "slime.version")
"lisp/"
type
"/"
(roswell-opt (concat type ".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))
(let ((type (or (ignore-errors (roswell-opt "emacs.type")) "slime")))
(when (equal type "slime")
(let* ((slime-directory (roswell-directory type)))
(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")