From 2764f4ce314814eb172bb8ca70e8fabfc07971d9 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 3 May 2025 06:45:32 -0300
Subject: Update "mkwb", "euandre.org" and "papo.im"

---
 src/org/euandre/papo.scm | 29 +++++++++++++++++++----------
 1 file changed, 19 insertions(+), 10 deletions(-)

(limited to 'src/org/euandre/papo.scm')

diff --git a/src/org/euandre/papo.scm b/src/org/euandre/papo.scm
index e10c1ef..db6bc0b 100644
--- a/src/org/euandre/papo.scm
+++ b/src/org/euandre/papo.scm
@@ -1,8 +1,10 @@
 (define-module (org euandre papo)
   #:use-module ((org euandre packages) #:prefix pkg:)
   #:use-module ((org euandre queue) #:prefix q:)
+  #:use-module (guix gexp)
   #:use-module (guix packages)
   #:use-module (guix records)
+  #:use-module (guix utils)
   #:export (<papod-configuration>
              papod-configuration
         make-papod-configuration
@@ -23,16 +25,23 @@
 
 
 (define-public papo.im
-  (package
-    (inherit
-      (pkg:pkg
-       "papo.im"
-       "05d41463b179b65c63997d7ce468232e5bf2689a"
-       "0dgxl35ri9c049p66zxs442bgblxy7w3rdi65z01sx5mg5jir2q2"))
-    (native-inputs
-      (append
-       (pkg:format-inputs (list pkg:mkwb))
-       (pkg:normalize-inputs '(gnupg jq rsync))))))
+  (let ((pkg (pkg:pkg
+              "papo.im"
+              "be22c1406aa9cd4beeeb38ad81433c4ecf7b65ce"
+              "0biz39rzmh5wj6cx9gzsvq37ryrrajvhdf1s669cnnjvp94s3d6z")))
+    (package
+      (inherit pkg)
+      (native-inputs
+        (append
+         (pkg:format-inputs (list pkg:mkwb))
+         (pkg:normalize-inputs '(gnupg jq rsync po4a gettext ghostscript))))
+      (arguments
+        (substitute-keyword-arguments (package-arguments pkg)
+          ((#:phases phases)
+           #~(modify-phases #$phases
+               (add-before 'build 'sethome-ghostscript
+               (lambda _
+                 (setenv "HOME" (getcwd)))))))))))
 
 (define-public chat.papo.im
   (package
-- 
cgit v1.2.3