From 314ba1b27bc385932e250527d3ce576d4ff21c03 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marekpasnikowski@protonmail.com>
Date: Tue, 7 Mar 2023 17:46:55 +0100
Subject: Implement Git Send Email

This commit enables the Send Email functionality of Git in order to easily
post patches to mailing lists.

A Git configuration file constructor is prepared in order to compose its content
from multiple Org blocks.  The needed packages are declared in a service, and
the initial sendemail configuration is defined.

As a result, it is now possible to post patches directly from Git.
---
 aisaka.org             | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 data/git-config        |  6 ++++++
 home-configuration.scm | 15 +++++++++++++++
 3 files changed, 69 insertions(+)

diff --git a/aisaka.org b/aisaka.org
index 16b8e65..c025baf 100644
--- a/aisaka.org
+++ b/aisaka.org
@@ -2,6 +2,8 @@
 #+startup: overview
 #+property: header-args:scheme :noweb yes
 #+property: header-args:scheme+ :noweb-prefix yes
+#+property: header-args:shell :noweb yes
+#+property: Header-args:shell+ :noweb-prefix yes
 
 * TODO Guix
 
@@ -260,6 +262,7 @@ https://guix.gnu.org/en/manual/devel/en/html_node/Home-Configuration.html
    (services
     (list
      <<flashrom-package>>
+     <<git-sendemail-packages>>
      (service
       (service-type
        (name 'org-fc-tn-package)
@@ -391,11 +394,56 @@ https://guix.gnu.org/en/manual/devel/en/html_node/Home-Configuration.html
 *** TODO git-config
 
 #+begin_src shell :tangle data/git-config
+  <<git-sendemail-config>>
+  <<git-user-config>>
+#+end_src
+
+**** TODO User Configuration
+
+#+begin_src shell :noweb-ref git-user-config
   [user]
   name = "Marek Paśnikowski"
   email = "marekpasnikowski@protonmail.com"
 #+end_src
 
+* TODO Git Send Email
+
+https://git-send-email.io/
+
+** TODO Installation
+
+https://git-send-email.io/#step-1
+
+#+begin_src scheme :noweb-ref git-sendemail-packages
+  (service
+   (service-type
+    (name 'git-sendemail-packages)
+    (extensions
+     (list
+      (service-extension home-profile-service-type
+                         (lambda (_)
+                           (map
+                            <<to-package+output>>
+                            (list
+                             "git"
+                             "git:send-email"))))))
+    (description "Git Send Email")
+    (default-value #f)))
+#+end_src
+
+** TODO Configuration
+
+https://git-send-email.io/#step-2
+
+#+begin_src shell :noweb-ref git-sendemail-config
+  [sendemail]
+  smtpencryption = tls
+  smtpserver = localhost
+  smtpserverport = 1025
+  smtpsslcertpath = ""
+  smtpuser = marekpasnikowski@protonmail.com
+#+end_src
+
 * TODO LIBREBOOT
 
 The first layer of computing is the firmware.  The Lenovo Thinkpad X200 has
diff --git a/data/git-config b/data/git-config
index fa4d5ba..e2d58a5 100644
--- a/data/git-config
+++ b/data/git-config
@@ -1,3 +1,9 @@
+[sendemail]
+smtpencryption = tls
+smtpserver = localhost
+smtpserverport = 1025
+smtpsslcertpath = ""
+smtpuser = marekpasnikowski@protonmail.com
 [user]
 name = "Marek Paśnikowski"
 email = "marekpasnikowski@protonmail.com"
diff --git a/home-configuration.scm b/home-configuration.scm
index 09c38a9..34c2c55 100644
--- a/home-configuration.scm
+++ b/home-configuration.scm
@@ -122,6 +122,21 @@
                                    '("flashrom"))))))
      (description "Flashrom installation.")
      (default-value #f)))
+   (service
+    (service-type
+     (name 'git-sendemail-packages)
+     (extensions
+      (list
+       (service-extension home-profile-service-type
+                          (lambda (_)
+                            (map
+                             (compose list
+                                      specification->package+output)
+                             (list
+                              "git"
+                              "git:send-email"))))))
+     (description "Git Send Email")
+     (default-value #f)))
    (service
     (service-type
      (name 'org-fc-tn-package)
-- 
cgit v1.2.3