dotfiles/setup/common.rkt

63 lines
1.9 KiB
Racket
Raw Normal View History

2023-05-04 23:19:34 +02:00
#lang racket
(provide define-logging
log-calls
output-bin-path
cmd
rm
2023-05-07 15:53:25 +02:00
copy
2023-05-17 21:42:04 +02:00
install-zig
2023-05-19 16:23:34 +02:00
install-rust
install-roswell)
2023-05-04 23:19:34 +02:00
;; Whether to log calls or not
(define log-calls (make-parameter #t))
;; Default output path
(define output-bin-path (make-parameter (build-path (find-system-path 'home-dir) ".local")))
(define (display-function-call func args)
(when (log-calls)
2023-05-04 23:26:57 +02:00
(fprintf (current-error-port)
"\x1b[1;30m(\x1b[1;32m~s \x1b[1;33m~a\x1b[1;30m)\x1b[0m\n"
func
(apply ~a #:separator " " args))))
2023-05-04 23:19:34 +02:00
;; Defines an alias to a function which will log it's parameters on invokation.
(define-syntax-rule (define-logging name func)
(define (name . args)
(display-function-call (quote name) args)
(apply func args)))
2023-05-27 21:51:04 +02:00
(define-logging cmd
(λ (exe . args)
(unless (apply system* (find-executable-path exe) args)
(raise-user-error "Command Failed"))))
2023-05-04 23:19:34 +02:00
(define-logging rm delete-directory/files)
(define-logging copy copy-directory/files)
2023-05-07 15:53:25 +02:00
(define-logging install-zig
2023-05-27 01:27:08 +02:00
(λ (path [mode "ReleaseFast"])
(parameterize ([current-directory path] [log-calls #f])
(cmd "zig" "build" "-p" (output-bin-path) (string-append "-Doptimize=" mode)))))
2023-05-17 21:42:04 +02:00
(define-logging install-rust
2023-05-27 01:27:08 +02:00
(λ (path)
(parameterize ([current-directory path] [log-calls #f])
(cmd "cargo"
"-Z"
"unstable-options"
"build"
"--release"
"--out-dir"
(build-path (output-bin-path) "bin")))))
2023-05-19 16:23:34 +02:00
(define-logging
2023-05-27 01:27:08 +02:00
install-roswell
(λ (path)
(parameterize ([log-calls #f])
(match-let*-values ([(_ filename _) (split-path path)]
[(outpath)
(build-path (output-bin-path) "bin" (path-replace-extension filename ""))])
(cmd "ros" "dump" "executable" path "-o" outpath)))))