- (elopher-get-selector address
- (lambda (proc event)
- (let ((image (create-image
- (string-as-unibyte elopher-selector-string)
- nil t))
- (inhibit-read-only t))
- (insert-image image)
- (elopher-restore-pos)
- (elopher-set-node-content elopher-current-node image)))))))
-
-
+ (progn
+ (let ((inhibit-read-only t))
+ (insert "LOADING IMAGE..."))
+ (elopher-get-selector address
+ (lambda (proc event)
+ (let ((image (create-image
+ (string-as-unibyte elopher-selector-string)
+ nil t))
+ (inhibit-read-only t))
+ (erase-buffer)
+ (insert-image image)
+ (setq cursor-type nil)
+ (elopher-restore-pos)
+ (elopher-set-node-content elopher-current-node image))))))))
+
+;; Search retrieval
+
+(defun elopher-get-search-node ()
+ (let* ((content (elopher-node-content elopher-current-node))
+ (address (elopher-node-address elopher-current-node))
+ (search-address (elopher-make-address (concat (elopher-address-selector address)
+ "\t"
+ (read-from-minibuffer "Query: "))
+ (elopher-address-host address)
+ (elopher-address-port address))))
+ (let ((inhibit-read-only t))
+ (insert "LOADING RESULTS..."))
+ (elopher-get-selector search-address
+ (lambda (proc event)
+ (let ((inhibit-read-only t))
+ (erase-buffer)
+ (elopher-insert-index elopher-selector-string))
+ (elopher-restore-pos)
+ (elopher-set-node-content elopher-current-node
+ (buffer-string))))))
+