From d47a01d0e11638647667b9929be47c9f7c9bfdd2 Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@protonmail.com>
Date: Sun, 22 Sep 2024 12:41:20 +0200
Subject: [PATCH] feat: add e-mail sync, and packages

---
 home/home-configuration.scm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/home/home-configuration.scm b/home/home-configuration.scm
index a8885c6..763f90f 100644
--- a/home/home-configuration.scm
+++ b/home/home-configuration.scm
@@ -14,6 +14,7 @@
              (gnu packages shellutils)
              (gnu packages wm)
              (gnu packages freedesktop)
+             (gnu packages mail)
              (guix git-download)
              (gnu packages fonts)
              (gnu services)
@@ -28,12 +29,17 @@
              (ruther home dwl scripts)
              (ruther home packages themes)
              (ruther home services hydroxide)
+             (gnu home services mcron)
              (ruther home services mpris-ctld)
              (ruther home services gtk)
              (ruther home services xdg-desktop-portals)
              (ruther home services wayland)
              (ruther home services kanshi))
 
+(define offlineimap-job
+  #~(job '(next-minute (range 0 60 5))
+         (string-append #$offlineimap3 "/bin/offlineimap")))
+
 (define-public font-awesome-6
   (package/inherit font-awesome
     (version "6.5.2")
@@ -71,6 +77,8 @@
     font-awesome-6)
    (specifications->packages
     (list
+     "man-db"
+
      "slurp"
      ;; HW interactions
      "pavucontrol"
@@ -114,6 +122,12 @@
      ;; How could we give it just this service?
      "dconf"
 
+     ;; E-mail
+     "offlineimap3" "msmtp"
+     "notmuch" "afew"
+
+     "xdg-utils" "libnotify"
+
      ;; Editing
      "emacs" "emacs-vterm"
      "tree-sitter-vhdl" "tree-sitter-rust" "tree-sitter-bash"
@@ -135,6 +149,17 @@
                    (bash-profile (list (local-file "dotfiles/.bash_profile"
                                                    "bash_profile")))))
 
+         (service home-mcron-service-type
+                  (home-mcron-configuration
+                   (log-file (let* ((state-dir (or (getenv "XDG_STATE_HOME")
+                                                   (format #f "~a/.local/state"
+                                                           (getenv "HOME"))))
+                                    (log-dir (string-append state-dir "/log")))
+                               (string-append log-dir "/mcron.log")))))
+         (simple-service 'email-sync
+                         home-mcron-service-type
+                         (list offlineimap-job))
+
          (service home-gtk-service-type
                   (let ((gtk-theme (make-graphite-gtk-theme #:theme "orange" #:color "dark"))
                         (icon-theme (make-tela-circle-icon-theme #:variant "orange"))
-- 
2.48.1