class ::Exception
  def patch_full_message(trace_count: -1)
    tracing   = backtrace || []
    first_ln  = tracing[0]
    tracing   = tracing[1..trace_count]
    tracing   = tracing[1..30] if instance_of?(SystemStackError)
    tracing ||= []

    msg = []
    msg << "\n#{first_ln} \n#{message} (#{self.class})"
    tracing.each_with_index do |bt, i|
      msg << "#{" " * 8}#{i + 1}: from #{bt}"
    end

    unless cause.nil?
      msg << "\nCAUSE:"
      msg << cause.patch_full_message(trace_count: trace_count)
    end

    msg.join("\n")
  rescue StandardError => e
    puts "Something is wrong with 'patch_full_message': #{e}"
  end
end

# To extend an exception message preserving same exception object
# @see https://stackoverflow.com/a/30133010/4352306
Exception.class_eval do
  def prepend_message(message)
    mod = Module.new do
      define_method :to_s do
        String(message) + super()
      end
    end

    extend mod
  end

  def append_message(message)
    mod = Module.new do
      define_method :to_s do
        super() + String(message)
      end
    end

    extend mod
  end
end