card-mod-email 0.11.0

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA256:
+  metadata.gz: 3719c8ba807c0372733ecd09c9eb2e1a635f4ad07f3558392f78525e8e91f86e
+  data.tar.gz: c56306768a9067cae84f5448c729dbb5e061024611eccadef71422c4ad2a6dbc
+SHA512:
+  metadata.gz: a0637a78d1c7a46886847a66e4e38f72d92871377aa5196eabd0c77eed76575e9016ffe9f4bd4b77e32c29744a8ff64d3655a96caad5f820568a325ef918d64d
+  data.tar.gz: 14a8fec3f37d261f4e591de75e24988c9c894880c5f4e08362b0a386e95428730ed35c4bead808e2baa17f25f0d692c94418a2f789251a7fd6a2c154796a161b

data/lib/card/format/email_html_format.rb

@@ -0,0 +1,14 @@
+# -*- encoding : utf-8 -*-
+
+class Card
+  class Format
+    # Format text for use in html email messages
+    class EmailHtmlFormat < Card::Format::HtmlFormat
+      @@aliases["email"] = "email_html"
+
+      def self.view_caching?
+        false
+      end
+    end
+  end
+end

data/lib/card/format/email_text_format.rb

@@ -0,0 +1,12 @@
+# -*- encoding : utf-8 -*-
+
+class Card
+  class Format
+    # Format text for use in plain text email messages
+    class EmailTextFormat < Card::Format::TextFormat
+      def chunk_list
+        :references
+      end
+    end
+  end
+end

data/set/abstract/email_field.rb

@@ -0,0 +1,41 @@
+
+format do
+  # turn off autodetection of uri's
+  def chunk_list
+    :references
+  end
+end
+
+# format :html do
+#   def pointer_items args
+#     card.item_names(context: :raw).map do |iname|
+#       wrap_item iname, args
+#     end
+#   end
+# end#
+
+format :email_text do
+  def email_addresses context
+    context ||= self
+    card.item_names(context: context.name).map do |name|
+      # FIXME: context is processed twice here because pointers absolutize
+      # item_names by default while other types can return relative names.
+      # That's poor default behavior and should be fixed!
+      name = name.to_name.absolute context
+      email_address?(name) ? name : email_address_from_card(name, context)
+    end.flatten.compact.join(", ")
+  end
+
+  def email_address? string
+    string =~ /.+\@.+\..+/
+  end
+
+  def email_address_from_card name, context
+    card = Card.fetch name
+    card.account&.email || email_addresses_from_card_content(card, context)
+  end
+
+  def email_addresses_from_card_content card, context
+    subformat(card).contextual_content(context).split(/[,\n]/)
+  end
+end

data/set/abstract/test_context.rb

@@ -0,0 +1,26 @@
+format :html do
+  view :core do
+    return super() if voo.hide? :test_context
+    card.with_context test_context_card do
+      super()
+    end
+  end
+
+  def test_context_card
+    card.left.fetch(:test_context)&.item_card
+  end
+end
+
+format :email_html do
+  view :core do
+    voo.hide! :test_context
+    super()
+  end
+end
+
+format :email_text do
+  view :core do
+    voo.hide! :test_context
+    super()
+  end
+end

data/set/all/email_html.rb

@@ -0,0 +1,9 @@
+format :email_html do
+  view :unknown do
+    ""
+  end
+
+  view :compact_missing do
+    ""
+  end
+end

data/set/all/email_text.rb

@@ -0,0 +1,14 @@
+
+format :email_text do
+  view :unknown do
+    ""
+  end
+
+  view :compact_missing do
+    ""
+  end
+
+  view :last_action, perms: :none, cache: :never do
+    _render_last_action_verb
+  end
+end

data/set/right/bcc.rb

@@ -0,0 +1 @@
+include_set Abstract::EmailField

data/set/right/cc.rb

@@ -0,0 +1 @@
+include_set Abstract::EmailField

