urbit/main/bin/pope.hoon
Steven Dee 4025898428 Ye olde whitespace cleanup
Run using
  find . -type f | xargs sed -i '\s\+$'

And not even glanced at. It's fine. Don't worry about it.
2013-12-08 21:23:03 +00:00

20 lines
462 B
Plaintext

!:
:: /=main=/bin/pope/hoon
::
=> .(+ =>(+ ^/===/lib/pony))
|= [est=time *]
|= [who=@p ~]
^- bowl
%+ (polo %pass "passphrase: " ~ ~)
(boss 256 (more gon qit))
|= [now=@da fra=@]
%+ pomp "generating carrier {(scow %p who)} (#{(scow %ud who)})"
%- (posh (add ~s1 now))
|= now=@da
:_ ~
=+ bur=(shax (add who (shax fra)))
=+ arc=(brew 2.048 bur)
:~ [%la %leaf "generator: {(scow %uw bur)}"]
[%la %leaf "fingerprint: {(scow %uw fig:ex:arc)}"]
==