.

5 files changed, 438 insertions, 372 deletions

diff --git a/home/config.scm b/home/config.scm
index d88a6d6..131bdbe 100644
--- a/home/config.scm
+++ b/home/config.scm
@@ -120,6 +120,7 @@
 	      emacs-pdf-tools
 	      emacs-alsamixer-el
 	      mu
+	      mailutils
 	      msmtp
 	      emacs
 	      aspell
diff --git a/home/dots/.emacs b/home/dots/.emacs
index 9758dc0..ee5952e 100644
--- a/home/dots/.emacs
+++ b/home/dots/.emacs
@@ -2,8 +2,7 @@
 (add-to-list 'load-path "~/.emacs.d/elisp")
 
 (setq package-list
-      '(almost-mono-themes
-	avy
+      '(avy
 	corfu
 	devdocs
 	diminish
@@ -27,7 +26,6 @@
 	mastodon
 	nix-mode
 	nov
-	org-remark
 	pass
 	pinentry
 	rec-mode
@@ -52,6 +50,8 @@
   (unless (package-installed-p package)
     (package-install package)))
 
+(load-theme 'BOGO t)
+
 (use-package exwm
   :init
   (setq exwm-workspace-number 1
@@ -96,59 +96,122 @@
 		      (lambda (cmd) ;; s-&: Launch application.
 			(interactive (list (read-shell-command "$ ")))
 			(start-process-shell-command cmd nil cmd)))  
-  (shell-command "xrdb ~/.Xresources")
-  (shell-command "dbus-update-activation-environment DISPLAY")
-  ;; Sticky keys
-  ;;(shell-command "xkbset -feedback sticky -twokey latchlock")
-  ;;(shell-command "xkbset exp 64 '=sticky' '=twokey' '=latchlock'")        
   (push ?\C-\\ exwm-input-prefix-keys)
+  (shell-command "xrdb ~/.Xresources")
   :custom
   (ring-bell-function 'ignore)
   (default-directory "/home/mccd/")
   (focus-follows-mouse t)
+  (comment-multi-line t)
+  (sentence-end-double-space nil)
+  (require-final-newline t)
+  (kill-do-not-save-duplicates t)
+  (comment-empty-lines t)
+  (lazy-highlight-initial-delay 0)
   (mouse-autoselect-window t)
   :hook
   (;; Make sure titles match X window
+   (exwm-init . (lambda ()
+		  (interactive)
+		  (load-library "/home/mccd/.emacs.d/auth.el.gpg")))
    (exwm-update-title . (lambda ()
-			  (exwm-workspace-rename-buffer
-			   (concat exwm-class-name ":"
-				   (if (<= (length exwm-title) 50) exwm-title
-				     (concat (substring exwm-title 0 49) "..."))))))
-   (exwm-update-class . (lambda ()
-			  (exwm-workspace-rename-buffer
-			   (concat exwm-class-name ":"
-				   (if (<= (length exwm-title) 50) exwm-title
-				     (concat (substring exwm-title 0 49) "..."))))))))
-
-(use-package exwm-randr
-  :after exwm
-  :config
-  (exwm-randr-mode))
+    			  (exwm-workspace-rename-buffer
+    			   (concat exwm-class-name ":"
+    				   (if (<= (length exwm-title) 50) exwm-title
+    				     (concat (substring exwm-title 0 49) "..."))))))
+    (exwm-update-class . (lambda ()
+    			  (exwm-workspace-rename-buffer
+    			   (concat exwm-class-name ":"
+    				   (if (<= (length exwm-title) 50) exwm-title
+    				     (concat (substring exwm-title 0 49) "..."))))))))
 
 (use-package diminish :ensure t)
