Package neomutt's mutt_oauth2.py script

This gets rid of the last git submodule.

1 files changed, 31 insertions, 0 deletions

diff --git a/tw/packages/mail.scm b/tw/packages/mail.scm
new file mode 100644
index 00000000..b45cabf7
--- /dev/null
+++ b/tw/packages/mail.scm
@@ -0,0 +1,31 @@
+(define-module (tw packages mail)
+  #:use-module (gnu packages mail)
+  #:use-module (gnu packages python)
+  #:use-module (guix build-system copy)
+  #:use-module (guix git-download)
+  #:use-module (guix packages))
+
+(define-public mutt_oauth2.py
+  (package
+    (name "mutt_oauth2.py")
+    (version "20231103")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+             (url "https://github.com/neomutt/neomutt")
+             (commit version)))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1z0c19nppf2bjzc5xxhx5ahms449cr1ycww2lq1qqx6f120xixgp"))))
+    (inputs (list python))  ; It's a Python script!
+    (build-system copy-build-system)
+    (arguments
+     '(#:install-plan '(("contrib/oauth2/mutt_oauth2.py" "bin/"))))
+    (home-page (package-home-page neomutt))
+    (synopsis "OAuth2 authentication script from NeoMutt")
+    (description "Microsoft Exchange Online mail accounts require XOAUTH2
+login.  This can be done with the @code{mutt_oauth2.py} script packaged with
+NeoMutt, but the version of the script in Guix' NeoMutt package is too old, so
+this package includes the latest script only.")
+    (license (package-license neomutt))))