- (let ((SUDO (if (exec "command -v sudo") ($it 0) "/usr/bin/sudo")))
- (wait-pid (process (join (cons SUDO (main-args) " ")))))
- (exit 0))
+ (let ((SUDO (if (exec "command -v sudo") ($it 0) "/usr/bin/sudo"))
+ (ED (format "env EDITOR=%s" (or (env "EDITOR") "nano"))) )
+ (wait-pid (process (join (flat (list SUDO ED (main-args))) " ")))
+ (exit 0)))