Subject: [PATCH] gnu: Add monsterid.
From: Evgeny Pisemsky <[email-masked]>
To: [email-masked]
Date: Fri, 03 Nov 2023 04:45:44 +0300
List-Id: <debbugs-submit.debbugs.gnu.org>

From 66ab9aa7d656e5226ff16c77ecf3e0b6b20885ed Mon Sep 17 00:00:00 2001
Message-ID: <[email-masked]>
From: Evgeny Pisemsky <[email-masked]>
Date: Fri, 3 Nov 2023 04:00:00 +0300
Subject: [PATCH] gnu: Add monsterid.

* gnu/packages/web.scm (monsterid): New variable.

Change-Id: I68dc167cb766f730bfa4108c96a70f59a9aec222
---
 gnu/packages/web.scm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm
index 66d09700db..67650a19b8 100644
--- a/gnu/packages/web.scm
+++ b/gnu/packages/web.scm
@@ -64,6 +64,7 @@
 ;;; Copyright © 2023 David Thompson <[email-masked]>
 ;;; Copyright © 2023 Christopher Howard <[email-masked]>
 ;;; Copyright © 2023 Felix Lechner <[email-masked]>
+;;; Copyright © 2023 Evgeny Pisemsky <[email-masked]>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -7910,6 +7911,35 @@ (define-public geomyidae
 @end enumerate\n")
     (license license:expat)))
 
+(define-public monsterid
+  (let ((commit "5597f177b473343ff5cad9a6e0e5b255312c6096")
+        (revision "0"))
+    (package
+      (name "monsterid")
+      (version (git-version "0" revision commit))
+      (source
+       (origin
+         (method git-fetch)
+         (uri (git-reference
+               (url "https://github.com/splitbrain/monsterID")
+               (commit commit)))
+         (file-name (git-file-name name version))
+         (sha256
+          (base32 "0ixyrrcbw96plcdna2rx1pqwisqy9hnr57kvamgj13lzlv2whdb3"))))
+      (build-system copy-build-system)
+      (arguments
+       '(#:install-plan '(("monsterid.php" "share/web/monsterid/")
+                          ("parts/" "share/web/monsterid/parts/"
+                           #:include-regexp ("\\.png$")))))
+      (home-page "https://www.splitbrain.org/projects/monsterid")
+      (synopsis "The original MonsterID implementation")
+      (description
+       "MonsterID is a method to generate a unique monster image based upon a
+certain identifier (IP address, email address, whatever).  It can be
+used to automatically provide personal avatar images in blog comments
+or other community services.")
+      (license license:expat))))
+
 (define-public cat-avatar-generator
   (let ((commit "9360ea33f79d1dad3e43494b09878b5e3f6b41fa")
         (revision "1"))

base-commit: 28ebbe2be8829a4767b9789c6353ad5e826d1164
-- 
2.41.0