From 3431844d94d5785918cb8901858adaa77e7ea2f6 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Mon, 26 Jan 2015 19:11:08 -0800
Subject: [PATCH] Factored out structures

---
 main/app/twit/core.hook    |  7 +------
 main/lib/twitter/core.hook | 10 +---------
 main/sur/twitter/core.hook | 11 +++++++++++
 3 files changed, 13 insertions(+), 15 deletions(-)
 create mode 100644 main/sur/twitter/core.hook

diff --git a/main/app/twit/core.hook b/main/app/twit/core.hook
index 77818596d..e9b9a148b 100644
--- a/main/app/twit/core.hook
+++ b/main/app/twit/core.hook
@@ -2,17 +2,12 @@
 ::
 ::::  /hook/core/twit/app
   ::
-::  /-    twit-do  ::  XX  wherefore broken
+/-    *twitter
 /+    twitter
 ::
 ::::  ~fyr
   ::
 |%
-++  twit-do                                             ::  action
-  $%  [%auth p=keys]                                    ::  set API keys
-      [%post p=@uvI q=cord]                             ::  post a tweet
-  ==
-::
 ++  twit-path                                           ::  valid peer path
   $%  [%home ~]                                         ::  home timeline
       [%user p=@t ~]                                    ::  user's tweets
diff --git a/main/lib/twitter/core.hook b/main/lib/twitter/core.hook
index b6f027f24..3152e6f38 100644
--- a/main/lib/twitter/core.hook
+++ b/main/lib/twitter/core.hook
@@ -3,15 +3,7 @@
 ::::  /hook/core/twitter/lib
   ::
 /?    314
-::
-::::  structures
-  ::
-|%
-++  keys                                                ::  twitter-key type
-  $:  con=[tok=@t sec=@t]                               ::  user key pair
-      acc=[tok=@t sec=@t]                               ::  app key pair
-  ==
---
+/-   *twitter
 !:
 ::::  functions
   ::
diff --git a/main/sur/twitter/core.hook b/main/sur/twitter/core.hook
new file mode 100644
index 000000000..46e387000
--- /dev/null
+++ b/main/sur/twitter/core.hook
@@ -0,0 +1,11 @@
+|%
+++  twit-do
+  $%  [%auth p=keys]                                    ::  set API keys
+      [%post p=@uvI q=cord]                             ::  post a tweet
+  ==
+::
+++  keys                                                ::  twitter-key type
+  $:  con=[tok=@t sec=@t]                               ::  user key pair
+      acc=[tok=@t sec=@t]                               ::  app key pair
+  ==
+--