data/set/right/from.rb

@@ -0,0 +1 @@
+include_set Abstract::EmailField

data/set/right/html_message.rb

@@ -0,0 +1,13 @@
+include_set Abstract::TestContext
+
+def clean_html?
+  false
+end
+
+format :email_html do
+  def email_content context
+    content = contextual_content context
+    return unless content.present?
+    Card::Mailer.layout content
+  end
+end

data/set/right/subject.rb

@@ -0,0 +1 @@
+include_set Abstract::TestContext

data/set/right/text_message.rb

@@ -0,0 +1 @@
+include_set Abstract::TestContext

data/set/right/to.rb

@@ -0,0 +1 @@
+include_set Abstract::EmailField

data/set/type/email_template.rb

@@ -0,0 +1,91 @@
+
+def clean_html?
+  false
+end
+
+def deliver context=nil, fields={}, opts={}
+  mail = format.mail context, fields, opts
+  mail.deliver
+rescue Net::SMTPError => exception
+  errors.add :exception, exception.message
+end
+
+format do
+  def mail context=nil, fields={}, opts={}
+    config = card.email_config context, fields, opts
+    fmt = self # self is <Mail::Message> within the new_mail block
+    Card::Mailer.new_mail config do
+      fmt.message_body self, config
+      fmt.add_attachments self, config.delete(:attach)
+    end
+  end
+
+  def message_body mail, config
+    config[:html_message] &&= config[:html_message].call mail
+    method, args = body_method_and_args config[:html_message].present?,
+                                        config[:text_message].present?
+    args = Array.wrap(args).map { |arg| config[arg] }
+    send method, mail, *args
+  end
+
+  def body_method_and_args html, text
+    if html && text
+      [:text_and_html_message, %i[text_message html_message attach]]
+    elsif html
+      %i[html_body html_message]
+    else
+      %i[text_body text_message]
+    end
+  end
+
+  def text_and_html_message mail, text_message, html_message, attachment_list=nil
+    fmt = self
+    if attachment_list&.any?
+      mail.multipart_mixed text_message, html_message
+    else
+      mail.text_part { body text_message }
+      mail.html_part { fmt.html_body self, html_message }
+    end
+  end
+
+  def multipart_mixed mail, text_message, html_message
+    mail.content_type "multipart/mixed"
+    mail.part content_type: "multipart/alternative" do |copy|
+      copy.part content_type: "text/plain" do |plain|
+        plain.body = text_message
+      end
+      copy.part content_type: "text/html" do |html|
+        html.body = html_message
+      end
+    end
+  end
+
+  def html_body mail, message
+    mail.content_type "text/html; charset=UTF-8"
+    mail.body message
+  end
+
+  def text_body mail, message
+    mail.content_type "text/plain; charset=UTF-8"
+    mail.text_part { body message }
+  end
+
+  def add_attachments mail, list
+    return unless list.present?
+    each_valid_attachment list do |file, index|
+      mail.add_file filename: attachment_name(file, index),
+                    content: File.read(file.path)
+    end
+  end
+
+  def each_valid_attachment list
+    list.each_with_index do |cardname, index|
+      next unless (file = Card[cardname]&.try(:attachment))
+      yield file, index
+    end
+  end
+
+  def attachment_name file, number
+    "attachment-#{number + 1}.#{file.extension}"
+  end
+end

data/set/type/email_template/email_config.rb

