mirror of https://github.com/voidlizard/hbs2
57 lines
1.0 KiB
Plaintext
Executable File
57 lines
1.0 KiB
Plaintext
Executable File
#! /usr/bin/env -S hbs2-cli file
|
|
|
|
; # println *args
|
|
|
|
; # (println (grep (sym "-g") *args))
|
|
|
|
(match *args
|
|
|
|
( (list? [sym? store] ...)
|
|
(begin
|
|
(local optdef
|
|
`( [-g 1 GROUPKEY]
|
|
[--group-key 1 GROUPKEY] ))
|
|
|
|
(local split (cli:split optdef ...))
|
|
(local opts (nth 0 split))
|
|
(local args (nth 1 split))
|
|
|
|
(local gk (@? GROUPKEY opts))
|
|
(local fname (head args))
|
|
|
|
(local kwa `[ ,(if gk [list :gk gk] '() ) ])
|
|
|
|
; (display kwa)
|
|
|
|
(display
|
|
(if fname
|
|
(hbs2:tree:metadata:file kwa fname)
|
|
(hbs2:tree:metadata:stdin kwa)))
|
|
)
|
|
)
|
|
|
|
|
|
( (list? [sym? cat] ...)
|
|
(begin
|
|
(println "FUCKING CAT" space ...))
|
|
|
|
)
|
|
|
|
( (list? [sym? keyring] [sym? new] ...)
|
|
(begin
|
|
|
|
(local optdef `( [-n 1 NUM]
|
|
[--number 1 NUM]
|
|
))
|
|
|
|
(local opts (nth 0 (cli:split optdef ...)))
|
|
; (println opts)
|
|
(print (hbs2:keyring:new (@? NUM opts)))
|
|
)
|
|
)
|
|
|
|
( _ (--help) )
|
|
)
|
|
|
|
|