;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/printer.el

(require 'lpr)

(setq printer-name "laser-foomatic-1")

(defun print-buffer-reset-printer ()
  (interactive)
  (let ((msg "preparing printer..."))
    (message msg)
    (shell-command "reset-printer > /dev/null")
    (message (format "%sdone" msg)))
  (sleep-for 1)
  (print-buffer) )
(defalias 'doprint #'print-buffer-reset-printer)

(provide 'printer)