aboutsummaryrefslogtreecommitdiff
path: root/src/org/euandre/packages.scm
diff options
context:
space:
mode:
Diffstat (limited to 'src/org/euandre/packages.scm')
-rw-r--r--src/org/euandre/packages.scm122
1 files changed, 104 insertions, 18 deletions
diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index c3b2dc5..cc27bfc 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -131,6 +131,23 @@
cicd-configuration-run-in-container?
cicd-configuration-container-name
+ <papod-configuration>
+ papod-configuration
+ make-papod-configuration
+ papod-configuration?
+ papod-configuration-name
+ papod-configuration-package
+ papod-configuration-user
+ papod-configuration-group
+ papod-configuration-log-file
+ papod-configuration-data-directory
+ papod-configuration-run-directory
+ papod-configuration-run-in-container?
+ papod-configuration-container-name
+ papod-configuration-options
+ papod-configuration-listen-socket
+ papod-configuration-upstream-socket
+
fmt
str
service-type-for))
@@ -297,25 +314,34 @@
(propagated-inputs
(format-inputs (list eut adoc eslaides)))))
+(define-public (mkwbsite pkg)
+ (package
+ (inherit pkg)
+ (native-inputs
+ (append
+ (format-inputs (list mkwb mktorrent-latest))
+ (normalize-inputs '(gnupg jq rsync po4a gettext ghostscript moreutils))))
+ (arguments
+ (substitute-keyword-arguments (package-arguments pkg)
+ ((#:phases phases)
+ #~(modify-phases #$phases
+ (add-before 'build 'sethome-ghostscript
+ (lambda _
+ (setenv "HOME" (getcwd))))))))))
+
(define-public euandre.org
- (let ((pkg (pkg
- "euandre.org"
- "6e493d66649925fccaa351f65ee6cac2dedf264f"
- "05isnj2mmwg6k1qd94r3yaycy556f5d7br3f2vdmriqazrgj0grg")))
- (package
- (inherit pkg)
- (native-inputs
- (append
- (format-inputs (list mkwb mktorrent-latest))
- (normalize-inputs '(gnupg jq rsync po4a gettext ghostscript moreutils))))
- (arguments
- (substitute-keyword-arguments (package-arguments pkg)
- ((#:phases phases)
- #~(modify-phases #$phases
- (add-before 'build 'sethome-ghostscript
- (lambda _
- (setenv "HOME" (getcwd)))))))))))
+ (mkwbsite
+ (pkg
+ "euandre.org"
+ "6e493d66649925fccaa351f65ee6cac2dedf264f"
+ "05isnj2mmwg6k1qd94r3yaycy556f5d7br3f2vdmriqazrgj0grg")))
+(define-public papo.im
+ (mkwbsite
+ (pkg
+ "papo.im"
+ "fa07fa576e07b4cc6b7c9123bd3a6c91e6afc609"
+ "084w89v15nmr45nv9av8pz7iq99aw3ggaxr0gzqfjbskb3wvvkml")))
(define-public (format-inputs l)
@@ -495,6 +521,24 @@
"2171a9ce7d03c75e20754536c603cad401919dfa"
"10459is48i21iry3kamdl7cr88smw172bw7s0s8k30n9b4sm6f0q"))
+(define-public chat.papo.im
+ (package
+ (inherit
+ (pkg
+ "chat.papo.im"
+ "f9c959b2d8e36460395a425a51d480fac635c5ec"
+ "0h2y0kdfzpsgi64zi7brnj1p0dqz0fx4ksvy57wakr7pvv6rpf64"))
+ (native-inputs
+ (normalize-inputs '(node)))))
+
+(define-public papod
+ (gopkg
+ "papod"
+ (format-inputs
+ (list stm pds golite q:sqlitex scrypt q:scryptkdf fiinha cracha))
+ "ecd7797abb3b43226532b0bace7ba9f1e5ac277d"
+ "1570gn5rqx8h84jf3qb0qxdb08449ig26vsyj6ccp3m4h8z0vcfn"))
+
(define-public (user-accounts users)
@@ -1170,6 +1214,44 @@ The default configuration should provide sane values for all of these."
(description (fmt "The CI agent service that backs a Git server."))))
+(define-record-type* <papod-configuration>
+ papod-configuration
+ make-papod-configuration
+ papod-configuration?
+ (name papod-configuration-name
+ (default "papod"))
+ (package papod-configuration-package
+ (default papod))
+ (user papod-configuration-user
+ (default "papod"))
+ (group papod-configuration-group
+ (default "papod"))
+ (log-file papod-configuration-log-file
+ (default "/var/log/papod/papod.log"))
+ (data-directory papod-configuration-data-directory
+ (default "/var/lib/papod"))
+ (run-directory papod-configuration-run-directory
+ (default "/var/run/papod"))
+ (run-in-container? papod-configuration-run-in-container?
+ (default #t))
+ (container-name papod-configuration-container-name
+ (default "papod-container"))
+ (options papod-configuration-options
+ (default '()))
+ (listen-socket papod-configuration-listen-socket
+ (default "/var/run/papod/papod.socket"))
+ (upstream-socket papod-configuration-upstream-socket
+ (default #f)))
+
+
+#;
+(define-public papod-service-type
+ (pkg:service-type-for 'papod
+ <papod-configuration>
+ (papod-configuration)
+ '()))
+
+
(list
mktorrent-latest
@@ -1201,4 +1283,8 @@ The default configuration should provide sane values for all of these."
gistatic
urubu
fiinha
- cracha)
+ cracha
+
+ papo.im
+ chat.papo.im
+ papod)