+(use-package ediff
+  :custom
+  (ediff-window-setup-function #'ediff-setup-windows-plain)
+  (ediff-split-window-function #'split-window-horizontally))
 
 (use-package emacs
-  :init
+  :config
   (fset 'yes-or-no-p 'y-or-n-p)
   (menu-bar-mode -1)
   (tool-bar-mode -1)
   (setq-default fill-column 80
-		line-spacing 5
-		cursor-type 'box
-		frame-title-format '("%b"))
-
-  (set-cursor-color "#ff0000")
+ 		line-spacing 10
+ 		cursor-type 'box
+		cursor-in-non-selected-windows nil
+ 		frame-title-format '("%b"))
   :custom
+  (highlight-nonselected-windows nil)
   (default-frame-alist '((font . "Iosevka SS13 Extended")
-			 (height . 150)
-			 (line-spacing . 0.5)))
+ 			 (height . 150)
+ 			 (line-spacing . 0.5)))
   (undo-limit 10000000)
   (undo-outer-limit 20000000)
+  (create-lockfiles nil)
+  (idle-update-delay 1.0)
+
+
+
+  (auto-save-list-file-prefix
+	(expand-file-name "autosave/" user-emacs-directory))
+  (tramp-auto-save-directory
+	(expand-file-name "tramp-autosave/" user-emacs-directory))
+
+  ;; Auto save options
+  (kill-buffer-delete-auto-save-files t)
+
+  ;; Revert other buffers (e.g, Dired)
+  (global-auto-revert-non-file-buffers t)
+
+;;; recentf
+  ;; `recentf' is an Emacs package that maintains a list of recently
+  ;; accessed files, making it easier to reopen files you have worked on
+  ;; recently.
+  (recentf-max-saved-items 300) ; default is 20
+  (recehvntf-auto-cleanup 'mode)
+
+;;; saveplace
+  ;; `save-place-mode` enables Emacs to remember the last location within a file
+  ;; upon reopening. This feature is particularly beneficial for resuming work at
+  ;; the precise point where you previously left off.
+  (save-place-file (expand-file-name "saveplace" user-emacs-directory))
+  (save-place-limit 600)
+
+;;; savehist
+  ;; `savehist` is an Emacs feature that preserves the minibuffer history between
+  ;; sessions. It saves the history of inputs in the minibuffer, such as commands,
+  ;; search strings, and other prompts, to a file. This allows users to retain
+  ;; their minibuffer history across Emacs restarts.
+  (history-length 300)
+  (savehist-save-minibuffer-history t)  ;; Default
+  ;; Resizing the Emacs frame can be costly when changing the font. Disable this
+  ;; to improve startup times with fonts larger than the system default.
+  (frame-resize-pixelwise t)
+
+  ;; However, do not resize windows pixelwise, as this can cause crashes in some
+  ;; cases when resizing too many windows at once or rapidly.
+  (window-resize-pixelwise nil)
+  (resize-mini-windows 'grow-only)
+
+  (fast-but-imprecise-scrolling t)
+  (blink-cursor-mode -1)
+  (x-stretch-cursor t)
+
   (tab-always-indent 'complete)
   (text-mode-ispell-word-completion nil)
   (read-extended-command-predicate #'command-completion-default-include-p ))
 
+(use-package vc-hooks
+  :custom
+  (vc-make-backup-files nil))
+
 (use-package tab-bar
+  :custom
+  (tab-bar-auto-width t)
+  (tab-bar-close-button-show nil)
+  (tab-bar-format
+   '(tab-bar-format-tabs tab-bar-format-align-right tab-bar-format-global))
   :init
   (tab-bar-mode)
   (setq tab-bar-new-tab-choice "*scratch*"))
@@ -161,13 +224,6 @@
   (add-to-list 'project-switch-commands '(project-kill-buffers "Kill Buffers"))
   (add-to-list 'project-switch-commands '(project-shell "Shell")))
 
-(use-package exwm-systemtray
-  :after exwm
-  :config
-  (exwm-systemtray-mode)
-  (setq exwm-systemtray-height 30))
-
-
 (use-package transpose-frame
   :ensure t
   :defer t
@@ -193,11 +249,7 @@
   :ensure t
   :init
   (with-eval-after-load 'geiser-guile
-    (add-to-list 'geiser-guile-load-path "~/builds/nonguix")))
-
-(use-package pixel-scroll
-  :init
-  (pixel-scroll-precision-mode))
+    (add-to-list 'geiser-guile-load-path "~/dev/nonguix")))
 
 (use-package corfu
   ;; Optional customizations
@@ -226,7 +278,7 @@
   (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)
   (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
   (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode))
-				       
+
 (use-package scroll-bar
   :init
   (scroll-bar-mode -1))
@@ -236,20 +288,41 @@
   (delete-selection-mode))
 
 (use-package frame
+  :custom
+  (window-divider-default-right-width 2)
   :config
   (window-divider-mode))
 
 (use-package window
+  :custom
+  (switch-to-buffer-obey-display-actions t)
   :config
   (add-to-list 'display-buffer-alist '("*Async Shell Command*" display-buffer-no-window (nil))))
 
 (use-package files
-  :config
-  (setq delete-old-versions t
-	kept-new-versions 6
-	kept-old-versions 2
-	version-control t
-	auto-save-default nil))
+  :custom
+  (make-backup-files nil)
+
+  (backup-directory-alist
+   `(("." . ,(expand-file-name "backup" user-emacs-directory))))
+  (tramp-backup-directory-alist backup-directory-alist)
+  (backup-by-copying-when-linked t)
+  (backup-by-copying t)  ; Backup by copying rather renaming
+  (delete-old-versions t)  ; Delete excess backup versions silently
+  (version-control t)  ; Use version numbers for backup files
+  (kept-new-versions 10)
+  (kept-old-versions 10)
+;;; Auto revert
+  ;; Auto-revert in Emacs is a feature that automatically updates the
+  ;; contents of a buffer to reflect changes made to the underlying file
+  ;; on disk.
+  (revert-without-query (list ".")  ; Do not prompt
+			auto-revert-stop-on-user-input nil
+			auto-revert-verbose t)
+
+
+  (auto-save-default t)
+  (auto-save-include-big-deletions t))
 
 (use-package minibuffer
   :defer t
@@ -261,6 +334,37 @@
   :defer t
   :ensure t)
 
