ambrevar/file: Add width and height methods.

.local/share/common-lisp/source/ambrevar/file.lisp

@@ -304,3 +304,15 @@ See `%description'."
 (defun mediafinder (root &rest predicates)
   (let ((*finder-constructor* #'mediafile))
     (apply #'finder root predicates)))
+
+(export-always 'width)
+(defmethod width ((file mediafile))
+  (ambrevar/ffprobe:width
+   (find-if #'plusp (media-streams file)
+            :key #'ambrevar/ffprobe:width)))
+
+(export-always 'height)
+(defmethod height ((file mediafile))
+  (ambrevar/ffprobe:height
+   (find-if #'plusp (media-streams file)
+            :key #'ambrevar/ffprobe:height)))

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -247,7 +247,7 @@ Example:
   (apply #'%cmd<-> #'cmd> args))
 
 (export-always 'tee)
-(defun tee (input-stream)
+(defun tee (input-stream)               ; TODO: Real `tee' with separate process.
   "Return the INPUT-STREAM and its string representation as a second value."
   (let ((result
           (uiop:slurp-stream-string input-stream :stripped t)))