Skip to content

Instantly share code, notes, and snippets.

@travis

travis/gist:9798738

Created March 27, 2014 02:25
Download ZIP

Revisions

  1. travis created this gist Mar 27, 2014.
    13 changes: 13 additions & 0 deletions gistfile1.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,13 @@
    (defn watchable-projects [user]
    (go-catch
    (let [accessible-projects-query-ch
    (accessible-projects-query user)

    watched-projects-ch
    (watched-projects user)

    accessible-projects-ch
    (parse/find (<? accessible-projects-query-ch))]

    (set/difference (set (<? accessible-projects-ch))
    (set (<? watched-projects-ch))))))