=
Hey guix!

I am still working on extending guix's current opens= mtpd-service with (guix records).

I am getting fairly close to re= alizing that goal. For example this works:

(display (opensmtpd-con= figuration->mixed-text-file
(let ([interface "wlp2s0"]
[creds = (opensmtpd-table
(name "creds")
(values
(list
(cons "josh= ua"
"$6$Ec4m8FgKjT2F/03Y$k66ABdse9TzCX6qaALB3WBL9GC1rmAWJmaoSjFMpbhza= t7DOpFqpnOwpbZ34wwsQYIK8RQlqwM1I/v6vsRq86."))))]
[receive-action (ope= nsmtpd-action-local-delivery-configuration
(name "receive")
(meth= od (opensmtpd-maildir-configuration
(pathname "/home/%{rcpt.user}/Mai= ldir")
(junk #t)))
(virtual "vusers"))]
[smtp.gnucode.me (ope= nsmtpd-pki
(domain "smtp.gnucode.me")
(cert "opensmtpd.scm")
= (key "opensmtpd.scm"))])
(opensmtpd-configuration
(mta-max-deferr= ed 50)
(queue
(opensmtpd-queue-configuration
(compression #t)= ))
(smtp
(opensmtpd-smtp-configuration
(max-message-size "10M= ")))
(srs
(opensmtpd-srs-configuration
(ttl-delay "5d")))
= (listen-ons
(list
;; this forum help suggests that I listen on 0= .0.0.0 and NOT eth0
;; https://serverfault.com/questions/726795/opens= mtpd-wont-work-at-reboot
;; this listens for email from the outside w= orld
(opensmtpd-listen-on
(interface interface)
(port 25)
= (secure-connection "tls")
(pki smtp.gnucode.me)
)
;; this le= ts local users logged into the system via ssh send email
(opensmtpd-l= isten-on
(interface "lo")
(port 25)
(secure-connection "tls")=
(pki smtp.gnucode.me))
(opensmtpd-listen-on
(interface inter= face)
(port 465)
(secure-connection "smtps")
(pki smtp.gnucod= e.me)
(auth creds)
;;(filter )
)
(opensmtpd-listen-on
= (interface interface)
(port 587)
(secure-connection "tls-require= ")
(pki smtp.gnucode.me)
(auth creds)
)))
(matches (list<= br> (opensmtpd-match
(action (opensmtpd-action-relay-configuration (name "send")))
(for (opensmtpd-match-option-configuration
(opt= ion "for any")))
(from (opensmtpd-match-option-configuration
(opt= ion "from any")))
(auth (opensmtpd-match-option-configuration
(op= tion "auth"))))
(opensmtpd-match
(action receive-action)
(fro= m (opensmtpd-match-option-configuration
(option "from any")))
(fo= r (opensmtpd-match-option-configuration
(option "for domain")
(va= lue "gnucode.me"))
;;FIXME/TODO put in a table <vdoms> here
= ;;"for domain <vdoms>"
))
(opensmtpd-match
(action rec= eive-action)
(for (opensmtpd-match-option-configuration
(option "= for local"))))))))))

;; and it outputs:

smtp max-messag= e-size 10M

srs ttl 5d

queue compression

mta = max-deferred 50

pki smtp.gnucode.me cert "opensmtpd.scm"
pki sm= tp.gnucode.me key "opensmtpd.scm"

listen on wlp2s0 tls port 25 pki= smtp.gnucode.me
listen on lo tls port 25 pki smtp.gnucode.me
liste= n on wlp2s0 smtps port 465 pki smtp.gnucode.me auth <creds>
list= en on wlp2s0 tls-require port 587 pki smtp.gnucode.me auth <creds><= br>
action "send" relay

action "receive" maildir "/home/%{rcpt= .user}/Maildir" junk virtual <vusers>

match from any for an= y auth action "send"
match from any for domain gnucode.me action "rece= ive"
match for local action "receive"

My question has t= o do with how I am handling the opensmtpd filters...Some of the opensmtpd= filter
commands execute programs. I would like to get some advice abo= ut how to let some of the
<opensmtpd-configuration>'s fieldnames= be gexps. My current opensmtpd.scm file does so:

https://notabug.org/jbranso/linode-guix-system-configuration/src= /master/opensmtpd.scm

(though I am getting some errors with th= e procedure

create-etc-dkimsign-key-file. I should probable use the guix's etc-service=
 instead). Anyway, Right now I am using a LOT of code like =

(mixed-text-file (string-append variable (string-append (funct= ion (string-append (another-function ...))))

I suppose I should in= stead change this to

(define my-list (list (function ...) (functio= n ...) (list (function (list (function ...) (function ...))))

(mix= ed-text-file (apply string-append (flatten my-list)))

BUT tha= t doesn't quite answer my issue. It would be helpful to allow some <op= ensmtpd-configuration>'s
fieldnames accept gexps. How would I allow= go about doing that?

I think that the answer would be to use guix= 's mixed-text-file*, but I am not sure how to do that elegantly...
My current code is here:

https:/= /notabug.org/jbranso/linode-guix-system-configuration/src/master/opensmtp= d-records.scm

Perhaps a more targeted question would be how do= I modify the current procedure

opensmtpd-filter-proc-exec->string record to a=
ccept gexps?

Suggestions are most welcome.

M= y thoughts about the service are here:

h= ttps://notabug.org/jbranso/linode-guix-system-configuration/src/master/op= ensmtpd.org

Thanks,

Joshua

<= br>