shrub/gen/gmail/list.hoon

20 lines
438 B
Plaintext
Raw Normal View History

2016-10-22 02:44:39 +03:00
:: List [number] inbox messages XX may be broken
::
:::: /hoon/list/gmail/gen
::
/? 310
::
::::
2016-11-17 04:42:58 +03:00
::
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
2018-03-19 07:18:20 +03:00
arg/$@(~ {number/@u ~})
~
==
?~ arg $(arg [5 ~])
:- %noun
%+ turn (scag number.arg .^((list {@t @t}) %gx /=gmail=/read/messages))
|= {message-id/@t thread-id/@t}
=+ .^({from/@t subject/@t} %gx /=gmail=/read/messages/[message-id])
[from=from (trip subject)]