voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2025-02-21 14:01:34 +03:00
parent 6ad7d67c6f
commit 1cf7ec6cbc
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/dns-example-1/dns.ss
View File

@ -76,11 +76,15 @@
(local txs (grep :propose (hbs2:refchan:tx:raw:list REFCHAN)))
(local (hostname e) (car (cdr (car (top:string (bytes:decode [nth 4 _1]))))) )
(local peers (map (lambda [x] [car [cdr x]]) (car (call:proc hbs2-peer do peer-info))))
(local peers2 (map [fn 1 [list (lookup:uw :key _1) (strip (lookup:uw :addr _1))]] peers))
(local peers3 (filter [fn 1 [not (eq? [nth 1 _1] :192.168.1.1)]] peers2))
(local state (map [fn 1 [list [nth 2 _1] [hostname _1] ]] txs))
(local (entry e) [list [lookup:uw [nth 0 e] (cons self peers2)] [nth 1 e] ])
(local (entry e) [list [lookup:uw [nth 0 e] (cons self peers3)] [nth 1 e] ])
(local res [map [fn 1 [entry _1]] state])
res
)
)

2
miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
View File

@ -1656,7 +1656,7 @@ internalEntries = do
_ -> pure $ mkBool False
entry $ bindMatch "not" $ \case
[w] -> pure (mkBool (isTrue w))
[w] -> pure (mkBool (isFalse w))
_ -> throwIO (BadFormException @c nil)
entry $ bindMatch "setenv" $ nil_ \case