1 files changed, 25 insertions(+), 0 deletions(-)

M 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"))