Merge branch 'main' of git.sr.ht:~marcuskammer/emacs.d
This commit is contained in:
commit
b0813345ec
1 changed files with 19 additions and 1 deletions
|
@ -413,7 +413,25 @@
|
|||
:machine-instance "u1"
|
||||
:remote-host "u1.metaebene.dev"
|
||||
:username "marcus")))
|
||||
(push u1 slime-filename-translations)))
|
||||
(push u1 slime-filename-translations))
|
||||
;; syntax highlighting
|
||||
(defvar slime-repl-font-lock-keywords lisp-font-lock-keywords-2)
|
||||
(defun slime-repl-font-lock-setup ()
|
||||
(setq font-lock-defaults
|
||||
'(slime-repl-font-lock-keywords
|
||||
;; From lisp-mode.el
|
||||
nil nil (("+-*/.<>=!?$%_&~^:@" . "w")) nil
|
||||
(font-lock-syntactic-face-function
|
||||
. lisp-font-lock-syntactic-face-function))))
|
||||
(add-hook 'slime-repl-mode-hook 'slime-repl-font-lock-setup)
|
||||
(defadvice slime-repl-insert-prompt (after font-lock-face activate)
|
||||
(let ((inhibit-read-only t))
|
||||
(add-text-properties
|
||||
slime-repl-prompt-start-mark (point)
|
||||
'(font-lock-face
|
||||
slime-repl-prompt-face
|
||||
rear-nonsticky
|
||||
(slime-repl-prompt read-only font-lock-face intangible))))))
|
||||
|
||||
(use-package simple-httpd
|
||||
:defer t)
|
||||
|
|
Loading…
Add table
Reference in a new issue