forked from nat/natalieee.net
12 lines
418 B
Hy
Executable File
12 lines
418 B
Hy
Executable File
#!/usr/bin/env hy
|
|
;; vim: filetype=hy
|
|
(import sys [argv])
|
|
(import re [sub])
|
|
(import os [environ :as hy-env])
|
|
(import subprocess [check-output])
|
|
|
|
(setv env hy-env)
|
|
(setv (get env "PATH") (+ (get hy-env "PATH") ":./scripts"))
|
|
|
|
(print (sub r"\$\[(.*?)\]" (fn [sequence] (. (check-output (.group sequence 1) :shell True :executable "/bin/bash" :env env) (decode) (strip))) (with [fp (open (get argv 1) "r")] (.read fp))))
|