Fix fricas capfs

This commit is contained in:
Alexander Rosenberg 2024-03-19 14:55:30 -07:00
parent 6ad6ebbdcb
commit 1d68bc3e24
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

13
init.el
View File

@ -943,6 +943,18 @@ argument."
(add-to-list 'load-path "/usr/lib/fricas/emacs/") (add-to-list 'load-path "/usr/lib/fricas/emacs/")
(use-package fricas (use-package fricas
:ensure nil :ensure nil
:custom
(fricas-run-command "fricas -nosman")
:init
;; Fix `fricas-mode' messing up `completion-at-point-functions'
(advice-add #'fricas-mode :around
#'(lambda (oldfun &rest r)
(let ((temp-capfs))
(let ((completion-at-point-functions '(t)))
(apply oldfun r)
(setq temp-capfs completion-at-point-functions))
(setq-local completion-at-point-functions temp-capfs)))
'((name . "my/-fricas-fix-capfs")))
:config :config
(face-spec-set 'fricas-type-time '((t (:foreground nil (face-spec-set 'fricas-type-time '((t (:foreground nil
:background nil :background nil
@ -955,6 +967,7 @@ argument."
:inherit nerd-icons-lblue)))) :inherit nerd-icons-lblue))))
(face-spec-set 'fricas-algebra '((t (:foreground nil (face-spec-set 'fricas-algebra '((t (:foreground nil
:background nil :background nil
:weight bold
:inherit fricas-prompt)))) :inherit fricas-prompt))))
(face-spec-set 'fricas-TeX '((t (:foreground nil (face-spec-set 'fricas-TeX '((t (:foreground nil
:background nil :background nil