                ;; Accessing their drafts, or access by an author, both get interaction links
                (or (and draft?
                         (not secure-access?))
-                   (= access-level :author)
-                   (= access-level :viewer))
+                   member?)
                (concat [(content/comment-link org-uuid board-uuid entry-uuid)
                         (content/comments-link org-uuid board-uuid entry-uuid comments)
                         (content/mark-unread-link entry-uuid)])
-               ;; Access by viewers get comments
-               (= access-level :viewer)
-               (concat [(content/comment-link org-uuid board-uuid entry-uuid)
-                       (content/comments-link org-uuid board-uuid entry-uuid comments)
-                       (content/mark-unread-link entry-uuid)])
                ;; All memebers can react but only if there are less than x reactions
-               (and (or (= access-level :author) (= access-level :viewer))
+               (and member?
                     (< (count reaction-list) config/max-reaction-count))
                (conj (react-link org board entry-uuid))
                ;; Drafts need a publish link

               (not secure-access?)
               (concat [(self-link org-slug board-slug entry-uuid)
                        (up-link org-slug board-slug)])
               ;; Generic links for all team members
               (and (not secure-access?)
                    (or (= access-level :author)
                        (= access-level :viewer)))
               (concat [(share-link org-slug board-slug entry-uuid)
                         bookmarks-link
                        ; (inbox-unread-link org-slug board-slug entry-uuid)
                        ; (inbox-dismiss-link org-slug board-slug entry-uuid)
                        ; inbox-link
                        ])
               ;; Only admins and the owner can edit or delete the entry
               (and (not secure-access?)
                    (or draft?

    {:accept mt/entry-media-type
     :content-type "text/plain"}))

(defn- follow-link [org-slug board-slug entry-uuid]
  (hateoas/link-map "follow" hateoas/POST (url org-slug board-slug entry-uuid :follow)
    {:accept mt/entry-media-type
     :content-type "text/plain"}))

(defn- unfollow-link [org-slug board-slug entry-uuid]
  (hateoas/link-map "unfollow" hateoas/POST (url org-slug board-slug entry-uuid :unfollow)
    {:accept mt/entry-media-type
     :content-type "text/plain"}))
