anchor.diff: -;;; Copyright 2012-2017 CommonGoods Network, Inc.
  +;;; Copyright 2012-2018 CommonGoods Network, Inc.
   ;;;
   ;;; This file is part of Kindista.
   ;;;
  
positive.code:              (if (not publish-facebook-p)
                 (see-other (or next
                                (if inactive-subject "/home" gratitude-url)))
                 (let* ((taggable-friends (multiple-value-list
                                            (facebook-taggable-friend-tokens
                                              g-subjects)))
                        (next (apply #'url-compose
                                    gratitude-url
                                    (awhen (first taggable-friends)
                                      (flatten
                                        (mapcar (lambda (pair)
                                                  (cons "authorize-fb-friend-tag"
                                                        (strcat (car pair))))
                                                it))))))
  
                   (fb-taggable-friends-auth-warning (second taggable-friends))
  
                   (cond
                     ((current-fb-token-p :publish-actions)
  
negative.code:            (update-folder-data message :read))
           gratitude-page))
  
       ;((or (getf data :fb-tagged-friends)
       ;     (not possible-fb-friends-to-tag)
       ;     (get-parameter "skip-fb-tagging"))
       ; gratitude-page)
  
        ;; Tagging was convoluted because Facebook's  API didn't allow apps to pass
        ;; FB user ids to tag an item. They only passed a special token that prevented
        ;; us from verifying that a gratitude recipient is also a facebook friend.
        ;; Now Facebook tagging functionality is totally broken since Facebook ended support
        ;; for custom open graph stories
  
       ;((not (first fb-user-friends-permission))
       ; (fb-taggable-friends-auth-warning (second fb-taggable-friends))
       ; (facebook-friends-permission-html
       ;       :redirect-uri (strcat "gratitude/" id)
       ;       :re-request (eql (second fb-user-friends-permission) :declined)
       ;       :cancel-link (url-compose (strcat "gratitude/" id)
       ;                                 "skip-fb-tagging" "t")
       ;       :fb-gratitude-subjects possible-fb-friends-to-tag))
  
       ;(possible-fb-friends-to-tag
       ;  (tag-facebook-friends-html
       ;    :gratitude-id id
       ;    :fb-gratitude-subjects (mapcar (lambda (id) (cons (db id :name)
       ;                                                      id))
       ;                                   possible-fb-friends-to-tag)
      (t gratitude-page)
      )))
  
  (defun post-gratitude
    (id
     &aux (url (strcat "/gratitude/" id))
          (next (or (post-parameter-string "next") url))
  
         ;Facebook tagging functionality is broken since Facebook ended support for
         ;custom open graph stories
         ;(friends-to-tag (when (post-parameter "tag-friends")
         ;                  (post-parameter-integer-list "tag-fb-friend")))
          )
    (require-user (:require-active-user t :allow-test-user t)
      (setf id (parse-integer id))
      (aif (db id)
  