marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Lisp mode specific face settings

Browse source
This commit is contained in:
Marcus Kammer 2023-12-07 16:57:41 +01:00
parent 2880a18434
commit 43157f0e0f
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
bundle/bundle--lisp.el
View file

@ -82,7 +82,10 @@ Uses `mk/hyperspec-dir-locations' to find the directory."
(use-package lisp-mode (use-package lisp-mode
:ensure nil :ensure nil
:hook ((lisp-mode . prettify-symbols-mode) :hook ((lisp-mode . prettify-symbols-mode)
(lisp-mode . (lambda () (setq-local lisp-indent-function 'common-lisp-indent-function)))) (lisp-mode . (lambda ()
(setq-local lisp-indent-function 'common-lisp-indent-function)
(set-face-attribute 'font-lock-function-name-face nil :underline t)
(set-face-attribute 'font-lock-keyword-face nil :slant 'italic))))
:mode (("\\.lisp$" . lisp-mode) :mode (("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode) ("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode)) ("\\.cl$" . lisp-mode))

2
bundle/custom_win32_EVG03435NB.el
View file

@ -73,6 +73,4 @@
;; If you edit it by hand, you could mess it up, so be careful. ;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance. ;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right. ;; If there is more than one, they won't work right.
'(font-lock-function-name-face ((t (:underline t))))
'(font-lock-keyword-face ((t (:slant italic))))
'(variable-pitch ((t (:height 1.0 :family "Noto Sans"))))) '(variable-pitch ((t (:height 1.0 :family "Noto Sans")))))