brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Implement listing mailman3 lists.

Browse source
This commit is contained in:
Dominik Pantůček 2023-09-15 17:35:12 +02:00
parent f5291607af
commit 6af6349a1e
3 changed files with 11 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Makefile
View file

@ -532,12 +532,12 @@ util-bst-lset.import.scm: $(UTIL-BST-LSET-SOURCES)
MAILMAN-SOURCES=mailman.scm mailman2.import.scm \ MAILMAN-SOURCES=mailman.scm mailman2.import.scm \
mailman-common.import.scm util-bst-lset.import.scm \ mailman-common.import.scm util-bst-lset.import.scm \
configuration.import.scm configuration.import.scm mailman3.import.scm
mailman.o: mailman.import.scm mailman.o: mailman.import.scm
mailman.import.scm: $(MAILMAN-SOURCES) mailman.import.scm: $(MAILMAN-SOURCES)
MAILMAN-COMMON-SOURCES: mailman-common.scm MAILMAN-COMMON-SOURCES=mailman-common.scm util-bst-lset.import.scm
mailman-common.o: mailman-common.import.scm mailman-common.o: mailman-common.import.scm
mailman-common.import.scm: $(MAILMAN-COMMON-SOURCES) mailman-common.import.scm: $(MAILMAN-COMMON-SOURCES)

6
src/mailman.scm
View file

@ -49,7 +49,8 @@
mailman2 mailman2
mailman-common mailman-common
util-bst-lset util-bst-lset
configuration) configuration
mailman3)
;; Syntax for simplifying export of case-version procedures ;; Syntax for simplifying export of case-version procedures
(define-syntax define-mailman-proc (define-syntax define-mailman-proc
@ -68,7 +69,8 @@
((2) (apply proc2 args)) ((2) (apply proc2 args))
((3) (apply proc3 args)))))))) ((3) (apply proc3 args))))))))
(define-mailman-proc list-mailman-lists list-mailman2-lists) (define-mailman-proc list-mailman-lists
list-mailman2-lists list-mailman3-lists)
(define-mailman-proc list-mailman-list-members list-mailman2-list-members) (define-mailman-proc list-mailman-list-members list-mailman2-list-members)
(define-mailman-proc load-mailman-list load-mailman2-list) (define-mailman-proc load-mailman-list load-mailman2-list)
(define-mailman-proc load-mailman-lists load-mailman2-lists) (define-mailman-proc load-mailman-lists load-mailman2-lists)

5
src/mailman3.scm
View file

@ -28,6 +28,7 @@
(module (module
mailman3 mailman3
( (
list-mailman3-lists
) )
(import scheme (import scheme
@ -46,4 +47,8 @@
cmd cmd
(append args0 args1)))) (append args0 args1))))
;; Returns the list of available lists
(define (list-mailman3-lists)
(get-mailman3-output-lines "lists -q"))
) )