Add sage math stuff

This commit is contained in:
Alexander Rosenberg 2024-03-04 21:16:21 -08:00
parent 0869fea97f
commit 18d911f8c1
Signed by: Zander671
GPG Key ID: 5FD0394ADBD72730

26
init.el
View File

@ -113,7 +113,8 @@
;; Some settings for programming ;; Some settings for programming
(setq-default indent-tabs-mode nil (setq-default indent-tabs-mode nil
tab-width 4 tab-width 4
fill-column 80) fill-column 80
comment-multi-line t)
;; Tree sitter download locations ;; Tree sitter download locations
(setq treesit-language-source-alist (setq treesit-language-source-alist
@ -851,6 +852,18 @@ Take directly from doom-modeline."
(doom-modeline-spc) (doom-modeline-spc)
"IAlg")))))))) "IAlg"))))))))
;; sage (for when calc is not enough)
(use-package sage-shell-mode
:bind ("C-c g" . my/run-sage)
:init
(defun my/run-sage (p)
"Like `sage-shell:run-sage', but does not ask anything without a prefix
argument."
(interactive "P")
(let ((sage-shell:ask-command-options p))
(funcall-interactively #'sage-shell:run-sage
(sage-shell:read-command)))))
;; eat ;; eat
(use-package eat (use-package eat
:bind ("C-c V" . my/project-eat-or-default) :bind ("C-c V" . my/project-eat-or-default)
@ -866,7 +879,11 @@ Take directly from doom-modeline."
my/project-eat-hash-table)) my/project-eat-hash-table))
((buffer-live-p eat-buff))) ((buffer-live-p eat-buff)))
(switch-to-buffer eat-buff) (switch-to-buffer eat-buff)
(let ((eat-buffer-name (concat "*eat for project " default-directory "*"))) (let ((eat-buffer-name (concat "*eat for project " default-directory
"*"))
(eat-term-name (if (file-remote-p default-directory)
"xterm-256color"
eat-term-name)))
(puthash default-directory (puthash default-directory
(eat) (eat)
my/project-eat-hash-table))))) my/project-eat-hash-table)))))
@ -877,7 +894,10 @@ Take directly from doom-modeline."
(if-let ((eat-buff (gethash nil my/project-eat-hash-table)) (if-let ((eat-buff (gethash nil my/project-eat-hash-table))
((buffer-live-p eat-buff))) ((buffer-live-p eat-buff)))
(switch-to-buffer eat-buff) (switch-to-buffer eat-buff)
(puthash nil (eat) my/project-eat-hash-table))))) (puthash nil (let ((eat-term-name (if (file-remote-p default-directory)
"xterm-256color"
eat-term-name)))
(eat)) my/project-eat-hash-table)))))
;; eshell stuff ;; eshell stuff
(use-package eshell (use-package eshell