Skip to content

Instantly share code, notes, and snippets.

@nlacasse
Created March 5, 2013 23:53
Show Gist options
  • Save nlacasse/5095514 to your computer and use it in GitHub Desktop.
Save nlacasse/5095514 to your computer and use it in GitHub Desktop.
;; Connect retweet
(when-let [retweeted-status (:retweeted_status status)]
(let [retweeted-status-node (upsert-status! retweeted-status)]
(upconnect-entity-nodes! retweeted-status-node status-node "retweet"))
;; Retweeted from user
(if-let [retweeted-user (:user retweeted-status)]
(let [retweeted-user-node (upsert-user! retweeted-user)]
(upconnect-entity-nodes! status-node retweeted-user-node "retweeted-from-user"))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment