Add src/org/euandre/papo.scm

2 files changed, 122 insertions, 3 deletions

diff --git a/src/org/euandre/packages.scm b/src/org/euandre/packages.scm
index a1d46da..29587e9 100644
--- a/src/org/euandre/packages.scm
+++ b/src/org/euandre/packages.scm
@@ -1007,6 +1007,4 @@ The default configuration should provide sane values for all of these."
  untls
  wscat
  q
- gracha
- #;
- papod)
+ gracha)
diff --git a/src/org/euandre/papo.scm b/src/org/euandre/papo.scm
new file mode 100644
index 0000000..57904fe
--- /dev/null
+++ b/src/org/euandre/papo.scm
@@ -0,0 +1,121 @@
+(define-module (org euandre papo)
+  #:use-module ((org euandre packages) #:prefix pkg:)
+  #:use-module ((org euandre queue) #:prefix q:)
+  #:use-module (guix packages)
+  #:use-module (guix records)
+  #:export (<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-extra-mappings
+             papod-configuration-options
+             papod-configuration-listen-socket
+             papod-configuration-upstream-socket))
+
+
+
+(define-public papo.im
+  (package
+    (inherit
+      (pkg:pkg
+       "papo.im"
+       "ce25cb37a8170d9b8337f48c27b906e4580cc2cd"
+       "0nhblligf94ai0v5y34z6bzwla5p4224lzr79prl84piyhsbng8s"))
+    (native-inputs
+      (pkg:format-inputs
+       (list
+        pkg:mkwb)))))
+
+(define-public status.papo.im
+  (package
+    (inherit
+      (pkg:pkg
+       "status.papo.im"
+       "ef161641420b2786e176cce4e5ace4934c7122c7"
+       "1nhbx83bckdmffw1c2gi8da8rd66ccmvlmfrinwfwz78lnlz8a9j"))
+    (native-inputs
+      (pkg:format-inputs
+       (list
+        pkg:mkwb)))))
+
+(define-public chat.papo.im
+  (package
+    (inherit
+      (pkg:pkg
+       "chat.papo.im"
+       "54739a1dd3ef82945f8d8e9838e9091d5b357237"
+       "0ry0yx5sv62bgfvyvz7cm6k5chp9wkwx8q7hrrslsi2cvs1jv8x7"))
+    (native-inputs
+      (pkg:normalize-inputs '(node)))))
+
+(define-public papod
+  (pkg:gopkg
+   "papod"
+   (pkg:format-inputs
+    (list
+     pkg:guuid
+     pkg:golite q:sqlitex
+     pkg:scrypt q:scryptkdf
+     pkg:gobang
+     pkg:eut))
+   "db0315223571daaf43ab5e8456bed7f3d7f9dafa"
+   "0nxxyjf9qpc9lmjxmmfdc3qgjn1pdgip4mi3xn20vqzxig2hs1kx"))
+
+
+
+(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"))
+  (extra-mappings    papod-configuration-extra-mappings
+                     (default '()))
+  (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
+        papo.im
+ status.papo.im
+   chat.papo.im
+#;
+ papod)