From 45be8b7f1e4bc046fd2e5b1a6bdf4c6db4057788 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 5 Apr 2026 11:01:21 +0200
Subject: Use the short fetch-pubmed -path /path/to/archive → xfetch -db pubmed
 replacement instead!

---
 guix.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'guix.scm')

diff --git a/guix.scm b/guix.scm
index a67e737..905f1ac 100644
--- a/guix.scm
+++ b/guix.scm
@@ -116,8 +116,8 @@ detection tokenizer (tab format), used by NLTK's sent_tokenize function.")
                                         "/share/minipubmed")))
                 ;; Generate test.xml from pmid.list
                 (with-directory-excursion "minipubmed"
-                  ;; Generate test.xml by looking up PMIDs in the local archive
-                  (system "for uid in $(cat pmid.list); do p=$(printf '%.2s/%.2s/%.2s' \"$uid\" \"${uid#??}\" \"${uid#????}\"); f=PubMed/Archive/${p}/${uid}.xml.gz; [ -f \"$f\" ] && zcat \"$f\"; done > test.xml"))
+                  ;; Generate test.xml from pmid.list using xfetch
+                  (system "cat pmid.list | xfetch -db pubmed > test.xml"))
                 (mkdir-p out)
                 (copy-recursively "minipubmed" out)))))))
     (inputs (list edirect-25))
-- 
cgit 1.4.1