#!/usr/bin/python
#
# Generate an HTML page with the result of one or more notmuch
# searches, (with links to gmane views of each email if available).
#
# Copyright (c) 2011-2012 David Bremner <david@tethera.net>
# Copyright (c) 2014      Carl Worth <cworth@cworth.org
#
# dependencies
#       - python 2.6 for json
#       - argparse; either python 2.7, or install separately
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program 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 General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see http://www.gnu.org/licenses/ .

from __future__ import print_function
from __future__ import unicode_literals

import codecs
import collections
import datetime
import email.utils
try:  # Python 3
    from urllib.parse import quote
except ImportError:  # Python 2
    from urllib import quote
import json
import argparse
import os
import re
import sys
import subprocess
import xml.sax.saxutils


_ENCODING = 'UTF-8'
_PAGES = {}

DEFAULT_CONFIG='''
{{
    "meta": {{
        "title": "Page title",
        "blurb": "Page description"
    }},

    "views": [
	{{
	    "title": "View title",
	    "comment": "View description",
	    "query": [ "{query}" ]
	}}
    ]
}}'''


if not hasattr(collections, 'OrderedDict'):  # Python 2.6 or earlier
    class _OrderedDict (dict):
        "Just enough of a stub to get through Page._get_threads"
        def __init__(self, *args, **kwargs):
            super(_OrderedDict, self).__init__(*args, **kwargs)
            self._keys = []  # record key order

        def __setitem__(self, key, value):
            super(_OrderedDict, self).__setitem__(key, value)
            self._keys.append(key)

        def values(self):
            for key in self._keys:
                yield self[key]


    collections.OrderedDict = _OrderedDict


def read_config(path, encoding=None):
    "Read config from json file"
    if not encoding:
        encoding = _ENCODING
    fp = open(path)
    return json.load(fp)


class Thread (list):
    def __init__(self):
        self.running_data = {}


class Page (object):
    def __init__(self, header=None, footer=None):
        self.header = header
        self.footer = footer

    def write(self, database, views, stream=None):
        if not stream:
            try:  # Python 3
                byte_stream = sys.stdout.buffer
            except AttributeError:  # Python 2
                byte_stream = sys.stdout
            stream = codecs.getwriter(encoding=_ENCODING)(stream=byte_stream)
        self._write_header(views=views, stream=stream)
        for view in views:
            self._write_view(database=database, view=view, stream=stream)
        self._write_footer(views=views, stream=stream)

    def _write_header(self, views, stream):
        if self.header:
            stream.write(self.header)

    def _write_footer(self, views, stream):
        if self.footer:
            stream.write(self.footer)

    def _write_view(self, database, view, stream):
        if 'query-string' not in view:
            query = view['query']
            view['query-string'] = ' and '.join(query)
        q = notmuch.Query(database, view['query-string'])
        q.set_sort(notmuch.Query.SORT.OLDEST_FIRST)
        threads = self._get_threads(messages=q.search_messages())
        self._write_view_header(view=view, stream=stream)
        self._write_threads(threads=threads, stream=stream)

    def _get_threads(self, messages):
        threads = collections.OrderedDict()
        for message in messages:
            thread_id = message.get_thread_id()
            if thread_id in threads:
                thread = threads[thread_id]
            else:
                thread = Thread()
                threads[thread_id] = thread
            thread.running_data, display_data = self._message_display_data(
                running_data=thread.running_data, message=message)
            thread.append(display_data)
        return list(threads.values())

    def _write_view_header(self, view, stream):
        pass

    def _write_threads(self, threads, stream):
        for thread in threads:
            for message_display_data in thread:
                stream.write(
                    ('{date:10.10s} {from:20.20s} {subject:40.40s}\n'
                     '{message-id-term:>72}\n'
                     ).format(**message_display_data))
            if thread != threads[-1]:
                stream.write('\n')

    def _message_display_data(self, running_data, message):
        headers = ('thread-id', 'message-id', 'date', 'from', 'subject')
        data = {}
        for header in headers:
            if header == 'thread-id':
                value = message.get_thread_id()
            elif header == 'message-id':
                value = message.get_message_id()
                data['message-id-term'] = 'id:"{0}"'.format(value)
            elif header == 'date':
                value = str(datetime.datetime.utcfromtimestamp(
                    message.get_date()).date())
            else:
                value = message.get_header(header)
            if header == 'from':
                (value, addr) = email.utils.parseaddr(value)
                if not value:
                    value = addr.split('@')[0]
            data[header] = value
        next_running_data = data.copy()
        for header, value in data.items():
            if header in ['message-id', 'subject']:
                continue
            if value == running_data.get(header, None):
                data[header] = ''
        return (next_running_data, data)