+(defun elfeed-refresh ()
+  (interactive)
+    (cl-loop for entry in (elfeed-search-selected)
+           do (elfeed-untag-1 entry 'unread))
+    (elfeed-protocol-fever-reinit "https://freshrss@rss.mccd.space"))
+
+(use-package elfeed
+  :ensure t
+  :bind
+  (:map elfeed-search-mode-map
+	("G" . elfeed-refresh)))
+
+(use-package elfeed-protocol
+  :after elfeed
+  :ensure t
+  :demand t
+  :custom
+  (elfeed-use-curl t)
+  (elfeed-curl-extra-arguments '("--insecure"))
+  (elfeed-protocol-fever-update-unread-only t)
+  (elfeed-log-level 'debug)
+  (elfeed-protocol-fever-fetch-category-as-tag t)
+  (elfeed-protocol-feeds '(("fever+https://freshrss@rss.mccd.space"
+			    :api-url "https://rss.mccd.space/api/fever.php"
+			    :password freshrss-password)))
+  ;; enable elfeed-protocol
+  (elfeed-protocol-enabled-protocols '(fever))
+  :config
+  (elfeed-set-timeout 36000)
+  (elfeed-protocol-enable))
+
 (use-package select
   :config
   (setq x-select-enable-clipboard t
@@ -302,36 +406,6 @@
 	  (file-name-base (org-remark-notes-file-name-function))
 	  "-remark.org"))
 
-(use-package org-remark
-  :diminish org-remark-mode
-  :diminish org-remark-global-tracking-mode
-  :bind (;; :bind keyword also implicitly defers org-remark itself.
-         ;; Keybindings before :map is set for global-map.
-         ("C-c n m" . org-remark-mark)
-         ("C-c n l" . org-remark-mark-line) ; new in v1.3
-         :map org-remark-mode-map
-         ("C-c n o" . org-remark-open)
-         ("C-c n ]" . org-remark-view-next)
-         ("C-c n [" . org-remark-view-prev)
-         ("C-c n r" . org-remark-remove)
-         ("C-c n d" . org-remark-delete))
-  ;; Alternative way to enable `org-remark-global-tracking-mode' in
-  ;; `after-init-hook'.
-  ;; :hook (after-init . org-remark-global-tracking-mode)
-  :custom
-  (org-remark-icon-notes nil)
-  (org-remark-use-org-id t)
-  (org-remark-notes-file-name #'mccd/store-remarks)
-  :init
-  ;; It is recommended that `org-remark-global-tracking-mode' be
-  ;; enabled when Emacs initializes. Alternatively, you can put it to
-  ;; `after-init-hook' as in the comment above
-  (org-remark-global-tracking-mode +1)
-  :config
-  (use-package org-remark-info :after info :config (org-remark-info-mode +1))
-  (use-package org-remark-eww  :after eww  :config (org-remark-eww-mode +1))
-  (use-package org-remark-nov  :after nov  :config (org-remark-nov-mode +1)))
-
 (use-package battery
   :init
   (display-battery-mode t))
@@ -435,15 +509,6 @@
 (use-package git-gutter-fringe
   :ensure t)
 
-(use-package org-crypt
-  :ensure nil
-  :custom
-  (auth-source-debug t)
-  (epg-gpg-program "gpg2")
-  :init
-  (setenv "GPG_AGENT_INFO" nil)
-  (org-crypt-use-before-save-magic))
-
 (use-package grep
   :custom
   (grep-template (string-join
@@ -463,9 +528,19 @@
   :init
   (pinentry-start))
 
+(use-package org-crypt
+  :ensure nil
+  :custom
+  (auth-source-debug t)
+  :init
+  (setenv "GPG_AGENT_INFO" nil)
+  (org-crypt-use-before-save-magic))
+
 (use-package epa-file
   :custom
   (epa-pinentry-mode 'loopback)
+  (epa-file-select-keys nil)
+  (epg-gpg-program "gpg")
   :init
   (epa-file-enable))
 
@@ -605,7 +680,10 @@
   :ensure t
   :diminish ws-butler-mode
   :hook
-  ((prog-mode . ws-butler-mode)))
+  ((prog-mode . ws-butler-mode)
+   (css-mode . ws-butler-mode)
+   (javascript-mode . ws-butler-mode)
+   (html-mode . ws-butler-mode)))
 
 (use-package sgml-mode
   :init
@@ -648,6 +726,8 @@
 
 (use-package markdown-mode
   :ensure t
+  :custom
+  (markdown-list-item-bullets '("-"))
   :config
   (set-face-attribute 'markdown-code-face nil :inherit 'fixed-pitch)
   :hook
@@ -694,8 +774,13 @@
   :config
   ;; Ensure `nil` is in your PATH.
   (add-to-list 'eglot-server-programs '(nix-mode . ("nil")))
-  (define-key eglot-mode-map (kbd "C-c r") 'eglot-rename)
-  (define-key eglot-mode-map (kbd "C-c o") 'eglot-code-actions)
+  (fset #'jsonrpc--log-event #'ignore)
+  :bind
+  (:map eglot-mode-map
+	("C-c r" . eglot-rename)
+	("C-c o" . eglot-code-actions))
+  :custom
+  (setq jsonrpc-event-hook nil)
   :hook
   (css-mode . eglot-ensure)
   (html-mode . eglot-ensure)
@@ -766,7 +851,7 @@
       :server "irc.libera.chat"
       :port "6667"
       :nick "mccd"
-      :password (shell-command-to-string "pass show libera.chat")))))
+      :password libera-chat-pass))))
 
 (use-package ob-rec
   :ensure nil)
@@ -782,17 +867,25 @@
   (org-refile-targets
    '((nil :maxlevel . 4)
      (org-agenda-files :maxlevel . 4)))
-  (org-default-notes-file "~/personal-db/notes/todo.org")
+  (org-default-notes-file "~/personal-db/notes/notes.org")
   (org-hide-emphasis-markers t)
-  (org-enforce-todo-dependencies t)
   (org-link-keep-stored-after-insertion t)
   (org-startup-folded t)
-  (org-todo-keywords
-           '((sequence "TODO" "DONE")))
+  (org-hierarchical-todo-statistics t)
   (org-refile-allow-creating-parent-nodes 'confirm)
   (org-outline-path-complete-in-steps nil)
   (org-refile-use-outline-path 'file)
   (org-log-done 'time)
+  (org-indent-line 2)
+  (org-tags-column 0)
+  (org-pretty-entities t)
+  (org-todo-keywords
+           '((sequence "TODO(t)" "|" "DONE(d)")
+             (sequence "UNREAD(u)" "READING(e)" "|" "READ(r)")))
+  (org-priority-lowest ?E)
+  (org-priority-faces '((?A . (:weight bold :inherit org-priority))
+			(?D . (:foreground "gray50" :inherit org-priority))
+			(?E . (:foreground "gray60" :inherit org-priority))))
   :init
   (add-to-list 'auto-mode-alist '("\\.org\\'" . org-mode))
   (org-babel-do-load-languages
@@ -802,13 +895,13 @@
   :config
   (set-face-attribute 'org-block nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-code nil :inherit 'fixed-pitch)
-  (set-face-attribute 'org-table nil :inherit 'fixed-pitch)
+  (set-face-attribute 'org-table nil :foreground "black" :inherit 'fixed-pitch)
   (set-face-attribute 'org-date nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-tag nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-drawer nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-property-value nil :inherit 'fixed-pitch)
   (set-face-attribute 'org-special-keyword nil :inherit 'fixed-pitch)
-  (set-face-attribute 'org-meta-line nil :inherit 'fixed-pitch)  
+  (set-face-attribute 'org-meta-line nil :inherit 'fixed-pitch)
   :hook
   ((org-mode . org-indent-mode)
    (org-capture-after-finalize . sync-org)
@@ -819,66 +912,76 @@
    (org-mode . variable-pitch-mode)))
 
 
+(defun me/org-id-insert-link ()
+  "Insert at point a link to any heading from `org-agenda-files'."
+  (interactive)
+  (let ((buffer-pos
+         (org-id-find
+          (org-id-get-with-outline-path-completion '((nil :maxlevel . 5)
+                                                     (org-agenda-files :maxlevel . 5))))))
+    (save-excursion
+      (with-current-buffer (get-file-buffer (car buffer-pos))
+        (goto-char (cdr buffer-pos))
+        (call-interactively 'org-store-link)))
+    (org-insert-all-links 1 "" " ")))
+
 (use-package org-id
   :after org
   :custom
   (org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id))
 
-(use-package subr
+(use-package ol
+  :after org-compat org-macs org-fold
   :bind
-  (("C-c C-o" . org-open-at-point-global)))
+  (("C-c l" . org-store-link)))
 
-(use-package ol
+(use-package subr
   :bind
-  (("C-c l" . org-link)))
+  (("C-c C-o" . org-open-at-point-global)))
 
 (use-package org-capture
   :custom
   (org-capture-templates
    '(("t" "Todo"
-      entry (file "~/personal-db/notes/todo.org")
+      entry (file "~/personal-db/notes/agenda.org")
       "* TODO %?\n%i\n%a\n "
       :empty-lines 1)
      ("b" "Book"
-      entry (file+headline "~/personal-db/notes/refs.org" "Books")
-      "* %?\n:PROPERTIES:\n:AUTHOR:\n:STATE: unread\n:END:\n "
+      entry (file+olp "~/personal-db/notes/notes.org" "References" "Books")
+      "* UNREAD %?\n:PROPERTIES:\n:AUTHOR:\n:END:\n "
       :empty-lines 1)
      ("f" "Formula"
-      entry (file "~/personal-db/notes/formulas.org")
+      entry (file+headline "~/personal-db/notes/notes.org" "Formulas")
       "* %?\n%U"
       :empty-lines 1)
      ("f" "Film"
-      entry (file+headline "~/personal-db/notes/concepts.org" "Films")
+      entry (file+olp "~/personal-db/notes/notes.org" "References" "Films")
       "* %?\n:PROPERTIES:\n:DIRECTOR:\n:STATE: unwatched\n:END:\n "
       :empty-lines 1)
-     ("c" "Concept"
-      entry (file "~/personal-db/notes/concepts.org")
-      "* %?\n%i\n%a\n "
-      :empty-lines 1)
      ("g" "Log Coffee"
-      entry (file+headline "~/personal-db/notes/log.org" "Log")
-      "* Brewed pour-over :coffee:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 20g\n:ORIGIN:\n:NAME:\n:TEMP:\n:RATING:\n:PREHEAT: YES\n:END:\n%T\n*** Observations "
+      entry (file+headline "~/personal-db/notes/notes.org" "Log")
+      "* Brewed pour-over :coffee:\n:PROPERTIES:\n:WATER: 320g\n:COFFEE: 25g\n:TYPE: [[id:815450d3-d772-4207-9eb4-e1e185fd8356][La Pastora]] | [[id:9d136656-2965-4be9-87cf-4ecafcf62707][Alemayehu]]\n:TEMP: 90\n:RATING:\n:PREHEAT: YES\n:TOTALBREWTIME:\n:END:\n%T\n*** Observations "
       :empty-lines 0
       :prepend t)
      ("r" "Reference"
-      entry (file "~/personal-db/notes/refs.org")
+      entry (file+headline "~/personal-db/notes/notes.org" "References")
       "* %?\n%i\n%a\n "
       :empty-lines 1)
      ("s" "Schedule"
-      entry (file "~/personal-db/notes/reminders.org")
+      entry (file "~/personal-db/notes/agenda.org")
       "* TODO %?\nSCHEDULED: %^T"
       :empty-lines 1)
      ("a" "Article"
-      entry (file+headline "~/personal-db/notes/refs.org" "Articles")
+      entry (file+olp "~/personal-db/notes/notes.org" "References" "Articles")
       "* %?\n:PROPERTIES:\n:author:\n:END:\n "
       :empty-lines 1)
      ("l" "Log"
-      entry (file+headline "~/personal-db/notes/log.org" "Log")
+      entry (file+headline "~/personal-db/notes/notes.org" "Log")
       "** %?\n%T"
       :prepend t
       :empty-lines 0)
      ("n" "Inbox"
-      entry (file "~/personal-db/notes/inbox.org")
+      entry (file+headline "~/personal-db/notes/notes.org" "Inbox")
       "* %?\n%U\n"
       :empty-lines 1)))
   :bind
@@ -891,18 +994,24 @@
 
 (use-package org-agenda
   :custom
+  (org-agenda-files
+   '("/home/mccd/personal-db/notes/cal-ios.org"
+     "/home/mccd/dev/sustainably/README.org"
+     "/home/mccd/system/guix.org"
+     "/home/mccd/personal-db/notes/agenda.org"
+     "/home/mccd/personal-db/notes/notes.org"))
   (org-agenda-remove-tags t)  
   (org-agenda-inhibit-startup nil)
   :config
   (advice-add 'org-agenda-quit :before (lambda ()
 					 (interactive)
 					 (org-save-all-org-buffers)
+					 (org-id-update-id-locations)
 					 (sync-org)))
   :bind
   (("C-c a" . org-agenda)
-   ("C-c l")
    :map org-agenda-mode-map
-	("<return>" . org-agenda-switch-to-narrowed-subtree)))
+   ("<return>" . org-agenda-switch-to-narrowed-subtree)))
 
 (use-package autorevert
   :diminish auto-revert-mode)
@@ -961,23 +1070,6 @@
   :init
   (yas-global-mode 1))
 
