(let ((command-line (get-keyword-value rest #:command-line #f))
(args (get-keyword-value rest #:args (list)))
(start-trigger (get-keyword-value rest #:start-trigger 'login))
(let ((command-line (get-keyword-value rest #:command-line #f))
(args (get-keyword-value rest #:args (list)))
(start-trigger (get-keyword-value rest #:start-trigger 'login))