#include "libbible.h"
#include <string>
#include <algorithm>
#include <getopt.h>

using namespace std;

void usage() {
    printf("\nUsage:\n bible [options] [reference]\n\n");
    printf("Print bible passages.\n\n");
    printf("Options:\n");
    printf(" -h, --help                         display this help message\n");
    printf("     --list-modules                 list all installed modules\n");
    printf(" -m, --module <mod>                 use specified module\n");
    printf("     --set-default-module <mod>     use specified module by default in future runs\n");
    printf("     --list-books                   list books available in the current module\n");
    printf("     --list-chapters <book>         list chapters available in book in the current module\n");
    printf(" -o, --omit-verse-numbers           when printing verse text, skip printing verse and chapter numbers\n");
    printf("     --list-installable=<lang>      list bible versions available for download and install. Default lists for all languages.\n");
    printf("     --install-network <mod>        install module from the network where <mod> is LANG:NAME as provided by --list-installable\n");
    printf("     --install-zip <path>           install module from a zip file\n");
    printf("     --remove-module <mod>          delete a module from the system\n");
    printf("\n\nExamples:\n bible Gal 5:22-23\n");
    printf(" bible John 3:16\n bible Romans 12\n bible Matt 5:3-7:27\n");
    printf(" bible Genesis 1-3\n");
}

string getDefaultModule() {
    return libbible::settingsRead("module");
}

void listModules() {
    map<string, vector<string>> mods = libbible::getModules();
    string defaultMod = getDefaultModule();
    printf("Modules Installed:\n");
    for(auto pair : mods) {
        if(pair.first == defaultMod) {
            printf(" %s (default)\n", pair.first.c_str());
        } else {
            printf(" %s\n", pair.first.c_str());
        }
    }
}

void setDefaultModule(string modname) {
    libbible::settingsWrite("module", modname);
}

void listBooks(string modname) {
    map<string, vector<string>> mods = libbible::getModules();
    if(mods.find(modname) == mods.end()) {
        printf("ERROR: Module \"%s\" not installed!\n", modname.c_str());
    } else {
        printf("Books in Module %s:\n", modname.c_str());
        for(string book : mods[modname]) {
            printf(" %s\n", book.c_str());
        }
    }
}

void listChapters(string modname, string book) {
    printf("Valid chapters for book %s in module %s:\n", book.c_str(), modname.c_str());
    for(auto pass : libbible::getPassages(modname, book)) {
        printf(" Chapter %d, Verses %d-%d\n", pass.chapterStart, pass.verseStart, pass.verseEnd);
    }
}

void listInstallable(string language) {
    map<string, vector<string>> installable = libbible::downloadModsAvailable();
    for(auto pair : installable) {
        if(!language.empty() && language != pair.first) {
            continue;
        }
        printf("For language %s:\n", pair.first.c_str());
        for(string name : pair.second) {
            printf(" %s\n", name.c_str());
        }
    }
}

void installNetwork(string mod) {
    //Split on :
    if(mod.find(':') == string::npos) {
        printf("Unable to process module \"%s\": Must contain colon separated language:name\n", mod.c_str());
        return;
    }
    string lang = mod.substr(0, mod.find(':'));
    string name = mod.substr(mod.find(':')+1);
    if(libbible::installModFromInternet(lang, name)) {
        printf("Module installed.\n");
    } else {
        printf("Error installing module!\n");
    }
}

void installZip(string path) {
    libbible::installModFromZip(path);
}

void removeMod(string mod) {
    libbible::uninstallMod(mod);
}

int main(int argc, char* argv[]) {
    static struct option long_options[] = {
        {"help", no_argument, 0, 'h'},
        {"list-modules", no_argument, 0, 0},
        {"module", required_argument, 0, 'm'},
        {"set-default-module", required_argument, 0, 0},
        {"list-books", no_argument, 0, 0},
        {"list-chapters", required_argument, 0, 0},
        {"omit-verse-numbers", no_argument, 0, 'o'},
        {"list-installable", optional_argument, 0, 0},
        {"install-network", required_argument, 0, 0},
        {"install-zip", required_argument, 0, 0},
        {"remove-module", required_argument, 0, 0}
    };
    int opt, option_index;
    string modname;
    bool omitVerseNums = false;
    bool doListBooks = false;
    string listChaptersBook;
    string option;
    while ((opt = getopt_long(argc, argv, "hm:o", long_options, &option_index)) != -1) {
        switch(opt) {
            case 'h':
                usage();
                return 0;
            case 'm':
                modname = string(optarg);
                break;
            case 'o':
                omitVerseNums = true;
                break;
            case 0:
                option = string(long_options[option_index].name);
                if(option == "list-modules") {
                    listModules();
                    return 0;
                } else if(option == "set-default-module") {
                    setDefaultModule(string(optarg));
                } else if(option == "list-books") {
                    doListBooks = true;
                } else if(option == "list-chapters") {
                    listChaptersBook = string(optarg);
                } else if(option == "list-installable") {
                    if(optarg == nullptr) {
                        listInstallable(string());
                    } else {
                        listInstallable(string(optarg));
                    }
                } else if(option == "install-network") {
                    installNetwork(string(optarg));
                } else if(option == "install-zip") {
                    installZip(string(optarg));
                } else if(option == "remove-module") {
                    removeMod(string(optarg));
                }
                break;
            default:
                usage();
                return 1;
        }
    }
    if(modname.empty()) {
        modname = getDefaultModule();
    }
    if(doListBooks) {
        listBooks(modname);
    }
    if(! listChaptersBook.empty()) {
        listChapters(modname, listChaptersBook);
    }
    string reference;
    while(optind < argc) {
        reference += argv[optind++];
        reference += " ";
    }
    if(reference.empty()) {
        // That's all.
        return 0;
    }

    auto text = libbible::getText(libbible::getPassage(modname, reference));
    int chapter = 0;
    int verse = 0;
    const char* indent = "    ";
    bool isNewline = true;
    for(auto tex : text) {
        if(!omitVerseNums && tex.chapter != chapter) {
            printf("\n%s Chapter %d:\n", tex.book.c_str(), tex.chapter);
        }
        bool isParagraph = false;
        bool isIndent = false;
        bool isDivineName = false;
        bool isJesus = false;
        for(string modifier : tex.modifiers) {
            if(modifier == "paragraph") {
                isParagraph = true;
            } else if (modifier == "line indent0") {
                isIndent = true;
            } else if (modifier == "divineName") {
                isDivineName = true;
            } else if (modifier == "wordsOfJesus") {
                isJesus = true;
            }
        }
        if(isIndent) {
            isParagraph = false;
            if(isNewline) {
                printf(indent);
            }
        }
        if(isParagraph) {
            printf(indent);
        }
        if(isDivineName) {
            transform(tex.text.begin(), tex.text.end(), tex.text.begin(), ::toupper);
        }
        if(isJesus) {
            printf("\033[;31m");
        }
        if(omitVerseNums && tex.verse != verse) {
            printf(" ");
        } else if(!omitVerseNums && tex.verse != verse) {
            printf(" (%d) ", tex.verse);
        }
        chapter = tex.chapter;
        verse = tex.verse;
        printf(tex.text.c_str());
        if(tex.text.back() == '\n') {
            isNewline = true;
        } else {
            isNewline = false;
        }
        if(isJesus) {
            printf("\033[0m");
        }
    }
    printf("\n");
    return 0;
}