[elpa] externals/srht fe0dc86726 3/4: Update guix.scm.

[ELPA Syncer]

branch: externals/srht
commit fe0dc867266921caafe65b6deb8481911180caba
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    Update guix.scm.
---
 guix.scm | 48 ++++++++++++++++++++++--------------------------
 1 file changed, 22 insertions(+), 26 deletions(-)

diff --git a/guix.scm b/guix.scm
index b22702a8f1..86b1423182 100644
--- a/guix.scm
+++ b/guix.scm
@@ -24,33 +24,11 @@
              (guix build-system emacs)
              ((guix licenses) #:prefix license:)
              (gnu packages emacs)
+             (gnu packages emacs-xyz)
              (ice-9 receive)
              (ice-9 popen)
              (ice-9 rdelim))
 
-(define-public emacs-plz
-  (let ((commit "1d3efc036c9fdb7242499575e4d6bdcc928b0539")
-        (revision "2")
-        (version "0.1-pre"))
-    (package
-      (name "emacs-plz")
-      (version (git-version version revision commit))
-      (source
-       (origin
-         (method git-fetch)
-         (uri (git-reference
-               (url "https://github.com/alphapapa/plz.el";)
-               (commit commit)))
-         (file-name (git-file-name name version))
-         (sha256
-          (base32
-           "1vfa4igsvgspfx6qqzgdxb86hgbkcdr8hf63hr98yqfh7dngqjnz"))))
-      (build-system emacs-build-system)
-      (home-page "https://github.com/alphapapa/plz.el";)
-      (synopsis "GNU Emacs HTTP library")
-      (description #f)
-      (license license:gpl3+))))
-
 (define (last-commit-hash)
   (receive (in out pids)
       (pipeline `(("git" "rev-parse" "HEAD")))
@@ -59,16 +37,34 @@
       (close out)
       val)))
 
+(define %source-dir (dirname (current-filename)))
+
 (define-public emacs-srht
   (let ((commit (last-commit-hash))
         (revision "0")
-        (version "0.2"))
+        (version "0.3"))
     (package
       (name "emacs-srht")
       (version (git-version version revision commit))
-      (source (local-file "./lisp" #:recursive? #t))
+      (source (local-file %source-dir
+                          #:recursive? #t
+                          #:select? (git-predicate %source-dir)))
       (build-system emacs-build-system)
-      (arguments (list #:emacs emacs-next))
+      (arguments
+       (list
+        #:emacs emacs-next
+        #:tests? #t
+        #:test-command #~(list "emacs" "--batch"
+                               "-l" "tests/srht-test.el"
+                               "-f" "ert-run-tests-batch-and-exit")
+        #:phases
+        #~(modify-phases %standard-phases
+            (add-after 'unpack 'move-source-files
+              (lambda _
+                (let ((el-files (find-files "./lisp" ".*\\.el$")))
+                  (for-each (lambda (f)
+                              (rename-file f (basename f)))
+                            el-files)))))))
       (propagated-inputs (list emacs-plz))
       (home-page "https://git.sr.ht/~akagi/srht.el";)
       (synopsis "Interact with sourcehut")