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

Fix ros emacs for windows

Browse source
This commit is contained in:
Hamayama 2018-08-30 21:49:56 +09:00
parent 636c375aba
commit 00afa76c4b
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs.ros
View file

@ -31,6 +31,11 @@ exec ros -m roswell -N roswell -- $0 "$@"
(mute-error-if-not-verbose (mute-error-if-not-verbose
(roswell:exec (roswell:exec
`("emacs" "-l" ,(namestring path) "--eval" `("emacs" "-l" ,(namestring path) "--eval"
,(format nil "(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")" (roswell:opt "*lisp")) ,(format nil
#-win32
"(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")"
#+win32
"\"(setq inferior-lisp-program \\\"ros -Q ~:[~;~:*-L ~A ~]run\\\")\""
(roswell:opt "*lisp"))
,@argv))))) ,@argv)))))
;;; vim: set ft=lisp lisp: ;;; vim: set ft=lisp lisp:

5
lisp/install-slime.lisp
View file

@ -82,7 +82,10 @@
(format *error-output* "~{~A~%~}" (format *error-output* "~{~A~%~}"
`(,(format nil "helper.el installed in ~S" (namestring target)) "" `(,(format nil "helper.el installed in ~S" (namestring target)) ""
"To use, add this to your ~/.emacs:" "" "To use, add this to your ~/.emacs:" ""
,(format nil " (load (expand-file-name ~S))" enough))))) ,(format nil
" (load (expand-file-name ~S))"
#-win32 enough
#+win32 (namestring target))))))
(defun slime-install (argv) (defun slime-install (argv)
(let ((name (or (getf argv :version) (substitute #\. #\- (ql:dist-version "quicklisp"))))) (let ((name (or (getf argv :version) (substitute #\. #\- (ql:dist-version "quicklisp")))))