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

kill and refresh for ps 

part of darcs patch Sat Sep 17 19:47:08 EEST 2005  Martin Gasbichler <gasbichl@informatik.uni-tuebingen.de>
This commit is contained in:
eknauel 2005-09-27 08:59:34 +00:00
parent 60776a8c1d
commit 44bfb8f118
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/nuit-packages.scm
View File

@ -142,7 +142,7 @@
(define-structure process-viewer (define-structure process-viewer
(export) (export)
(open scheme (open scheme-with-scsh
define-record-types define-record-types
srfi-1 srfi-1
srfi-13 srfi-13

12
scheme/process.scm
View File

@ -49,6 +49,8 @@
(define-option 'ps 'sort-pid-down-key (char->ascii #\P)) (define-option 'ps 'sort-pid-down-key (char->ascii #\P))
(define-option 'ps 'sort-time-up-key (char->ascii #\t)) (define-option 'ps 'sort-time-up-key (char->ascii #\t))
(define-option 'ps 'sort-time-down-key (char->ascii #\T)) (define-option 'ps 'sort-time-down-key (char->ascii #\T))
(define-option 'ps 'kill-key (char->ascii #\k))
(define-option 'ps 'refresh-key (char->ascii #\g))
(define (make-pps-viewer processes buffer) (define (make-pps-viewer processes buffer)
(let ((processes processes) (let ((processes processes)
@ -125,6 +127,16 @@
(compare (select p1) (select p2))) (compare (select p1) (select p2)))
processes)) processes))
self)) self))
((= key (config 'ps 'kill-key))
(let ((infos
(select-list-get-selection select-list)))
(for-each
(cut signal-process <> signal/term)
(map process-info-pid infos)))
self)
((= key (config 'ps 'refresh-key))
(set-processes! (pps))
self)
(else (else
(set! select-list (set! select-list
(select-list-handle-key-press select-list key)) (select-list-handle-key-press select-list key))