Commit 4086643b authored by unknown's avatar unknown

Enable slime-autodoc-use-multiline-p; git must ignore configure.el; fix...

Enable slime-autodoc-use-multiline-p; git must ignore configure.el; fix *gendl-slime-release* (wrong at last release, alas); fix line-endings in gendl.asd (for some reason, git fixes these for me for .el and .lisp, but not this one); more modern-mode; fix for LW and simple-text-string repl.
parent a389529c
......@@ -11,7 +11,7 @@ bin
*.log
*.toc
configure.el
# Ignore (generated) html files,
# *.html
......
......@@ -108,7 +108,7 @@
(defun gendl-quit () (interactive) (gdl-quit))
;; 4.2. Configure slime
;; 4.2. Locate Common Lisp / Locate SLIME
;;
;; Where is our Common Lisp implementation? Where is slime-helper.el?
;; Loading the latter means we can load slime-autoloads.el (which
......@@ -136,6 +136,7 @@
(slime-setup '(slime-fancy slime-banner))
(add-hook 'slime-connected-hook 'load-gendl t)
(add-hook 'slime-connected-hook 'set-slime-shortcuts)
(add-hook 'slime-connected-hook 'customise-slime)
(add-hook 'slime-repl-mode-hook 'remove-dos-eol)
(add-to-list 'auto-mode-alist '("\\.cl\\'" . lisp-mode))
(add-to-list 'auto-mode-alist '("\\.gdl\\'" . lisp-mode))
......@@ -154,6 +155,9 @@
(global-set-key "\C-x&" '(lambda()(interactive) (switch-to-buffer (slime-repl-buffer))))
(global-set-key "\C-x*" '(lambda()(interactive) (switch-to-buffer "*inferior-lisp*"))))
(defun customise-slime ()
(setq slime-autodoc-use-multiline-p t))
(defun remove-dos-eol ()
"Do not show ^M in files containing mixed UNIX and DOS line endings."
(interactive)
......
......@@ -24,7 +24,7 @@
;; This document is not confidential. See end for copyright
;; information.
(defparameter *gendl-slime-release* "0.1.0")
(defparameter *gendl-slime-release* "0.1.1")
;; 2. TESTS
......
......@@ -22,7 +22,7 @@
(configure-gendl config-file)))
(warn "ASDF cannot locate the GENDL which it just loaded. Further configuration not possible."))))
(defparameter *setup-gendl-template* "
(defparameter *setup-gendl-template* "~
;; CONFIGURE.EL
;;
;; The purpose of this document is to configure (a) the lisp
......
......@@ -56,7 +56,7 @@
;; 3. Load gendl plus dependencies.
(funcall (find-symbol "QUICKLOAD" "QL") :gendl)
(funcall (find-symbol (string 'quickload) :ql) :gendl)
;; 4. Load the slime integration. Ideally this should be done
;; (conditionally) by the quickload above.
......@@ -64,9 +64,16 @@
#+:swank
(load (compile-file (merge-pathnames "emacs/gendl.lisp" gendl)))
;; 4a. This is a workaround for https://bugs.launchpad.net/slime/+bug/1175550
;; "#+lispworks Gray slime-output-stream doesn't handle non base-chars"
#+:lispworks
(setf (slot-value *standard-output* 'swank-backend::buffer)
(coerce (slot-value *standard-output* 'swank-backend::buffer)
'lw:simple-text-string))
;; 5. Start gendl.
(let ((starter (find-symbol "START-GENDL!" "GENDL")))
(let ((starter (find-symbol (string 'start-gendl!) :gendl)))
(funcall starter)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment