1.1--- a/skelfile Mon Jul 08 21:02:07 2024 -0400
1.2+++ b/skelfile Mon Jul 08 21:52:16 2024 -0400
1.3@@ -14,48 +14,48 @@
1.4 :components ((:dir-locals ".dir-locals")
1.5 (:org "readme"))
1.6 :rules
1.7-((all (compile std prelude user infra core tests rdb skel organ homer packy fasl rust-bin tree-sitter-alien)) ;; TODO: add keyword args -- (emacs :stage 'install)
1.8+((all (compile std prelude user infra core tests rdb skel organ homer packy fasl rust-bin tree-sitter-alien))
1.9 (clean ()
1.10 #$rm -vrf .stash$#
1.11 #$find emacs -name '*.elc' -type f -delete$#
1.12 #$find lisp -name '*.fasl' -type f -delete$#
1.13 #$echo 'cargo clean:' && cd rust && cargo clean$#)
1.14- (box () #$podman build . --build-arg IMAGE=box -t core$#)
1.15 (tree-sitter-alien () #$cd lisp/ffi/tree-sitter &&
1.16 clang -g -O2 -Wall -Wno-unused-value -ltree-sitter -shared \
1.17 alien.c -o ../../../.stash/libtree-sitter-alien.so$#)
1.18 (tree-sitter-alien-install () #$cp .stash/libtree-sitter-alien.so /usr/local/lib/$#)
1.19 (psl.dat () ;; req:fetch works in slime and sk-shell but not here? hmm..
1.20 (with-open-file
1.21- (st ".stash/psl.dat" :direction :output :element-type 'octet)
1.22- (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t)
1.23- do (write-byte x st))))
1.24+ (st ".stash/psl.dat" :direction :output :element-type 'octet)
1.25+ (loop for x across (req:get "https://publicsuffix.org/list/public_suffix_list.dat" :force-binary t)
1.26+ do (write-byte x st))))
1.27 ;; lisp
1.28- (rdb () (with-sbcl (:noinform t :quit t)
1.29- (ql:quickload :bin/rdb)
1.30- (asdf:make :bin/rdb)
1.31- (rename-file "lisp/bin/rdb" ".stash/rdb")))
1.32- (skel () (with-sbcl (:noinform t :quit t)
1.33- (ql:quickload :bin/skel)
1.34- (asdf:make :bin/skel)
1.35- (rename-file "lisp/bin/skel" ".stash/skel")))
1.36- (skel-gui () (with-sbcl (:noinform t :quit t)
1.37- (push :tools *features*)
1.38- (ql:quickload :bin/skel)
1.39- (asdf:make :bin/skel)
1.40- (rename-file "lisp/bin/skel" ".stash/skel")))
1.41- (organ () (with-sbcl (:noinform t :quit t)
1.42- (ql:quickload :bin/organ)
1.43- (asdf:make :bin/organ)
1.44- (rename-file "lisp/bin/organ" ".stash/organ")))
1.45- (homer () (with-sbcl (:noinform t :quit t)
1.46- (ql:quickload :bin/homer)
1.47- (asdf:make :bin/homer)
1.48- (rename-file "lisp/bin/homer" ".stash/homer")))
1.49- (packy () (with-sbcl (:noinform t :quit t)
1.50- (ql:quickload :bin/packy)
1.51- (asdf:make :bin/packy)
1.52- (rename-file "lisp/bin/packy" ".stash/packy")))
1.53+ (%stash () #$mkdir -pv .stash$#)
1.54+ (rdb (%stash) (with-sbcl (:noinform t :quit t)
1.55+ (ql:quickload :bin/rdb)
1.56+ (asdf:make :bin/rdb)
1.57+ #0$mv lisp/bin/rdb .stash/$#))
1.58+ (skel (%stash) (with-sbcl (:noinform t :quit t)
1.59+ (ql:quickload :bin/skel)
1.60+ (asdf:make :bin/skel)
1.61+ #0$mv lisp/bin/skel .stash/$#))
1.62+ (skel-gui (%stash) (with-sbcl (:noinform t :quit t)
1.63+ (push :tools *features*)
1.64+ (ql:quickload :bin/skel)
1.65+ (asdf:make :bin/skel)
1.66+ #0$mv lisp/bin/skel .stash/$#))
1.67+ (organ (%stash) (with-sbcl (:noinform t :quit t)
1.68+ (ql:quickload :bin/organ)
1.69+ (asdf:make :bin/organ)
1.70+ #0$mv lisp/bin/organ .stash/$#))
1.71+ (homer (%stash) (with-sbcl (:noinform t :quit t)
1.72+ (ql:quickload :bin/homer)
1.73+ (asdf:make :bin/homer)
1.74+ #0$mv lisp/bin/homer .stash/$#))
1.75+ (packy (%stash) (with-sbcl (:noinform t :quit t)
1.76+ (ql:quickload :bin/packy)
1.77+ (asdf:make :bin/packy)
1.78+ #0$mv lisp/bin/packy .stash/$#))
1.79 (build (rdb skel organ homer packy))
1.80 (compile () #$./x.lisp compile$#)
1.81 (std () #$./x.lisp save std$#)