您最多选择25个主题
主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
31 行
1.1 KiB
31 行
1.1 KiB
(require 'slime)
|
|
(require 'slime-cl-indent)
|
|
(require 'cl-lib)
|
|
|
|
(define-slime-contrib slime-indentation
|
|
"Contrib interfacing `slime-cl-indent' and SLIME."
|
|
(:swank-dependencies swank-indentation)
|
|
(:on-load
|
|
(setq common-lisp-current-package-function 'slime-current-package)))
|
|
|
|
(defun slime-update-system-indentation (symbol indent packages)
|
|
(let ((list (gethash symbol common-lisp-system-indentation))
|
|
(ok nil))
|
|
(if (not list)
|
|
(puthash symbol (list (cons indent packages))
|
|
common-lisp-system-indentation)
|
|
(dolist (spec list)
|
|
(cond ((equal (car spec) indent)
|
|
(dolist (p packages)
|
|
(unless (member p (cdr spec))
|
|
(push p (cdr spec))))
|
|
(setf ok t))
|
|
(t
|
|
(setf (cdr spec)
|
|
(cl-set-difference (cdr spec) packages :test 'equal)))))
|
|
(unless ok
|
|
(puthash symbol (cons (cons indent packages)
|
|
list)
|
|
common-lisp-system-indentation)))))
|
|
|
|
(provide 'slime-indentation)
|