Commit 427a670a authored by David Byers's avatar David Byers
Browse files

Show ascent and descent rates for statistics.

Detailed changes:
> 2003-08-04  David Byers  <byers@lysator.liu.se>
>
> 	* commands2.el (kom-status-server): Show ascent and descent rates
> 	for statistics.
>
parent 17b3a85e
2003-08-04 David Byers <byers@lysator.liu.se>
* commands2.el (kom-status-server): Show ascent and descent rates
for statistics.
2003-08-04 Johan Sundström <jhs@lysator.liu.se>
* edit-text.el (lyskom-edit-fcc-text): Fix for bug 1073.
......
......@@ -3118,10 +3118,36 @@ properly in the client."
"s"))))
(lyskom-insert "\n")
(lyskom-traverse item (server-stats->values stats)
(lyskom-format-insert fmt (car item))
(lyskom-traverse val (cdr item)
(lyskom-format-insert " %=8.2.7#1f" (stats->average val)))
(lyskom-format-insert "\n"))))
(let ((start (point))
(inhibit-read-only t))
(lyskom-format-insert fmt (car item))
(lyskom-traverse val (cdr item)
(lyskom-format-insert " %=8.2.7#1f" (stats->average val)))
(lyskom-format-insert "\n")
(add-text-properties start (point) `(face ,kom-mark-face)))
(lyskom-format-insert fmt "")
(lyskom-insert " ")
(let ((index 0))
(lyskom-traverse val (cdr item)
(if (eq (elt (server-stats->when stats) index) 0)
(lyskom-insert " ")
(lyskom-format-insert " %=8.2.7#1f+"
(stats->ascent-rate val)))
(setq index (1+ index))))
(lyskom-format-insert "\n")
(lyskom-format-insert fmt "")
(lyskom-insert " ")
(let ((index 0))
(lyskom-traverse val (cdr item)
(if (eq (elt (server-stats->when stats) index) 0)
(lyskom-insert " ")
(lyskom-format-insert " %=8.2.7#1f-"
(stats->descent-rate val)))
(setq index (1+ index))))
(lyskom-format-insert "\n")
)))
;; ----------------------------------------
......
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