chris/emacs
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

printind pdf tweaks

Browse source
This commit is contained in:
Chris Cochrun 2023-09-20 09:41:11 -05:00
parent 1992fca849
commit 612f521567
2 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
README.org
View file

@ -3951,7 +3951,11 @@ Let's use pdf-tools for a lot better interaction with pdfs.
"Print the pdf in as many copies as needed" "Print the pdf in as many copies as needed"
(interactive) (interactive)
(let* ((copies (completing-read "How many copies: " '("1" "2" "3"))) (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" "-o sides=two-sided-long-edge"))) (sides (completing-read "Print both sides or one? " '("two sided" "one sided")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot"
,(if (string= sides "two sided")
"-o sides=two-sided-long-edge"
""))))
(message "printing %s copies." copies) (message "printing %s copies." copies)
(pdf-misc-print-document (buffer-file-name)))) (pdf-misc-print-document (buffer-file-name))))

6
init.el
View file

@ -2875,7 +2875,11 @@ targets."
"Print the pdf in as many copies as needed" "Print the pdf in as many copies as needed"
(interactive) (interactive)
(let* ((copies (completing-read "How many copies: " '("1" "2" "3"))) (let* ((copies (completing-read "How many copies: " '("1" "2" "3")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot" "-o sides=two-sided-long-edge"))) (sides (completing-read "Print both sides or one? " '("two sided" "one sided")))
(pdf-misc-print-program-args `("-o media=Letter" ,(format "-# %s" copies) "-o fitplot"
,(if (string= sides "two sided")
"-o sides=two-sided-long-edge"
""))))
(message "printing %s copies." copies) (message "printing %s copies." copies)
(pdf-misc-print-document (buffer-file-name)))) (pdf-misc-print-document (buffer-file-name))))