+(defvar elopher-image-buffer "")
+
+(defun elopher-image-filter (proc string)
+ (setq elopher-image-buffer (concat elopher-image-buffer string)))
+
+(defun elopher-get-image (selector host port)
+ (switch-to-buffer "*elopher*")
+ (erase-buffer)
+ (setq elopher-image-buffer "")
+ (make-network-process
+ :name "elopher-process"
+ :host host
+ :service port
+ :filter #'elopher-image-filter)
+ (process-send-string "elopher-process" (concat selector "\n"))
+ (insert-image (create-image elopher-image-buffer)))
+