The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3d8242a
)
Using sentinels to draw images after loading.
author
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 16 Apr 2019 22:55:40 +0000
(
00:55
+0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Tue, 16 Apr 2019 22:55:40 +0000
(
00:55
+0200)
elopher.el
patch
|
blob
|
history
diff --git
a/elopher.el
b/elopher.el
index
2907e95
..
fb790a7
100644
(file)
--- a/
elopher.el
+++ b/
elopher.el
@@
-43,7
+43,7
@@
(pcase type
(?i (elopher-insert-margin)
(insert (propertize display-string
(pcase type
(?i (elopher-insert-margin)
(insert (propertize display-string
- 'face '(foreground-color. "gray"))))
+ 'face '(foreground-color
. "gray"))))
(?0 (elopher-insert-margin "T")
(insert-text-button display-string
'face '(foreground-color . "white")
(?0 (elopher-insert-margin "T")
(insert-text-button display-string
'face '(foreground-color . "white")
@@
-83,7
+83,7
@@
(elopher-process-record line)))
(setq elopher-incomplete-record (elt lines idx))))))
(elopher-process-record line)))
(setq elopher-incomplete-record (elt lines idx))))))
-(defun elopher-get-selector (selector host port filter)
+(defun elopher-get-selector (selector host port filter
&optional sentinel
)
(switch-to-buffer "*elopher*")
(elopher-mode)
(let ((inhibit-read-only t))
(switch-to-buffer "*elopher*")
(elopher-mode)
(let ((inhibit-read-only t))
@@
-93,7
+93,8
@@
:name "elopher-process"
:host host
:service (if port port 70)
:name "elopher-process"
:host host
:service (if port port 70)
- :filter filter)
+ :filter filter
+ :sentinel sentinel)
(process-send-string "elopher-process" (concat selector "\n")))
(defun elopher-index-filter (proc string)
(process-send-string "elopher-process" (concat selector "\n")))
(defun elopher-index-filter (proc string)
@@
-130,10
+131,13
@@
(defun elopher-image-filter (proc string)
(setq elopher-image-buffer (concat elopher-image-buffer string)))
(defun elopher-image-filter (proc string)
(setq elopher-image-buffer (concat elopher-image-buffer string)))
+(defun elopher-image-sentinel (proc event)
+ (let ((inhibit-read-only t))
+ (insert-image (create-image elopher-image-buffer))))
+
(defun elopher-get-image (selector host port)
(setq elopher-image-buffer "")
(defun elopher-get-image (selector host port)
(setq elopher-image-buffer "")
- (elopher-get-selector selector host port #'elopher-image-filter)
- (insert-image (create-image elopher-image-buffer)))
+ (elopher-get-selector selector host port #'elopher-image-filter #'elopher-image-sentinel))
(defun elopher-history-back ()
(interactive)
(defun elopher-history-back ()
(interactive)
@@
-160,7
+164,7
@@
(interactive)
(elopher-get-index "" (read-from-minibuffer "Gopher host: ") 70))
(interactive)
(elopher-get-index "" (read-from-minibuffer "Gopher host: ") 70))
-(elopher-get-index "" "gopher.floodgap.com" 70)
-
;;
(elopher-get-image "/fun/xkcd/comics/2130/2137/text_entry.png" "gopher.floodgap.com" 70)
+
;;
(elopher-get-index "" "gopher.floodgap.com" 70)
+(elopher-get-image "/fun/xkcd/comics/2130/2137/text_entry.png" "gopher.floodgap.com" 70)
;;; elopher.el ends here
;;; elopher.el ends here