1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
|
;;;;; -*-coding: iso-8859-1;-*-
;;;;;
;;;;; Copyright (C) 1991-2002 Lysator Academic Computer Association.
;;;;;
;;;;; This file is part of the LysKOM Emacs LISP client.
;;;;;
;;;;; LysKOM is free software; you can redistribute it and/or modify it
;;;;; under the terms of the GNU General Public License as published by
;;;;; the Free Software Foundation; either version 2, or (at your option)
;;;;; any later version.
;;;;;
;;;;; LysKOM is distributed in the hope that it will be useful, but WITHOUT
;;;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;;;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
;;;;; for more details.
;;;;;
;;;;; You should have received a copy of the GNU General Public License
;;;;; along with LysKOM; see the file COPYING. If not, write to
;;;;; Lysator, c/o ISY, Linkoping University, S-581 83 Linkoping, SWEDEN,
;;;;; or the Free Software Foundation, Inc., 675 Mass Ave, Cambridge,
;;;;; MA 02139, USA.
;;;;;
;;;;; Please mail bug reports to bug-lyskom@lysator.liu.se.
;;;;;
;;;; ================================================================
;;;; ================================================================
;;;;
;;;; File: deferred-insert.el
;;;;
;;;; This file includes functions for deffering insertion of
;;;; information into the LysKOM buffer.
;;;;
;;;
;;; How to defer a peice of text:
;;; =============================
;;;
;;; 1. Insert some temporary text. Use the variable
;;; `lyskom-defer-indicator' as a placeholder.
;;;
;;; 2. Create a defer-info-structure by calling
;;; `lyskom-create-defer-info' with the following parameters
;;;
;;; SERVER-CALL - the call to get the data (initate-get-*)
;;; CALL-ARG - the argument for the server call. This is
;;; limited to a single argument, which is enough
;;; for get-conf-stat and friends.
;;; HANDLER - the function to be called to insert the
;;; "real" data.
;;; POS - a marker indicating where the insertion
;;; should be placed.
;;; DEL-CHARS - an integer indicating how many characters
;;; from POS on should be replaced by the "real"
;;; text.
;;; FORMAT - a format string for inserting the real
;;; data. This should normally only contain a
;;; single format atom using argument 1
;;; (i.e. "%#1P").
;;; DATA - any data that you might want to use in
;;; HANDLER.
;;;
;;; 3. Call `lyskom-defer-insertion' with the defer-info as argument.
;;;
;;; 4. Write a handler function that takes two arguments, the server
;;; reply and the defer-info. This function should replace the
;;; temporary text. A convenient way to do this is to use
;;; `lyskom-replace-deferred'.
;;;
;;; 5. Sit back and watch it work.
;;;
;;; Notes:
;;;
;;; POS must be located before the temporary text. DEL-CHARS should
;;; usually be set to (length lyskom-defer-indicator). Don't count on
;;; it to be 5.
;;;
;;; Steps 1 and 2 are often implemented the other way around, or at
;;; least the POS parameter is determined before any text is
;;; inserted.
;;;
;;; You should only defer text if kom-deferred-printing is non-nil.
;;;
;;; Type: defer-info
(def-komtype defer-info
(server-call
call-par
handler
pos
del-chars
format
&optional
data
(last-viewed :automatic lyskom-last-viewed)))
(defun lyskom-defer-insertion (defer-info)
"Defer insertion of something.
The insertion will be at (point)."
(set-defer-info->last-viewed defer-info lyskom-last-viewed)
;; (goto-char (defer-info->pos defer-info))
(if (and (defer-info->call-par defer-info)
(listp (defer-info->call-par defer-info)))
(apply (intern-soft (concat "initiate-"
(symbol-name (defer-info->server-call
defer-info))))
'deferred
(defer-info->handler defer-info)
(append (defer-info->call-par defer-info) (list defer-info)))
(funcall (intern-soft (concat "initiate-"
(symbol-name (defer-info->server-call
defer-info))))
'deferred
(defer-info->handler defer-info)
(defer-info->call-par defer-info)
defer-info)))
(defun lyskom-replace-deferred (defer-info &rest replacement-data)
"Replace some defered text."
(save-excursion
(when (marker-buffer (defer-info->pos defer-info))
(set-buffer (marker-buffer (defer-info->pos defer-info))))
(goto-char (defer-info->pos defer-info))
(apply 'lyskom-format-insert-at-point
(defer-info->format defer-info)
replacement-data)
(let ((inhibit-read-only t))
(delete-char (defer-info->del-chars defer-info)))
(set-marker (defer-info->pos defer-info) nil))
(if lyskom-executing-command
nil
(let ((window (get-buffer-window lyskom-buffer)))
(if window
(if (lyskom-pos-visible-in-window-p (point-max) window)
nil
;; This means that this insertion moved point out of the
;; window. The scrolling becomes tricky. One big problem is
;; that we can't use lyskom-last-viewed, because it has been
;; updated to the new prompt. Until that is solved we make
;; sure that we never scroll.
;;
;; The solution is to save lyskom-last-viewed in the defer-info
(save-selected-window
(select-window window)
(lyskom-scroll))
)))))
(defun lyskom-deferred-insert-conf (conf-stat defer-info)
"Insert the name of a conference at a previously reserved place."
(lyskom-replace-deferred
defer-info
(if (null conf-stat)
(lyskom-format
(or (defer-info->data defer-info)
(if (= (aref (defer-info->format defer-info)
(1- (length (defer-info->format defer-info))))
?P)
(if (= (defer-info->call-par defer-info) 0)
'person-is-anonymous
'person-does-not-exist)
'conference-does-not-exist))
(defer-info->call-par defer-info))
conf-stat)
(text-properties-at (defer-info->pos defer-info))))
|
