Fix org mu4e stuff

This commit is contained in:
2026-02-21 22:26:38 -08:00
parent b038fc3e10
commit e012ed7fea

43
init.el
View File

@ -2338,28 +2338,29 @@ Note that this erases the buffer before doing anything."
retval))) retval)))
(advice-add 'jupyter-kernel-language-mode-properties (advice-add 'jupyter-kernel-language-mode-properties
:filter-return #'my/-jupyter-dont-use-ts-modes) :filter-return #'my/-jupyter-dont-use-ts-modes)
(with-eval-after-load 'jupyter-org-client
;; fix some bugs
(defun my/-fix-jupyter-org--set-src-block-cache (oldfun)
(unless jupyter-org--src-block-cache
(setq jupyter-org--src-block-cache
(list 'invalid nil (make-marker)
(let ((end (make-marker)))
;; Move the end marker when text is inserted
(set-marker-insertion-type end t)
end))))
(funcall oldfun))
(advice-add 'jupyter-org--set-src-block-cache :around
#'my/-fix-jupyter-org--set-src-block-cache)
;; prevent warning in `execute-extended-command'
(defun my/-fix-jupyter-org--define-key-filter (oldfun &rest args)
"Prevent calling `jupyter-org--define-key-filter' outside of `org-mode'."
(when (derived-mode-p 'org-mode)
(apply oldfun args)))
(advice-add 'jupyter-org--define-key-filter :around
#'my/-fix-jupyter-org--define-key-filter))
:config :config
;; fix some bugs
(defun my/-fix-jupyter-org--set-src-block-cache (oldfun)
(unless jupyter-org--src-block-cache
(setq jupyter-org--src-block-cache
(list 'invalid nil (make-marker)
(let ((end (make-marker)))
;; Move the end marker when text is inserted
(set-marker-insertion-type end t)
end))))
(funcall oldfun))
(advice-add 'jupyter-org--set-src-block-cache :around
#'my/-fix-jupyter-org--set-src-block-cache)
;; prevent warning in `execute-extended-command'
(defun my/-fix-jupyter-org--define-key-filter (oldfun &rest args)
"Prevent calling `jupyter-org--define-key-filter' outside of `org-mode'."
(when (derived-mode-p 'org-mode)
(apply oldfun args)))
(advice-add 'jupyter-org--define-key-filter :around
#'my/-fix-jupyter-org--define-key-filter)
(face-spec-set 'jupyter-repl-traceback (face-spec-set 'jupyter-repl-traceback
'((default . (:background unspecified))) '((default . (:background unspecified)))
'face-override-spec) 'face-override-spec)