cleaned up and maybe finished the guile lab tool
This commit is contained in:
parent
4290973048
commit
74142365eb
24 changed files with 895 additions and 20 deletions
12
packages/lab-tool/archive/core/utils.scm
Normal file
12
packages/lab-tool/archive/core/utils.scm
Normal file
|
@ -0,0 +1,12 @@
|
|||
;; lab/core/utils.scm - Utility functions
|
||||
|
||||
(define-module (lab core utils)
|
||||
#:use-module (ice-9 format)
|
||||
#:export (with-spinner))
|
||||
|
||||
(define (with-spinner message proc)
|
||||
"Execute procedure with spinner (stub implementation)"
|
||||
(display (format #f "~a..." message))
|
||||
(let ((result (proc)))
|
||||
(display " done.\n")
|
||||
result))
|
Loading…
Add table
Add a link
Reference in a new issue