Commit 985f4bec authored by David Kågedal's avatar David Kågedal
Browse files

Mixtrade med scrollningen

parent 4bf24e60
Tue May 7 03:18:48 1996 David Kgedal <davidk@lysator.liu.se>
* commands1.el (kom-list-re): Stt knapp p raderna.
* commands1.el (kom-send-letter): Gr (recenter 1) istllet fr
(recenter 0).
* lyskom-rest.el (kom-page-next-command): Dito.
(kom-view,lyskom-start-of-command): Dito.
* lyskom-rest.el (lyskom-insert): Frskte gra s att den inte
hoppar ner s ofta.
* commands1.el (kom-list-clients): Uppskjut utskrift av
klientnamn.
(lyskom-deferred-client-1): Ny funktion.
(lyskom-deferred-client-2): Ny funktion.
* lyskom-rest.el (lyskom-format-aux-help): Liten ndring av
formatstrngen fr uppskjutna mtesnamn.
(lyskom-format-aux-help): Nytt format-element "D" som tar en
strng eller defer-info som argument.
* deferred-insert.el (lyskom-deferred-insert-conf): Anvnd redan
satta properties.
......
......@@ -241,7 +241,7 @@ as TYPE. If no such misc-info, return NIL"
(if (if (zerop (conf-stat->msg-of-day conf-stat))
t
(progn
(recenter 0)
(recenter 1)
(lyskom-format-insert 'has-motd
conf-stat)
(lyskom-view-text (conf-stat->msg-of-day conf-stat))
......@@ -1193,14 +1193,15 @@ If you are not member in the conference it will be flagged with an asterisk."
(let ((conf-list (blocking-do 're-z-lookup regexp 1 1)))
(mapcar
(function (lambda (czi)
(lyskom-insert
(concat
(format "%4d %c %s\n"
(conf-z-info->conf-no czi)
(if (conf-type->letterbox
(conf-z-info->conf-type czi))
?P ?M)
(conf-z-info->name czi))))))
(lyskom-format-insert
"%[%#1@%4#2:m %#3c %#4:M%]\n"
(lyskom-default-button
'conf (conf-z-info->conf-no czi))
(conf-z-info->conf-no czi)
(if (conf-type->letterbox
(conf-z-info->conf-type czi))
?P ?M)
(conf-z-info->name czi))))
(conf-z-info-list->conf-z-infos conf-list))))
......@@ -1547,7 +1548,8 @@ If MARK-NO == 0, review all marked texts."
(s-width (1+ (length (int-to-string
(who-info->connection
(nth (1- total-users) who-list))))))
(format-string (lyskom-info-line-format-string s-width "P" "s")))
(format-string (lyskom-info-line-format-string
s-width "P" (if kom-deferred-printing "D" "s"))))
(lyskom-format-insert format-string
""
(lyskom-get-string 'lyskom-name)
......@@ -1561,15 +1563,25 @@ If MARK-NO == 0, review all marked texts."
(my-session (if (= lyskom-session-no
(who-info->connection who-info))
"*"
" ")))
" "))
(client (if kom-deferred-printing
(lyskom-create-defer-info
'get-client-name
(who-info->connection who-info)
'lyskom-deferred-client-1
nil nil nil ; Filled in later
(who-info->connection who-info))
(blocking-do-multiple
((name (get-client-name
(who-info->connection who-info)))
(version (get-client-version
(who-info->connection who-info))))
(concat name " " version)))))
(lyskom-format-insert
format-string
(concat session-no my-session)
(who-info->pers-no who-info)
(blocking-do-multiple
((name (get-client-name (who-info->connection who-info)))
(version (get-client-version (who-info->connection who-info))))
(concat name " " version))))
client))
(setq who-list (cdr who-list)))
(lyskom-insert (concat (make-string (- (lyskom-window-width) 2) ?-)
......@@ -1577,6 +1589,19 @@ If MARK-NO == 0, review all marked texts."
(lyskom-insert (lyskom-format 'total-users total-users))))
(defun lyskom-deferred-client-1 (name defer-info)
(initiate-get-client-version 'deferred
'lyskom-deferred-client-2
(defer-info->data defer-info)
defer-info
name))
(defun lyskom-deferred-client-2 (version defer-info name)
(lyskom-replace-deferred defer-info (if (zerop (length name))
"-"
(concat name " " version))))
(defun lyskom-info-line-format-string (prefixlen type1 type2)
"Return a format string suitable for inserting who-info lines etc."
......
......@@ -114,7 +114,7 @@
(defun lyskom-defer-insertion (defer-info)
"Defer insertion of something.
The insertion will be at (point)."
(goto-char (defer-info->pos defer-info))
;; (goto-char (defer-info->pos defer-info))
(funcall (intern-soft (concat "initiate-"
(symbol-name (defer-info->server-call
defer-info))))
......
No preview for this file type
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment