urbit/main/app/twit/core.hook

/+  twitter
!:
=>  |%
  ++  axle  ,@t                                       ::  Just JSON
  ++  gilt                                            ::  subscriptions frames
    $%  [%json p=json]                                ::  JSON format
        [%html p=@t]
        [%hymn p=manx]                                ::  HTML format
    ==
  ++  gift                                            ::  Message data
    $%  [%rust gilt]                                  ::  Refresh webapp
        [%rush gilt]                                  ::  Update webapp
        [%mean (unit (pair term (list tank)))]        ::  Error, maybe w/ msg
        [%nice ~]                                     ::  Response message
    ==
  ++  move  ,[p=bone q=(mold note gift)]              ::  Arvo command
  ++  sign
    $%  $:  %e
    $%  [%thou p=httr]
    ==  ==  ==
  ++  note                                            ::  Arvo message
    $%  $:  %e
    $%  [%them p=(unit hiss)]
    ==  ==  ==
  ++  app-key                                         ::  hardcoded keys!
    :-  :-  'hDDOTPfGHGlsOUbhpy6qc6XbW'
            'olCkea6wm3XG4pnVCHuPIozUF2ggH1sHjnBtuT4Ai6rCOeQGzO'
        :-  '2485712317-R77Lpdu5rAJadRVxTXPpnxvcwS0IfNG7QEzLPty'
            'a41d83XId0P7QQbodkPYv3zxoEL0Cq9EsN2eXZBZAwAWA'
--
|_  [hid=hide vat=axle]
:: 
++  prep
  |=  old=(unit)
  ~&  %hose-state
  [~ +>]
::
++  root                                                ::  internal location 
  /(scot %p our.hid)/main/(scot %da lat.hid)/app/[app.hid]
::
++  incl                                                ::  include scripts
  |=  wal=wall
  %+  turn  wal
  |=  tape  ;script(type "text/javascript", src +<);
:: 
++  peer                                                ::  accept subscriber
  |=  [ost=bone you=ship pax=path]
  ^-  [(list move) _+>]
  :_  +>.$
  ?~  pax
    [ost %give %rust %hymn page]~
  ?>(?=([%time ~] pax) ~)
:: 
++  poke-json                                           ::  client message
  |=  [ost=bone his=ship jon=json]
  ^-  [(list move) _+>]
  ~&  [%got-json ost]
  =+  jop=(need ((of [%tweet sa] [%time sa] ~):jo jon))
  ~&  [%got-jop ost]
  =+  key=-.jop
  :_  +>.$
  :_  ~
  ?:  ?=(%tweet key)
    ~&  [%tweet-pax /tweet/(scot %ud ost)]
    [ost %pass /tweet/(scot %ud ost) %e [%them (some (posl jon))]]
  ?:  ?=(%time key)
    [ost %give %nice ~]
  !!
::
++  page
  ^-  manx
  ;html
    ;head
      ;style:"{(trip ;;(,@ .^(%cx (welp root /main/css))))}"
      ;*  %-  incl  :~
        "//cdnjs.cloudflare.com/ajax/libs/jquery/2.1.1/jquery.min.js"
      ==
      ;title: Urbit - Twitter Test
    ==
    ;body
      ;div#c
        ;div#d
          ;div#twet
            ;div.author: @urbit_test
            ;div.date;
            ;textarea#tweetr(placeholder "What would you like to tweet?");
            ;input#submit(type "button", value "Send");
            ;input#length(type "button", value "0/140");
          ==
          ;div#time;
        ==
      ==
      ;script:"{(trip ;;(,@ .^(cx/(welp (scag 3 `path`root) /lib/urb/js))))}"
      ;script:"{(trip ;;(,@ .^(%cx (welp root /main/js))))}"
    ==
  ==
:: 
++  pour-time
  |=  [pax=path sih=sign]
  ^-  [(list move) _+>]
  ~&  %pour-time
  :_  +>.$
  =.  vat  `@t`q:(need r.p.sih)
  :_  =.  vat  `@t`q:(need r.p.sih)  +>.$
  %+  turn
    %+  skim  (~(tap by sup.hid)) 
    |=  [ost=bone his=ship pax=path]
    ~&  pax
    ?=([%time ~] pax)
  |=  [ost=bone his=ship pax=path]
  ~&  [%pour-time-give 
  =-  [ost give/rush/json/-]
  (rash vat apex:poja)
::
++  pour-tweet
  |=  [pax=path sih=sign]
  ^-  [(list move) _+>]
  =+  ost=(slav %ud -.+.pax)
  :_  +>.$
  :~  [ost %give %nice ~]
      [ost %pass /time %e [%them (some timl)]]
  ==
::
++  pour
  |=  [pax=path sih=sign]
  ^-  [(list move) _+>]
  ~&  [%pour pax]
  ?:  ?=([%time ~] pax)
    (pour-time pax sih)
  ?>  ?=([%tweet ~] pax)
  (pour-tweet pax sih)
::
++  testt
  ^-  hiss
  [(scan "http://www.example.com" auri:epur) %get ~ ~]
::
++  timl
  ^-  hiss
  ~&  %request-timeline
  =+  (twit `keys`app-key lat.hid `@`eny.hid)
  (stat-home ~ ~)
::
++  posl
  |=  jon=json
  ~&  [%posl jon]
  =+  txt=`(unit ,[%tweet p=cord])`((of:jo [%tweet so:jo] ~) jon)
  ~&  [%posl-txt txt]
  ^-  hiss
  =+  (twit `keys`app-key lat.hid `@`eny.hid)
  (stat-upda ~[(st ~ p:(need txt))] ~)
--