@@ -0,0 +1,81 @@
+EMAIL_FIELDS =
+  %i[to from cc bcc attach subject text_message html_message].freeze
+
+EMAIL_FIELD_METHODS =
+  { subject: :contextual_content,
+    text_message: :contextual_content,
+    attach: :extended_item_contents }.freeze
+
+# @param [Card] context  the card in whose context all email fields will be interpreted
+# @param [Hash] fields override any templated field configurations with hash values
+# @param [Hash] opts options for rendering. unknown options become format options
+# @option opts [Card, String, Integer] :auth user identifier. render as this user
+def email_config context, fields={}, opts={}
+  @active_email_context = context || self
+  auth = opts.delete :auth
+  config = EMAIL_FIELDS.each_with_object({}) do |field, conf|
+    conf[field] = fields[field] || email_field_from_card(field, auth, opts)
+  end
+  safe_from_and_reply_to! config
+  config.select { |_k, v| v.present? }
+end
+
+def email_field_from_card field, auth, format_opts
+  return unless (field_card = fetch(field))
+  auth ||= field_card.updater
+  special_email_field_method(field, field_card, auth, format_opts) ||
+    standard_email_field(field, field_card, auth, format_opts)
+end
+
+def special_email_field_method field, field_card, auth, format_opts
+  method = "email_#{field}_field"
+  return unless respond_to? method
+  send method, field_card, auth, format_opts
+end
+
+def standard_email_field field, field_card, auth, format_opts
+  method = EMAIL_FIELD_METHODS[field] || :email_addresses
+  format_opts = format_opts.merge format: :email_text
+  Auth.as auth do
+    field_card.format(format_opts).send method, @active_email_context
+  end
+end
+
+# html messages return procs because image attachments can't be properly rendered
+# without a mail object. (which isn't available at initial config time)
+def email_html_message_field message_card, auth, format_opts
+  proc do |mail|
+    Auth.as auth do
+      format_opts = format_opts.merge format: :email_html, active_mail: mail
+      message_card.format(format_opts).email_content @active_email_context
+    end
+  end
+end
+
+# whenever a default "from" field is configured in Card::Mailer, emails are always
+# actually "from" that address
+def safe_from_and_reply_to! config
+  conf_name, conf_email = configured_from_name_and_email config[:from]
+  actual_email = Card::Mailer.default[:from] || conf_email
+  config[:from] = email_from_field_value conf_name, conf_email, actual_email
+  config[:reply_to] ||= actual_email
+end
+
+def email_from_field_value conf_name, conf_email, actual_email
+  conf_text = conf_name || conf_email
+  if conf_text != actual_email
+    %("#{conf_text}" <#{actual_email}>)
+  elsif actual_email.present?
+    actual_email
+  else
+    Card[WagnBotID].account.email
+  end
+end
+
+def configured_from_name_and_email raw_string
+  if raw_string =~ /(.*)\<(.*)>/
+    [Regexp.last_match(1).strip, Regexp.last_match(2)]
+  else
+    [nil, raw_string]
+  end
+end

metadata

@@ -0,0 +1,75 @@
+--- !ruby/object:Gem::Specification
+name: card-mod-email
+version: !ruby/object:Gem::Version
+  version: 0.11.0
+platform: ruby
+authors:
+- Ethan McCutchen
+- Philipp Kühl
+- Gerry Gleason
+autorequire:
+bindir: bin
+cert_chain: []
+date: 2020-12-24 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: card
+  requirement: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 1.101.0
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    requirements:
+    - - '='
+      - !ruby/object:Gem::Version
+        version: 1.101.0
+description: ''
+email:
+- info@decko.org
+executables: []
+extensions: []
+extra_rdoc_files: []
+files:
+- lib/card/format/email_html_format.rb
+- lib/card/format/email_text_format.rb
+- set/abstract/email_field.rb
+- set/abstract/test_context.rb
+- set/all/email_html.rb
+- set/all/email_text.rb
+- set/right/bcc.rb
+- set/right/cc.rb
+- set/right/from.rb
+- set/right/html_message.rb
+- set/right/subject.rb
+- set/right/text_message.rb
+- set/right/to.rb
+- set/type/email_template.rb
+- set/type/email_template/email_config.rb
+homepage: http://decko.org
+licenses:
+- GPL-3.0
+metadata:
+  card-mod: email
+post_install_message:
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '2.5'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ">="
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubygems_version: 3.0.3
+signing_key:
+specification_version: 4
+summary: Email handling
+test_files: []