<commit_before>;;; Copyright 2012-2013 CommonGoods Network, Inc.
;;;
;;; This file is part of Kindista.
;;;
;;; Kindista is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU Affero General Public License as published
;;; by the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; Kindista is distributed in the hope that it will be useful, but WITHOUT
;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public
;;; License for more details.
;;;
;;; You should have received a copy of the GNU Affero General Public License
;;; along with Kindista.  If not, see <http://www.gnu.org/licenses/>.

(in-package :kindista)

(defun donate-sidebar ()
  (html
    (:div :class "item right only"
      (:h3 "Support Kindista")
      (:p (:a :class "yes" :href "/donate" "Donate"))
      (:p "Your donations are tax-deductable to the extent permitted by law. Kindista is a project of CommonGoods Network, an Oregon 501(c)(3) non-profit."))))

(defun invite-sidebar ()
  (with-user
    (when *user*
      (html
        (:div :class "item right"
          (:h3 (:a :href "/invite" "Invite friends"))
          (:p "Kindista is invitation-only. As a Kindista member, you can invite people you know to join. ")
          (:br)
          (:a :class "yes" :href "/invite" "Invite Friends")
          (:a :href "/help/faqs#how-do-invitations-work" "How does this work?"))))))
<commit_msg>fixed link for "How does this work?"<commit_after>;;; Copyright 2012-2013 CommonGoods Network, Inc.
;;;
;;; This file is part of Kindista.
;;;
;;; Kindista is free software: you can redistribute it and/or modify it
;;; under the terms of the GNU Affero General Public License as published
;;; by the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; Kindista is distributed in the hope that it will be useful, but WITHOUT
;;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Affero General Public
;;; License for more details.
;;;
;;; You should have received a copy of the GNU Affero General Public License
;;; along with Kindista.  If not, see <http://www.gnu.org/licenses/>.

(in-package :kindista)

(defun donate-sidebar ()
  (html
    (:div :class "item right only"
      (:h3 "Support Kindista")
      (:p (:a :class "yes" :href "/donate" "Donate"))
      (:p "Your donations are tax-deductable to the extent permitted by law. Kindista is a project of CommonGoods Network, an Oregon 501(c)(3) non-profit."))))

(defun invite-sidebar ()
  (with-user
    (when *user*
      (html
        (:div :class "item right"
          (:h3 (:a :href "/invite" "Invite friends"))
          (:p "Kindista is invitation-only. As a Kindista member, you can invite people you know to join. ")
          (:br)
          (:a :class "yes" :href "/invite" "Invite Friends")
          (:a :href "/faq#how-do-invitations-work" "How does this work?"))))))

{'fraction_non_alphanumeric': 0.1288048702338994, 'fraction_numerical': 0.009612303748798462, 'mean_word_length': 3.4096045197740112, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 2, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '634362', 'n_tokens_mistral': 959, 'n_tokens_neox': 908, 'n_words': 406}