// ==UserScript==
// @name         cranitup
// @namespace    http://tampermonkey.net/
// @version      0.2.1
// @description  Make CRAN (Comprehensive R Archive Network) more useful
// @author       Chung-hong Chan
// @include      https://*.r-project.org/web/packages/*
// @exclude      https://*.r-project.org/web/packages/available_packages_by_name.html
// @exclude      https://*.r-project.org/web/packages/available_packages_by_date.html
// @exclude      https://*.r-project.org/web/packages/index.html
// @exclude      https://*.r-project.org/web/packages/*/vignettes/*
// @grant        GM_setClipboard
// @grant        GM_addStyle
// ==/UserScript==

(function() {
    'use strict'
    //var script = document.createElement('script');
    //script.type = 'text/javascript';
    //script.src = 'https://cdn.jsdelivr.net/npm/clipboard@2/dist/clipboard.min.js'
    //document.head.appendChild(script);
    GM_addStyle("@media (prefers-color-scheme: light) { :root { --background-color: white; --text-color: black; --link-color: blue; --sec-color: rgb(55%, 55%, 55%); } }")
    GM_addStyle("@media (prefers-color-scheme: dark) { :root { --background-color: #121212; --text-color: white; --link-color: #BB86FC; --sec-color: #03DAC5; } }")
    GM_addStyle("body { background: var(--background-color); color: var(--text-color); }")
    GM_addStyle("h1 { background: var(--background-color); color: var(--sec-color); font-family: monospace; font-size: x-large; text-align: center;}")
    GM_addStyle("a { background: var(--background-color); color: var(--link-color); }")
    GM_addStyle("h1 { background: var(--background-color); color: var(--sec-color); font-family: monospace; font-size: x-large; text-align: center; }")
    GM_addStyle("h2 { background: var(--background-color); color: var(--sec-color); font-family: monospace; font-size: large; }")
    GM_addStyle("h3, h4, h5 { background: var(--background-color); color: var(--sec-color); font-family: monospace; }")
    GM_addStyle("button { background-color: var(--sec-color); color: var(--text-color); }")
    GM_addStyle("input[type=text] { background-color: var(--background-color); color: var(--sec-color); }")
    var pkg_name = document.querySelector('h2').textContent.split(':')[0]
    var download_badge = document.createElement("img")
    download_badge.src = "https://cranlogs.r-pkg.org/badges/last-week/" + pkg_name
    document.querySelector('h2').after(download_badge)
    var version_box = document.querySelector('.container > table:nth-child(4) > tbody:nth-child(1) > tr:nth-child(1) > td:nth-child(2)')
    version_box.innerText = ""
    var version_badge = document.createElement("img")
    version_badge.src = "https://www.r-pkg.org/badges/version-ago/" + pkg_name
    version_box.appendChild(version_badge)
    function copy_install () {
        var pkg_name = document.querySelector('h2').textContent.split(':')[0]
        GM_setClipboard ("install.packages(\"" + pkg_name + "\", dependencies = TRUE)");
    }
    var copy_button = document.createElement("button")
    copy_button.autofocus = true
    copy_button.innerText = "copy"
    var br = document.createElement("br")
    copy_button.onclick = copy_install
    var input_box = document.createElement("input")
    input_box.type = 'text'
    input_box.value = "install.packages(\"" + pkg_name + "\", dependencies = TRUE)"
    input_box.size = 80
    document.querySelector('p').append(br, br, input_box, copy_button)
})();