bin/print: Replace pdftk with qpdf

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