0xa/.emacs.d
1
0
Fork 0
Code Issues Pull requests Releases Activity

save changes before bancrupcy

Browse source
This commit is contained in:
Grisha Shipunov 2025-06-07 16:08:33 +02:00
parent 98e5f06f7d
commit 23a4d80ace
3 changed files with 56 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

18
init.el
View file

@ -15,12 +15,13 @@
(require 'oxa/org) (require 'oxa/org)
(require 'oxa/latex) (require 'oxa/latex)
(require 'oxa/mail)
;;; theme ;;; theme
(setq modus-themes-italic-constructs t (setq modus-themes-italic-constructs t
modus-themes-bold-constructs t) modus-themes-bold-constructs t)
(load-theme 'modus-operandi) (load-theme 'modus-operandi)
(global-display-line-numbers-mode)
(setq-default indicate-empty-lines t) (setq-default indicate-empty-lines t)
(setq-default show-trailing-whitespace t) (setq-default show-trailing-whitespace t)
(add-hook 'prog-mode-hook #'(lambda () (whitespace-mode t))) (add-hook 'prog-mode-hook #'(lambda () (whitespace-mode t)))
@ -142,7 +143,7 @@
(setq c-default-style '((java-mode . "java") (setq c-default-style '((java-mode . "java")
(awk-mode . "awk") (awk-mode . "awk")
(c-mode . "llvm.org") (c-mode . "linux")
(c++-mode . "llvm.org") (c++-mode . "llvm.org")
(other . "stroustrup"))) (other . "stroustrup")))
@ -158,8 +159,21 @@
;; nya-nya-nya-nya-nya-nya ;; nya-nya-nya-nya-nya-nya
(straight-use-package 'nyan-mode) (straight-use-package 'nyan-mode)
(require 'nyan-mode) (require 'nyan-mode)
(setq nyan-animate-nyancat t
nyan-wavy-trail t)
(nyan-mode 1) (nyan-mode 1)
;; ess
(straight-use-package 'ess)
;; faster window switch
(global-set-key (kbd "C-;") #'other-window)
(straight-use-package 'dired-sidebar)
(setq dired-sidebar-theme 'ascii)
(define-key 'oxamap (kbd "t") 'dired-sidebar-toggle-sidebar)
;; I use custom vars for local config, so let's put them to separate ;; I use custom vars for local config, so let's put them to separate
;; file, where it's easier for git to ignore it ;; file, where it's easier for git to ignore it
(setq custom-file "~/.emacs.d/custom.el") (setq custom-file "~/.emacs.d/custom.el")

0
lisp/oxa/lsp.el Normal file
View file

40
lisp/oxa/mail.el Normal file
View file

@ -0,0 +1,40 @@
(require 'mu4e)
(setq mu4e-change-filenames-when-moving t)
(setq mu4e-maildir "~/mail")
(setq mu4e-update-interval (* 11 60))
(setq mu4e-contexts
(list
(make-mu4e-context
:name "oxapentane.com"
:match-func (lambda (msg)
(when msg
(string-prefix-p "/grigory@shipunov.xyz" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "grigory@shipunov.xyz")
(user-full-name . "Grisha Shipunov")
(mu4e-drafts-folder . "/grigory@shipunov.xyz/Drafts")
(mu4e-sent-folder . "/grigory@shipunov.xyz/Sent")
(mu4e-trash-folder . "/grigory@shipunov.xyz/Trash")
(mu4e-refile-folder . "/grigory@shipunov.xyz/Archive")
(mu4e-maildir-shortcuts . (("/grigory@shipunov.xyz/INBOX" . "?i")
("/grigory@shipunov.xyz/Drafts" . "?d")
("/grigory@shipunov.xyz/Sent" . "?s")))))
(make-mu4e-context
:name "oxapentane.com"
:match-func (lambda (msg)
(when msg
(string-prefix-p "/mail@oxapentane.com" (mu4e-message-field msg :maildir))))
:vars '((user-mail-address . "mail@oxapentane.com")
(user-full-name . "Grisha Shipunov")
(mu4e-drafts-folder . "/mail@oxapentane.com/Drafts")
(mu4e-sent-folder . "/mail@oxapentane.com/Sent")
(mu4e-trash-folder . "/mail@oxapentane.com/Trash")
(mu4e-refile-folder . "/mail@oxapentane.com/Archive")
(mu4e-maildir-shortcuts . (("/mail@oxapentane.com/INBOX" . "?i")
("/mail@oxapentane.com/Drafts" . "?d")
("/mail@oxapentane.com/Sent" . "?s")
("/mail@oxapentane.com/sinkhole" . "?S")))))))
(provide 'oxa/mail)