-(defun marc/set-msmtp-account ()
-  (if (message-mail-p)
-      (save-excursion
-        (let*
-            ((from (save-restriction
-                     (message-narrow-to-headers)
-                     (message-fetch-field "from")))
-             (account
-              (cond
-               ((string-match "marcc@fastmail.fr" from) "home")
-               ((string-match "marc.coquand@sustainably.app" from) "work")
-               ((string-match "marc@mccd.space" from) "home"))))
-          (setq message-sendmail-extra-arguments (list '"-a" account))))))
-
-(add-hook 'message-send-mail-hook #'marc/set-msmtp-account)
-(add-hook 'message-mode-hook #'flyspell-mode)
-
 (use-package flyspell
   :diminish flyspell-mode
   :defer t)
@@ -991,105 +1083,108 @@
 (use-package simple
   :diminish visual-line-mode)
 
-(use-package mu4e
-  :ensure nil
-  :config
-  ;; This is set to 't' to avoid mail syncing issues when using mbsync
-  (setq mu4e-change-filenames-when-moving t)
-  
-  ;; don't keep message compose buffers around after sending:
-  (setq message-kill-buffer-on-exit t)
-
-  (setq mu4e-notification-support t)
-
-  ;; send function:
-  (setq send-mail-function 'sendmail-send-it
-	message-send-mail-function 'sendmail-send-it)
-
-  ;; send program:
-  ;; this is exeranal. remember we installed it before.
-  (setq sendmail-program (executable-find "msmtp"))
-
-  ;; select the right sender email from the context.
-  (setq message-sendmail-envelope-from 'header)  
-  
-  ;; Refresh mail using isync every 10 minutes
-  (setq mu4e-update-interval (* 10 60)
-        mu4e-get-mail-command "mbsync -a"
-	mu4e-view-show-images t
-	mu4e-view-show-addresses t
-	mu4e-attachment-dir "~/Downloads"
-	mu4e-view-prefer-html t
-	mu4e-maildir "~/mail")
-
-  (setq mu4e-contexts
-        (list
-	 ;; Home
-	 (make-mu4e-context
-          :name "home"
-	  :enter-func (lambda () (mu4e-message "Entering personal context"))
-	  :leave-func (lambda () (mu4e-message "Leaving personal context"))
-          :match-func
-          (lambda (msg)
-            (when msg
-              (string-prefix-p "/home" (mu4e-message-field msg :maildir))))
-          :vars '((user-mail-address . "marc@mccd.space")
-                  (user-full-name    . "Marc Coquand")
-                  (mu4e-drafts-folder  . "/home/Drafts")
-                  (mu4e-sent-folder  . "/home/Sent")
-                  (mu4e-refile-folder  . "/home/Archive")
-                  (mu4e-trash-folder  . "/home/Trash")
-		  (mu4e-sent-messages-behavior . sent)
-
-		  (mu4e-maildir-shortcuts .
-					  (("/home/INBOX" . ?i)
-					   ("/home/Archive/Done" . ?d)
-					   ("/home/Archive" . ?a)
-					   ("/home/Archive/Todo" . ?t)))))
-         ;; Work account
-         (make-mu4e-context
-          :name "work"
-	  :enter-func (lambda () (mu4e-message "Entering work context"))
-	  :leave-func (lambda () (mu4e-message "Leaving work context"))
-          :match-func
-          (lambda (msg)
-            (when msg
-              (string-prefix-p "/work" (mu4e-message-field msg :maildir))))
-          :vars '((user-mail-address . "marc.coquand@sustainably.app")
-                  (user-full-name    . "Marc Coquand")
-                  (mu4e-drafts-folder  . "/work/[Gmail]/Drafts")
-                  (mu4e-sent-folder  . "/work/[Gmail]/Sent Mail")
-                  (mu4e-refile-folder  . "/work/[Gmail]/All Mail")
-		  (mu4e-sent-messages-behavior . delete)
-                  (mu4e-trash-folder  . "/work/[Gmail]/Trash")
-		  (mu4e-maildir-shortcuts .
-					  (("/work/[Gmail]/All Mail" . ?a)
-					   ("/work/INBOX" . ?i))))))))
-
-
-(use-package elfeed-protocol
-  :ensure t
-  :init
-  (elfeed-protocol-enable))
+(defun marc/set-msmtp-account ()
+  (if (message-mail-p)
+      (save-excursion
+        (let*
+            ((from (save-restriction
+                     (message-narrow-to-headers)
+                     (message-fetch-field "from")))
+             (account
+              (cond
+               ((string-match "marcc@fastmail.fr" from) "home")
+               ((string-match "marc.coquand@sustainably.app" from) "work")
+               ((string-match "marc@mccd.space" from) "home"))))
+          (setq message-sendmail-extra-arguments (list '"-a" account))))))
 
-(use-package elfeed
-  :ensure t
+(use-package sendmail
+  :defer t
+  :hook
+  (message-send-mail . marc/set-msmtp-account)
+  (message-send-mail . flyspell-mode)
+  (message-setup-hook . mail-abbrevs-setup)
   :custom
-  (elfeed-use-curl t)
-  ;; setup feeds
-  (elfeed-protocol-fever-update-unread-only t)
-  (elfeed-protocol-fever-fetch-category-as-tag t)
-  (elfeed-protocol-feeds '(("fever+https://freshrss@rss.mccd.space"
-			    :api-url "https://rss.mccd.space/api/fever.php"
-			    :password (shell-command-to-string "pass show mccd/freshrss"))))
-  ;; enable elfeed-protocol
-  (elfeed-protocol-enabled-protocols '(fever))
-  (elfeed-curl-extra-arguments '("--insecure"))
+  (message-kill-buffer-on-exit t)
+  (send-mail-function 'sendmail-send-it)
+  (sendmail-program (executable-find "msmtp"))
+  (message-sendmail-envelope-from 'header)
+  (message-mail-alias-type 'ecomplete)
+  (message-fcc-handler-function 'rmail-output)
+  (message-interactive t)
+  (message-wide-reply-confirm-recipients t)
+  (mail-user-agent 'message-user-agent)
+  (message-self-insert-commands nil)
+  (message-expand-name-standard-ui t)
+  (message-send-mail-function 'sendmail-send-it))
+
+(use-package rmail
   :bind
-  (("C-x w" . elfeed))
+  (("C-c m" . rmail-open))
   :config
-  ;; necessary for https without a trust certificate
-  (elfeed-set-timeout 36000))
+  (defvar selected-rmail-account "")
+  (defun rmail-no-check ()
+      (interactive)
+      (rmail-input rmail-file-name))
+  
+  (defun mail-work ()
+    (interactive)
+    (setenv "MAILHOST" "imap.fastmail.com")
+    (setenv "MAIL"
+	    (concat "imaps://"
+		    "marc.coquand%40sustainably.app"
+		    ":"
+		    piva-password
+		    "@imap.gmail.com:993"))
+    (setq
+     rmail-default-file "~/personal-db/mail/work/RMAIL"
+     rmail-remote-password-required nil
+     rmail-secondary-file-regexp "~/personal-db/mail/work/archives"
+     rmail-file-name "~/personal-db/mail/work/RMAIL"
+     user-mail-address "marc.coquand@sustainably.app"
+     unrmail-mbox-format 'mboxo
+     user-full-name "Marc Coquand"
+     message-default-headers "FCC: ~/personal-db/mail/work/out/sent.mbox"
+     selected-rmail-account "work"
+     message-signature "Marc Coquand\nFounder at Pivå"))
+
+  (defun mail-home ()
+    (interactive)
+    (setenv "MAILHOST" "imap.fastmail.com")
+    (setenv "MAIL"
+	    (concat "imaps://"
+		    "marcc%40fastmail.fr"
+		    ":"
+		    fastmail-password
+		    "@imap.fastmail.com:993"))
+    (setq
+     rmail-default-file "~/personal-db/mail/home/RMAIL"
+     rmail-remote-password-required nil
+     rmail-secondary-file-regexp "~/personal-db/mail/home/archives/*.mbox"
+     rmail-file-name "~/personal-db/mail/home/RMAIL"
+     user-mail-address "marc@mccd.space"
+     unrmail-mbox-format 'mboxo
+     user-full-name "Marc Coquand"
+     selected-rmail-account "home"
+     message-default-headers "FCC: ~/personal-db/mail/home/out/sent.mbox"
+     message-signature "Marc"))
+
+  (easy-menu-define rmail-prompt-account global-map "Account"
+    '("Options"
+      ["Home" mail-home]
+      ["Work" mail-work]))
+
+  (defun rmail-open ()
+    (interactive)
+    (let ((prev selected-rmail-account))
+      (tmm-prompt rmail-prompt-account)
+      (unless (eq selected-rmail-account prev)
+	;; First kill all RMAIL buffers to not leave any dangling
+	(kill-matching-buffers "\\.mbox\\|RMAIL")))
+    (rmail-no-check))
+  :custom
+  (rmail-mime-prefer-html nil)
+  (rmail-displayed-headers "^\\(?:Cc\\|Date\\|From\\|Subject\\|To\\|List-Id\\):"))
+
 
 (use-package mastodon
   :defer t
@@ -1116,140 +1211,4 @@
   (emms-all)
   (emms-default-players))
 
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(default ((t (:inherit nil :extend nil :stipple nil :background "#fffff8" :foreground "#111111" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "Iosevka SS13 Extended"))))
- '(avy-lead-face ((t (:inherit fixed-pitch :background "dark red" :foreground "white"))))
- '(calendar-weekend-header ((t (:inherit nil))))
- '(comint-highlight-prompt ((t ())))
- '(corfu-default ((t (:background "#EEEEE8"))))
- '(custom-group-subtitle ((t (:weight bold :inherit variable-pitch))))
- '(diary ((t (:inherit fixed-pitch :foreground "red1"))))
- '(eglot-highlight-symbol-face ((t (:weight bold))))
- '(eglot-mode-line ((t (:weight regular))))
- '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
- '(eshell-prompt ((t (:weight bold))))
- '(eww-valid-certificate ((t (:foreground "#111111" :weight bold))))
- '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
- '(font-lock-builtin-face ((t (:weight regular))))
- '(font-lock-comment-face ((t (:foreground "gray40"))))
- '(font-lock-constant-face ((t (:slant italic))))
- '(git-gutter:added ((t ())))
- '(git-gutter:modified ((t ())))
- '(git-gutter:deleted ((t (:foreground "red"))))   
- '(font-lock-function-name-face ((t ())))
- '(font-lock-keyword-face ((t ())))
- '(font-lock-string-face ((t (:foreground "#111111" :slant italic))))
- '(font-lock-type-face ((t (:foreground "#111111"))))
- '(magit-section-heading ((t (:weight bold)))) 
- '(font-lock-variable-name-face ((t (:foreground "#111111"))))
- '(fringe ((t ())))
- '(header-line ((t (:inherit default :foreground "grey20" :box (:line-width (12 . 12) :color "#fffff8") :underline (:color "#e0e0e0" :style line :position 0) :inherit variable-pitch))))
- '(highlight ((t (:background "azure2"))))
- '(info-header-xref ((t (:inherit info-xref :underline (:color "RoyalBlue3" :style line :position t)))))
- '(info-node ((t (:foreground "brown" :box (:line-width (4 . 4) :color "#fffff8") :slant italic :weight bold))))
- '(enwc-connected ((t (:foreground "dark green" :weight bold))))
- '(link ((t (:foreground "#111111" :underline t))))
- '(magit-branch-remote ((t (:foreground "royalblue"))))
- '(markdown-inline-code-face ((t (:inherit markdown-code-face))))
- '(markdown-pre-face ((t (:inherit markdown-code-face))))
- '(ido-only-match ((t (:foreground "forest green" :weight bold)))) 
- '(mastodon-display-name-face ((t (:inherit nil :weight bold))))
- '(message-header-name ((t (:weight bold))))
- '(message-header-subject ((t (:slant italic))))
- '(message-separator ((t (:foreground "red"))))
- '(message-cited-text-1 ((t (:foreground "gray50"))))
- '(gnus-header-name ((t (:weight bold))))
- '(gnus-header-content ((t ())))
- '(gnus-header-subject ((t (:slant italic))))
- '(gnus-header-from ((t (:weight bold))))  
- '(minibuffer-prompt ((t ()))) 
- '(mode-line ((t (:background "#EEEEE8" :foreground "#111111" :box (:line-width (8 . 8) :style flat-button) :overline "white" :underline (:color "#fffff8" :style line :position t) :inherit variable-pitch))))
- '(mode-line-emphasis ((t ())))
- '(mode-line-buffer-id ((t ()))) 
- '(magit-section-highlight ((t (:background "#EEEEE8"))))
- '(magit-diff-file-heading-highlight ((t (:inherit magit-section-highlight))))
- '(magit-diff-file-heading ((t ()))) 
- '(mode-line-inactive ((t (:inherit mode-line :background "#f9f9f3" :foreground "grey60" :overline "#f9f9f9" :underline (:color "#f9f9f9" :style line :position 0) :weight light))))
- '(mu4e-header-highlight-face ((t (:inherit hl-line :extend t :weight bold))))
- '(mu4e-header-key-face ((t (:weight bold)))) 
- '(mu4e-highlight-face ((t (:inherit highlight))))
- '(org-date ((t (:inherit fixed-pitch :foreground "gray60"))))
- '(org-agenda-structure ((t ())))
- '(org-upcoming-deadline ((t ())))
- '(org-imminent-deadline ((t (:foreground "orangered" :weight bold))))  
- '(org-agenda-date-today ((t (:weight bold))))
- '(org-agenda-date-weekend ((t ())))
- '(help-key-binding ((t (:weight semibold :background "#EEEEE8" :box (:line-width (1 . -1) :color "#AAAAA8")))))
- '(org-agenda-done ((t (:strike-through t :inherit org-time-grid :extend nil))))
- '(org-agenda-structure-filter ((t (:slant italic))))
- '(org-scheduled ((t ()))) 
- '(org-done ((t (:strike-through t :weight bold :inherit org-agenda-dimmed-todo-face :extend nil))))
- '(org-drawer ((t (:inherit org-tag)))) 
- '(org-todo ((t (:weight bold))))      
- '(org-headline-done ((t (:strike-through t :inherit org-agenda-dimmed-todo-face :extend nil))))
- '(org-level-1 ((t (:inherit outline-1 :extend nil :weight regular))))
- '(org-tag ((t (:inherit fixed-pitch :foreground "gray50"))))
- '(org-time-grid ((t (:foreground "gray"))))
- '(org-meta-line ((t (:foreground "gray" :inherit fixed-pitch))))
- '(org-quote ((t (:inherit org-block :slant italic)))) 
- '(outline-4 ((t (:inherit outline-2))))
- '(tab-line ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :inherit variable-pitch))))
- '(tab-line ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :inherit variable-pitch))))
- '(tab-line-highlight ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :inherit variable-pitch))))
- '(tab-line-tab-current ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :inherit variable-pitch))))
- '(tab-line-tab-inactive ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :foreground "gray70" :inherit variable-pitch))))  
- '(tab-bar ((t (:box (:line-width (12 . 24) :style flat-button) :weight semi-light :inherit variable-pitch))))
- '(tab-bar-tab ((t (:inherit tab-bar :foreground "#111111" :box (:line-width (20 . 1) :color "#fffff8")))))
- '(tab-bar-tab-inactive ((t (:inherit tab-bar-tab :background "#fffff8" :foreground "#999999" :weight semi-light))))
- '(tldr-code-block ((t (:background "cornsilk" :foreground "#111111"))))
- '(tldr-description ((t ()))) 
- '(tldr-command-argument ((t (:background "cornsilk" :foreground "#111111"))))
- '(tldr-command-itself ((t (:background "khaki" :foreground "#111111" :weight bold))))
- '(tldr-introduction ((t (:foreground "#111111" :slant italic))))
- '(tldr-title ((t (:inherit variable-pitch :foreground "#111111" :weight bold))))
- '(variable-pitch ((t (:family "Iosevka Aile"))))
- '(window-divider ((t (:foreground "gray90")))))
-(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(custom-safe-themes
-   '("cbd85ab34afb47003fa7f814a462c24affb1de81ebf172b78cb4e65186ba59d2" default))
- '(erc-mode-line-format "")
- '(erc-modules
-   '(autojoin button completion fill irccontrols list match menu move-to-prompt netsplit networks noncommands notifications readonly ring services stamp spelling))
- '(magit-section-visibility-indicator '("..." . t))
- '(markdown-list-item-bullets '("-"))
- '(mastodon-tl--enable-proportional-fonts t)
- '(mastodon-use-emojify t)
- '(mode-line-compact 'long)
- '(mode-line-format
-   '("%e" mode-line-front-space
-     (:propertize
-      ("" mode-line-modified " "))
-     mode-line-modes mode-line-buffer-identification))
- '(mode-line-percent-position nil)
- '(mode-line-position-line-format '(" "))
- '(mu4e-bookmarks
-   '((:name "Last 7 days" :query "date:7d..now" :hide-unread t :key 119)
-     (:name "Messages with images" :query "mime:image/*" :key 112)))
- '(org-agenda-files
-   '("/home/mccd/personal-db/notes/cal-ios.org" "/home/mccd/personal-db/notes/reminders.org" "/home/mccd/builds/sustainably/README.org" "/home/mccd/builds/sustainably/exploration.org" "/home/mccd/personal-db/notes/inbox.org" "/home/mccd/personal-db/notes/todo.org" "/home/mccd/system/guix.org" "/home/mccd/personal-db/notes/log.org" "/home/mccd/personal-db/notes/refs.org" "/home/mccd/personal-db/notes/formulas.org" "/home/mccd/personal-db/notes/concepts.org" "/home/mccd/personal-db/notes/drafts.org"))
- '(org-fold-core-style 'overlays)
- '(package-selected-packages
-   '(nov eldoc-box hide-mode-line exwm-mff eat pinentry exwm emms company orglink web-mode flycheck nix-mode nix-ts-mode avy pdf-tools elfeed-protocol yasnippet-snippets elfeed yasnippet smartparens markdown-mode mastodon tldr almost-mono-themes rec-mode magit go-mode expand-region devdocs))
- '(tab-bar-auto-width t)
- '(tab-bar-close-button-show nil)
- '(tab-bar-format
-   '(tab-bar-format-tabs tab-bar-format-align-right tab-bar-format-global))
- '(tab-bar-position nil)
- '(tab-bar-tab-hints t)
- '(window-divider-default-right-width 2)
- '(yank-from-kill-ring-rotate t))
 (put 'secrets-mode 'disabled nil)
-
diff --git a/home/dots/.emacs.d/BOGO-theme.el b/home/dots/.emacs.d/BOGO-theme.el
new file mode 100644
index 0000000..31f6760
--- /dev/null
+++ b/home/dots/.emacs.d/BOGO-theme.el
@@ -0,0 +1,107 @@
+(deftheme BOGO
+  "Created 2024-11-20.")
+
+(custom-theme-set-faces
+ 'BOGO
+ '(default ((t (:inherit nil :extend nil :stipple nil :background "#fffff8" :foreground "#111111" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 150 :width expanded :foundry "UKWN" :family "Iosevka SS13"))))
+ '(avy-lead-face ((t (:inherit fixed-pitch :background "dark red" :foreground "white"))))
+ '(calendar-weekend-header ((t (:inherit nil))))
+ '(comint-highlight-prompt ((t nil)))
+ '(corfu-default ((t (:background "#EEEEE8"))))
+ '(custom-group-subtitle ((t (:weight bold :inherit variable-pitch))))
+ '(diary ((t (:inherit fixed-pitch :foreground "red1"))))
+ '(eglot-highlight-symbol-face ((t (:weight bold))))
+ '(eglot-mode-line ((t (:weight regular))))
+ '(erc-timestamp-face ((t (:foreground "blue" :weight bold))))
+ '(eshell-prompt ((t (:weight bold))))
+ '(eww-valid-certificate ((t (:foreground "#111111" :weight bold))))
+ '(fixed-pitch ((t (:family "Iosevka SS13 Extended"))))
+ '(font-lock-builtin-face ((t (:weight regular))))
+ '(font-lock-comment-face ((t (:foreground "gray40"))))
+ '(font-lock-constant-face ((t (:slant italic))))
+ '(git-gutter:added ((t nil)))
+ '(git-gutter:modified ((t nil)))
+ '(git-gutter:deleted ((t (:foreground "red"))))
+ '(font-lock-function-name-face ((t nil)))
+ '(font-lock-keyword-face ((t nil)))
+ '(font-lock-string-face ((t (:foreground "#111111" :slant italic))))
+ '(font-lock-type-face ((t (:foreground "#111111"))))
+ '(magit-section-heading ((t (:weight bold))))
+ '(font-lock-variable-name-face ((t (:foreground "#111111"))))
+ '(fringe ((t nil)))
+ '(header-line ((t (:inherit default :foreground "grey20" :box (:line-width (12 . 12) :color "#fffff8") :underline (:color "#e0e0e0" :style line :position 0) :family "Iosevka Aile" :height 1.0))))
+ '(highlight ((t (:background "azure2"))))
+ '(info-header-xref ((t (:inherit info-xref :underline (:color "RoyalBlue3" :style line :position t)))))
+ '(info-menu-header ((t (:family "Iosevka aile" :weight bold))))
+ '(info-title-1 ((t (:family "Iosevka aile" :weight bold))))
+ '(info-node ((t (:foreground "brown" :box (:line-width (4 . 4) :color "#fffff8") :slant italic :weight bold))))
+ '(enwc-connected ((t (:foreground "dark green" :weight bold))))
+ '(link ((t (:foreground "#111111" :underline t))))
+ '(magit-branch-remote ((t (:foreground "royalblue"))))
+ '(markdown-inline-code-face ((t (:inherit markdown-code-face))))
+ '(markdown-pre-face ((t (:inherit markdown-code-face))))
+ '(ido-only-match ((t (:foreground "forest green" :weight bold))))
+ '(mastodon-display-name-face ((t (:inherit nil :weight bold))))
+ '(message-header-name ((t (:weight bold))))
+ '(message-header-subject ((t (:slant italic))))
+ '(message-separator ((t (:foreground "red"))))
+ '(message-cited-text-1 ((t (:foreground "gray50"))))
+ '(gnus-header-name ((t (:weight bold))))
+ '(gnus-header-content ((t nil)))
+ '(gnus-header-subject ((t (:slant italic))))
+ '(gnus-header-from ((t (:weight bold))))
+ '(minibuffer-prompt ((t nil)))
+ '(mode-line ((t (:background "#EEEEE8" :foreground "#111111" :box (:line-width (8 . 8) :style flat-button) :overline "white" :underline (:color "#fffff8" :style line :position t) :family "Iosevka Aile"))))
+ '(mode-line-emphasis ((t nil)))
+ '(mode-line-buffer-id ((t nil)))
+ '(magit-section-highlight ((t (:background "#EEEEE8"))))
+ '(magit-diff-file-heading-highlight ((t (:inherit magit-section-highlight))))
+ '(magit-diff-file-heading ((t nil)))
+ '(mode-line-inactive ((t (:inherit mode-line :background "#f9f9f3" :foreground "grey60" :overline "#f9f9f9" :underline (:color "#f9f9f9" :style line :position 0) :weight light))))
+ '(mu4e-header-highlight-face ((t (:inherit hl-line :extend t :weight bold))))
+ '(mu4e-header-key-face ((t (:weight bold))))
+ '(mu4e-highlight-face ((t (:inherit highlight))))
+ '(org-date ((t (:inherit fixed-pitch))))
+ '(org-agenda-structure ((t nil)))
+ '(org-upcoming-deadline ((t nil)))
+ '(org-imminent-deadline ((t (:foreground "DarkOrange3" :weight bold))))
+ '(org-agenda-date-today ((t (:weight bold))))
+ '(org-agenda-date-weekend ((t nil)))
+ '(help-key-binding ((t (:weight semibold :background "#EEEEE8" :box (:line-width (1 . -1) :color "#AAAAA8")))))
+ '(org-agenda-done ((t (:strike-through t :inherit org-time-grid :extend nil))))
+ '(org-agenda-structure-filter ((t (:slant italic))))
+ '(org-scheduled ((t nil)))
+ '(org-scheduled-today ((t nil)))
+ '(org-list-dt ((t (:weight bold))))
+ '(org-agenda-calendar-event ((t nil)))
+ '(org-drawer ((t nil)))
+ '(org-hide ((t (:foreground "#FFFFF8"))))
+ '(org-done ((t (:inherit (org-agenda-dimmed-todo-face fixed-pitch) :strike-through t :extend nil :weight bold))))
+ '(org-todo ((t (:weight bold :inherit fixed-pitch))))
+ '(org-checkbox ((t (:weight bold :inherit fixed-pitch))))
+ '(org-priority ((t (:inherit fixed-pitch))))
+ '(org-headline-done ((t (:strike-through t :inherit org-agenda-dimmed-todo-face))))
+ '(org-level-1 ((t (:inherit outline-1 :extend nil :weight regular))))
+ '(org-tag ((t (:foreground "gray70"))))
+ '(org-time-grid ((t (:foreground "gray"))))
+ '(org-meta-line ((t (:foreground "gray" :inherit fixed-pitch))))
+ '(org-block-begin-line ((t :inherit org-tag)))
+ '(org-quote ((t (:inherit org-block :slant italic))))
+ '(outline-4 ((t (:inherit outline-2))))
+ '(tab-line ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-highlight ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-current ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :family "Iosevka Aile"))))
+ '(tab-line-tab-inactive ((t (:box (:line-width (4 . 4) :style flat-button) :weight semi-light :foreground "gray70" :family "Iosevka Aile"))))
+ '(tab-bar ((t (:box (:line-width (12 . 24) :style flat-button) :weight semi-light :family "iosevka Aile"))))
+ '(tab-bar-tab ((t (:inherit tab-bar :foreground "#111111" :box (:line-width (20 . 1) :color "#fffff8")))))
+ '(tab-bar-tab-inactive ((t (:inherit tab-bar-tab :background "#fffff8" :foreground "#999999" :weight semi-light))))
+ '(tldr-code-block ((t (:background "cornsilk" :foreground "#111111"))))
+ '(tldr-description ((t nil)))
+ '(tldr-command-argument ((t (:background "cornsilk" :foreground "#111111"))))
+ '(tldr-command-itself ((t (:background "khaki" :foreground "#111111" :weight bold))))
+ '(tldr-introduction ((t (:foreground "#111111" :slant italic))))
+ '(tldr-title ((t (:inherit variable-pitch :foreground "#111111" :weight bold))))
+ '(variable-pitch ((t (:family "Iosevka Etoile" :height 1.0))))
+ '(window-divider ((t (:foreground "gray90")))))
+
+(provide-theme 'BOGO)
diff --git a/home/dots/.msmtprc b/home/dots/.msmtprc
index 170f86e..cbf4533 100644
--- a/home/dots/.msmtprc
+++ b/home/dots/.msmtprc
@@ -9,9 +9,9 @@ logfile        ~/.msmtp.log
 account        work
 host           smtp.gmail.com
 port           587
-from           marc@baemingo.com
-user           marc@baemingo.com
-passwordeval   "pass baemingo/gmail"
+from           marc.coquand@sustainably.app
+user           marc.coquand@sustainably.app
+passwordeval   "pass sustainably/gmail"
 
 # Home
 account        home
diff --git a/home/dots/.xinitrc b/home/dots/.xinitrc
index a62a0d7..81718b8 100755
--- a/home/dots/.xinitrc
+++ b/home/dots/.xinitrc
@@ -24,5 +24,4 @@ gsettings set org.gnome.desktop.interface cursor-theme Adwaita
 setxkbmap -layout us -variant colemak -option "caps:nocaps" 
 xsetroot -cursor_name left_ptr 
 xset r rate 200 60
-xrdb ~/.Xresources
 exec dbus-run-session emacsclient -c