cl-ipp

commit a2dd25809c045da65c80ff9678d642e882126a6b
parent 07279832f5815cc62252d1f0593923a56cbd84b6
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sat, 10 Aug 2013 21:09:05 +0200

compute username automatically

Diffstat:
M
ipp.lisp
 | 
11
++++++-----

1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/ipp.lisp b/ipp.lisp
@@ -224,6 +224,9 @@
   (with-open-file (s response-file :element-type '(unsigned-byte 8))
     (read-ipp (rw:byte-reader s) request-id)))
 
+(defun user-name ()
+  (car (last (pathname-directory (user-homedir-pathname)))))
+
 (defun print-job (ipp-client
                   printer-uri
                   request-file
@@ -233,7 +236,7 @@
                   &key
                     (attributes-charset "utf-8")
                     (attributes-natural-language "en")
-                    requesting-user-name
+                    (requesting-user-name (user-name))
                     job-name
                     ipp-attribute-fidelity
                     document-name
@@ -337,8 +340,7 @@
                "request2.dat"
                "response2.dat"
                "test.txt"
-               314
-               :requesting-user-name "tomas")
+               314)
 
 #+nil
 (ipp:list-printers 'ipp-client
@@ -377,8 +379,7 @@
                "request2.dat"
                "response2.dat"
                "test.txt"
-               314
-               :requesting-user-name "tomas")
+               314)
 
 #+nil
 (ipp:list-printers 'ipp-client