Sangui/lsm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Minor fix

Browse source
This commit is contained in:
Mikhail Kiselev 2023-08-08 22:33:21 -05:00
parent ca3050a9db
commit ec63c5b7ce
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lsmd.cl
View file

@ -1,7 +1,6 @@
#!/usr/bin/env -S sbcl --script #!/usr/bin/env -S sbcl --script
(load "~/.local/share/common-lisp/quicklisp/setup.lisp") (load "~/.local/share/common-lisp/quicklisp/setup.lisp")
(ql:quickload "sb-posix")
(ql:quickload "uiop") (ql:quickload "uiop")
(ql:quickload "bordeaux-threads") (ql:quickload "bordeaux-threads")
(ql:quickload "usocket") (ql:quickload "usocket")
@ -25,7 +24,7 @@
(defun unix-to-timedate(unix-time) (defun unix-to-timedate(unix-time)
(multiple-value-bind (seconds minutes hours day month year) (decode-universal-time (unix-to-universal-time unix-time)) (multiple-value-bind (seconds minutes hours day month year) (decode-universal-time (unix-to-universal-time unix-time))
(format nil "~D/~D/~D; ~D:~D.~D" month day (- year *current-millennium-AD*) hours minutes seconds)) (format nil "~D/~D/~D--~D:~D.~D" month day (- year *current-millennium-AD*) hours minutes seconds))
) )
(defun err(errno &optional str) (defun err(errno &optional str)
@ -133,7 +132,7 @@
:name (concatenate 'string progr "on lsm")) :name (concatenate 'string progr "on lsm"))
(cond ((getf progline :secs) (cond ((getf progline :secs)
(sleep (parse-integer (getf progline :secs))) ;does * work here? also remember to do config checking rather than parsing the int here. (sleep (parse-integer *)) ;Should work here I think. also remember to do config checking rather than parsing the int here.
(cond ((plusp (slot-value nfo 'uiop/launch-program::exit-code)) (cond ((plusp (slot-value nfo 'uiop/launch-program::exit-code))
(return-from start (neterr 13 progr)))))) ;TODO: Turn this into an AND or something cuz it's ugly (return-from start (neterr 13 progr)))))) ;TODO: Turn this into an AND or something cuz it's ugly
@ -173,9 +172,13 @@
((zerop exitcode) ((zerop exitcode)
(format nil "~C[32mfinished~C[0m" esc esc)) (format nil "~C[32mfinished~C[0m" esc esc))
(t "not started"))))) (t "not started")))))
(let ((launchtime (getf envline :time))) (let ((launchtime (getf envline :time))
(timeformat (getf progline :time)))
(cond ((and (not notime) launchtime) (cond ((and (not notime) launchtime)
(format nil "; started at ~D" launchtime)) (format nil "; started at ~D" (cond ((string= "unix" timeformat)
(launchtime))
(t
(unix-to-timedate launchtime)))))
(t nil)))))) (t nil))))))
(sb-pcl::missing-slot (c) "not started")) (sb-pcl::missing-slot (c) "not started"))
) )
@ -199,7 +202,7 @@
do (let ((progr (getf progline :prog)) do (let ((progr (getf progline :prog))
(status (statusline progline env t))) (status (statusline progline env t)))
(setq globalstatus (concatenate 'string globalstatus (setq globalstatus (concatenate 'string globalstatus
(format nil "~&~A:~A~C~A~C" (format nil "~A:~A~C~A~C~%"
progr progr
(format nil "~v{~a~:*~}" (- 79 (+ (+ (length progr) 1) (+ (length status) (format nil "~v{~a~:*~}" (- 79 (+ (+ (length progr) 1) (+ (length status)
(cond ((find #\m status) (cond ((find #\m status)