class HtmlPage (Page):
    _slug_regexp = re.compile('\W+')

    def _write_header(self, views, stream):
        super(HtmlPage, self)._write_header(views=views, stream=stream)
        stream.write('<ul>\n')
        for view in views:
            if 'id' not in view:
                view['id'] = self._slug(view['title'])
            stream.write(
                '<li><a href="#{id}">{title}</a></li>\n'.format(**view))
        stream.write('</ul>\n')

    def _write_view_header(self, view, stream):
        stream.write('<h3 id="{id}">{title}</h3>\n'.format(**view))
        stream.write('<p>\n')
        if 'comment' in view:
            stream.write(view['comment'])
            stream.write('\n')
        for line in [
                '<p>This view is generated from the following query:',
                '</p>',
                '<p>',
                '  <code>',
                'notmuch search ' + view['query-string'],
                '  </code>',
                '</p>',
                ]:
            stream.write(line)
            stream.write('\n')

    def _write_threads(self, threads, stream):
        if not threads:
            return
        stream.write('<table>\n')
        for thread in threads:
            stream.write('  <tbody>\n')
            for message_display_data in thread:
                stream.write((
                    '    <tr class="message-first">\n'
                    '      <td>{from}</td>\n'
                    '      <td>{date}</td>\n'
                    '      <td>{subject}</td>\n'
                    '    </tr>\n'
                    ).format(**message_display_data))
            stream.write('  </tbody>\n')
            if thread != threads[-1]:
                stream.write(
                    '  <tbody><tr><td colspan="2"><br /></td></tr></tbody>\n')
        stream.write('</table>\n')

    def _message_display_data(self, *args, **kwargs):
        running_data, display_data = super(
            HtmlPage, self)._message_display_data(
                *args, **kwargs)
        if 'subject' in display_data and 'message-id' in display_data:
            d = {
                'message-id': quote(display_data['message-id']),
                'subject': xml.sax.saxutils.escape(display_data['subject']),
                }
            display_data['subject'] = (
                '<a href="http://mid.gmane.org/{message-id}">{subject}</a>'
                ).format(**d)
        for key in ['message-id', 'from']:
            if key in display_data:
                display_data[key] = xml.sax.saxutils.escape(display_data[key])
        return (running_data, display_data)

    def _slug(self, string):
        return self._slug_regexp.sub('-', string)

parser = argparse.ArgumentParser()
parser.add_argument('--text', help='output plain text format',
                    action='store_true')
group = parser.add_mutually_exclusive_group()
group.add_argument('--config', help='path to configuration file',
                   metavar='PATH')
group.add_argument('--query', help='path to configuration file',
                   metavar='PATH')
parser.add_argument('--list-views', help='list views',
                    action='store_true')
parser.add_argument('--get-query', help='get query for view',
                    metavar='VIEW')

args = parser.parse_args()

if (args.config):
    config = read_config(path=args.config)
elif (args.query):
    config = json.loads(DEFAULT_CONFIG.format(query=args.query))
else:
    print ('''To use notmuch-to-html, you need to provide a notmuch query. Try:

	notmuch-to-html --query=tag:inbox

Or 'notmuch-to-html --help' for additional options.''')
    exit (0)

_PAGES['text'] = Page()
_PAGES['html'] = HtmlPage(
    header='''<!DOCTYPE html>
<html lang="en">
<head>
  <meta http-equiv="Content-Type" content="text/html; charset={encoding}" />
  <title>{title}</title>
  <style media="screen" type="text/css">
    table {{
      border-spacing: 0;
    }}
    tr.message-first td {{
      padding-top: {inter_message_padding};
    }}
    tr.message-last td {{
      padding-bottom: {inter_message_padding};
    }}
    td {{
      padding-left: {border_radius};
      padding-right: {border_radius};
    }}
    tr:first-child td:first-child {{
      border-top-left-radius: {border_radius};
    }}
    tr:first-child td:last-child {{
      border-top-right-radius: {border_radius};
    }}
    tr:last-child td:first-child {{
      border-bottom-left-radius: {border_radius};
    }}
    tr:last-child td:last-child {{
      border-bottom-right-radius: {border_radius};
    }}
    tbody:nth-child(4n+1) tr td {{
      background-color: #ffd96e;
    }}
    tbody:nth-child(4n+3) tr td {{
      background-color: #bce;
    }}
  </style>
</head>
<body>
<h2>{title}</h2>
{blurb}
</p>
<h3>Views</h3>
'''.format(title=config['meta']['title'],
           blurb=config['meta']['blurb'],
           encoding=_ENCODING,
           inter_message_padding='0.25em',
           border_radius='0.5em'),
    footer='''<hr>
<p>Generated: {date} courtesy of <a href="http://notmuchmail.org">notmuch</a> and <a href="http://git.cworth.org/git/notmuch-to-html">notmuch-to-html</a>.
</body>
</html>
'''.format(date=datetime.datetime.utcnow().date())
    )

if args.list_views:
    for view in config['views']:
        print(view['title'])
    sys.exit(0)
elif args.get_query != None:
    for view in config['views']:
        if args.get_query == view['title']:
            print(' and '.join(view['query']))
    sys.exit(0)
else:
    # only import notmuch if needed
    import notmuch

if args.text:
    page = _PAGES['text']
else:
    page = _PAGES['html']

db = notmuch.Database(mode=notmuch.Database.MODE.READ_ONLY)
page.write(database=db, views=config['views'])

if (args.query):
    print ('''To customize the output use 'notmuch-to-html --config=CONFIG_FILE' after
placing the following content into CONFIG_FILE (note that you can add
additional views with their own queries):


''', file=sys.stderr)
    print (json.dumps(config, indent=4, separators=(',',':')), file=sys.stderr)