From ff40ed3410aaa8bebb310e8803fe36bc4821ca77 Mon Sep 17 00:00:00 2001
From: terramorpha <terramorpha@cock.li>
Date: Sun, 25 Jul 2021 13:04:49 -0400
Subject: [PATCH] gnu: Add tosdr-chromium.

* gnu/packages/browser-extensions.scm (tosdr, tosdr-chromium): New variables.
---
 gnu/packages/browser-extensions.scm | 50 ++++++++++++++++++++++++++++-
 1 file changed, 49 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/browser-extensions.scm b/gnu/packages/browser-extensions.scm
index a6120baf96..017b831d8a 100644
--- a/gnu/packages/browser-extensions.scm
+++ b/gnu/packages/browser-extensions.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2020, 2021 Marius Bakke <marius@gnu.org>
+;;; Copyright © 2021 Justin Veilleux <terramorpha@cock.li>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -21,10 +22,14 @@
   #:use-module (guix git-download)
   #:use-module (guix build-system copy)
   #:use-module (guix build-system gnu)
+  #:use-module (guix build-system trivial)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (gnu build chromium-extension)
   #:use-module (gnu packages compression)
-  #:use-module (gnu packages python))
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages bash)
+  #:use-module (gnu packages node))
 
 (define play-to-kodi
   (package
@@ -121,3 +126,46 @@ ungoogled-chromium.")
 
 (define-public ublock-origin/chromium
   (make-chromium-extension ublock-origin "chromium"))
+
+(define tosdr
+  (package
+    (name "tosdr")
+    (version "4.1.1")
+    (source
+     (origin
+       (uri
+        (git-reference
+         (url "https://github.com/tosdr/browser-extensions.git")
+         (commit version)))
+       (sha256
+        (base32 "0wz31f9rz087yw1a7cdhdgqvgnhbk569jywv846n122m4bpk3yw0"))
+       (method git-fetch)))
+    (native-inputs
+     `(("bash" ,bash-minimal)
+       ("coreutils" ,coreutils-minimal)
+       ("node" ,node)
+       ("zip" ,zip)
+       ("unzip" ,unzip)))
+    (arguments
+     `(#:builder
+       (begin
+         (use-modules (guix build utils))
+         (set-path-environment-variable "PATH"
+					'("bin")
+					(map cdr %build-inputs))
+         (copy-recursively (assoc-ref %build-inputs "source") ".")
+         (invoke "sh" "./build.sh")
+         (invoke "unzip" "dist/chrome.zip" "-d" %output)
+         #t)
+       #:modules ((guix build utils))))
+    (build-system trivial-build-system)
+    (synopsis "extension to inform of the important aspects of the terms and
+conditions of a web service")
+    (description "This extension informs you instantly of your rights online by
+showing an unintrusive icon in the toolbar. You can click on this icon to get
+summaries from the Terms of Service; Didn't Read initiative.")
+    (license license:agpl3)
+    (home-page "https://tosdr.org/")))
+
+(define-public tosdr-chromium
+  (make-chromium-extension tosdr))
-- 
2.31.1