scsh-conservatory
/
commander-s
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display %CPU instead of TIME 

part of darcs patch Wed Sep 21 21:10:41 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 16:32:36 +00:00
parent 8e2a6cd437
commit c40ea7f252
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/process.scm
View File

@ -8,7 +8,7 @@
(make-unmarked-text-element 'pid #f (right-align-string 6 "PID "))
(make-unmarked-text-element 'ppid #f (right-align-string 6 "PPID "))
(make-unmarked-text-element 'user #f (left-align-string 9 "USER "))
(make-unmarked-text-element 'time #f (right-align-string 6 "TIME "))
(make-unmarked-text-element '%cpu #f (right-align-string 6 "%CPU "))
(make-unmarked-text-element 'command #f "COMMAND"))))
@ -19,6 +19,7 @@
((user) (values string<? string=? string>?
process-info-logname))
((time) (values < = > process-info-time))
((%cpu) (values < = > process-info-%cpu))
((command) (values string<? string=? string>?
process-info-executable))
(else
@ -34,7 +35,7 @@
" "
(left-align-string 8 (process-info-logname p))
" "
(right-align-string 5 (number->string (process-info-time p)))
(right-align-string 5 (number->string (process-info-%cpu p)))
" "
(left-align-string 100 (string-append
(process-info-executable p)