From 8367de2b74ea4eb687666b21b9d5e7b4b196113b Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Sat, 15 Apr 2023 12:03:46 -0300
Subject: bin/print: Replace pdftk with qpdf

---
 bin/print         | 6 +++---
 etc/guix/home.scm | 1 +
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/bin/print b/bin/print
index 9d2b299..f643edd 100755
--- a/bin/print
+++ b/bin/print
@@ -49,7 +49,7 @@ help() {
 }
 
 n_pages() {
-	pdftk "$1" dump_data | awk '/NumberOfPages/ { print $2 }'
+	qpdf "$1" --show-npages
 }
 
 main() {
@@ -73,8 +73,8 @@ main() {
 		return
 	fi
 
-	pdftk A=in.pdf cat Aodd  output odd.pdf
-	pdftk A=in.pdf cat Aeven output even.pdf
+	qpdf in.pdf --pages . 1-z:odd  -- odd.pdf
+	qpdf in.pdf --pages . 1-z:even -- even.pdf
 
 	NODD="$(n_pages  odd.pdf)"
 	NEVEN="$(n_pages even.pdf)"
diff --git a/etc/guix/home.scm b/etc/guix/home.scm
index 2094264..8b8c85c 100644
--- a/etc/guix/home.scm
+++ b/etc/guix/home.scm
@@ -467,6 +467,7 @@ left it off the last time it was used.")
             mdpo
             gron
             reptyr
+            qpdf
             xpdf
             ;; pdftk
             perf-tools
-- 
cgit v1.2.3