2023-05-04 23:19:34 +02:00
|
|
|
#lang racket
|
|
|
|
|
(require "../common.rkt")
|
|
|
|
|
(provide run)
|
|
|
|
|
|
2023-05-07 15:53:25 +02:00
|
|
|
(define-logging mklink
|
2023-05-13 13:28:36 +02:00
|
|
|
(λ (from to)
|
|
|
|
|
(with-handlers ([exn:fail? (const #f)]) (delete-file to))
|
|
|
|
|
(make-file-or-directory-link (normalize-path from) to)))
|
2023-05-04 23:19:34 +02:00
|
|
|
|
2023-05-07 15:53:25 +02:00
|
|
|
(define (run)
|
2023-05-13 13:28:36 +02:00
|
|
|
(define (bin-path bin)
|
|
|
|
|
(build-path (output-bin-path) "bin" bin))
|
2023-06-01 16:27:35 +02:00
|
|
|
|
|
|
|
|
(generate-cgopt-json)
|
|
|
|
|
|
2023-05-04 23:19:34 +02:00
|
|
|
;; Symlink interpreted scripts
|
2023-05-13 13:28:36 +02:00
|
|
|
(mklink "scripts/map-touch-display.rkt" (bin-path "map-touch-display"))
|
|
|
|
|
(mklink "scripts/startriver.sh" (bin-path "startriver"))
|
|
|
|
|
(mklink "scripts/update-nvim-plugins.rkt" (bin-path "update-nvim-plugins"))
|
2023-08-01 14:41:23 +02:00
|
|
|
(mklink "scripts/use-country-mirrors.sh" (bin-path "use-country-mirrors"))
|
2023-05-04 23:19:34 +02:00
|
|
|
|
2023-05-19 16:23:34 +02:00
|
|
|
;; Compile scripts
|
2023-05-17 21:42:04 +02:00
|
|
|
(install-rust "scripts/i3status")
|
2023-05-07 15:53:25 +02:00
|
|
|
(install-zig "scripts/mzteinit")
|
|
|
|
|
(install-zig "scripts/openbrowser")
|
|
|
|
|
(install-zig "scripts/playtwitch")
|
|
|
|
|
(install-zig "scripts/prompt")
|
|
|
|
|
(install-zig "scripts/randomwallpaper")
|
|
|
|
|
(install-zig "scripts/vinput")
|
2023-07-01 21:28:50 +02:00
|
|
|
(install-zig "scripts/withjava")
|
2023-05-19 16:23:34 +02:00
|
|
|
|
2023-07-18 14:33:49 +02:00
|
|
|
(install-roswell "scripts/launchmenu.ros")
|
2023-05-19 16:23:34 +02:00
|
|
|
(install-roswell "scripts/playvid.ros")
|
2023-05-04 23:19:34 +02:00
|
|
|
null)
|
