@@ 67,6 67,21 @@
(find-files source "\\.(otf|otc)$"))
#t))))))))
+(define (apply-patches pkg patches)
+ (let ((src (package-source pkg))
+ (source-patches
+ (if (list? patches)
+ patches
+ (list patches))))
+ (package
+ (inherit pkg)
+ (source
+ (origin
+ (inherit src)
+ (patches
+ (append source-patches
+ (origin-patches src))))))))
+
(home-environment
;; Below is the list of packages that will show up in your
;; Home profile, under ~/.guix-home/profile.
@@ 74,7 89,10 @@
(append
(list
dwl-mine
- font-awesome-6)
+ font-awesome-6
+
+ (apply-patches msmtp
+ (local-file "./patches/msmtp-from-utf8-encoding.patch")))
(specifications->packages
(list
"man-db"
@@ 123,7 141,7 @@
"dconf"
;; E-mail
- "offlineimap3" "msmtp"
+ "offlineimap3"
"notmuch" "afew"
"xdg-utils" "libnotify"